[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-606-g4554e79

[Mildred Ki'Lya]

The following commit has been merged in the master branch:
commit e301cf4f66553fbf6d8c3288da58ab04e4984f01
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Wed Nov 11 14:19:56 2009 +0100

    Add test for aliased structs that might disappear

diff --git a/tests/typedef_missing/main.li b/tests/typedef_missing/main.li
new file mode 100644
index 0000000..793a041
--- /dev/null
+++ b/tests/typedef_missing/main.li
@@ -0,0 +1,15 @@
+Section Header
+
+  + name := MAIN;
+
+Section Public
+
+  - main <-
+  (
+    PROTO2.set_var 1;
+    PROTO2.set_var2 2;
+    PROTO2.println;
+    PROTO3.set_var 3;
+    PROTO3.println;
+  );
+
diff --git a/tests/inherit_generic/make.lip b/tests/typedef_missing/make.lip
similarity index 95%
copy from tests/inherit_generic/make.lip
copy to tests/typedef_missing/make.lip
index 893df71..393f4ff 100644
--- a/tests/inherit_generic/make.lip
+++ b/tests/typedef_missing/make.lip
@@ -30,11 +30,12 @@ Section Private
   - front_end <-
   (
     general_front_end;
+    is_optimization := TRUE;
     path "./*";
     input_file := "main";
   );
 
   + m_test_description :STRING :=
-    "Test inheritance from a generic prototype from a non generic one\n";
+    "Test all structures are generated correctly\n";
 
   + m_test_run :BOOLEAN := FALSE;
diff --git a/tests/typedef_missing/proto1.li b/tests/typedef_missing/proto1.li
new file mode 100644
index 0000000..e2b3244
--- /dev/null
+++ b/tests/typedef_missing/proto1.li
@@ -0,0 +1,17 @@
+Section Header
+
+  + name := PROTO1;
+
+Section Public
+
+  - name :STRING_CONSTANT := "PROTO1";
+
+  - println <-
+  (
+    name.print;
+    ' '.print;
+    var.println;
+  );
+
+  + var :INTEGER;
+  - set_var i:INTEGER <- (var := i;);
diff --git a/tests/typedef_missing/proto2.li b/tests/typedef_missing/proto2.li
new file mode 100644
index 0000000..0a00b4c
--- /dev/null
+++ b/tests/typedef_missing/proto2.li
@@ -0,0 +1,23 @@
+Section Header
+
+  + name := PROTO2;
+
+Section Inherit
+
+  + parent_proto1 :Expanded PROTO1;
+
+Section Public
+
+  - name :STRING_CONSTANT := "PROTO2";
+
+  - println <-
+  (
+    name.print;
+    ' '.print;
+    var.println;
+    ' '.print;
+    var2.println;
+  );
+
+  + var2 :INTEGER;
+  - set_var2 i:INTEGER <- (var := i;);
diff --git a/tests/typedef_missing/proto3.li b/tests/typedef_missing/proto3.li
new file mode 100644
index 0000000..25fb505
--- /dev/null
+++ b/tests/typedef_missing/proto3.li
@@ -0,0 +1,17 @@
+Section Header
+
+  + name := PROTO3;
+
+Section Public
+
+  - name :STRING_CONSTANT := "PROTO3";
+
+  - println <-
+  (
+    name.print;
+    ' '.print;
+    var.println;
+  );
+
+  + var :INTEGER;
+  - set_var i:INTEGER <- (var := i;);

-- 
Lisaac compiler