[SCM] Lisaac compiler branch, stable, updated. lisaac-0.12-550-g85034c5

Mildred Ki'Lya silkensedai at online.fr
Sat Oct 10 22:52:26 UTC 2009


The following commit has been merged in the stable branch:
commit cfe09ceeed416f742919698f41e8057ba44f0f1c
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Sat Oct 10 23:54:12 2009 +0200

    Add test. Error when compiling Expanded with NULL.

diff --git a/run-tests.sh b/run-tests.sh
index 3122531..5e6759b 100755
--- a/run-tests.sh
+++ b/run-tests.sh
@@ -145,7 +145,7 @@ if $op_runcwd; then
           echo
           echo "$run"
         fi
-      else
+      elif [ $res = 0 ]; then
         echo
         echo "$compile"
       fi
diff --git a/tests/compare_expanded_null/main.li b/tests/compare_expanded_null/main.li
new file mode 100644
index 0000000..675c96b
--- /dev/null
+++ b/tests/compare_expanded_null/main.li
@@ -0,0 +1,16 @@
+Section Header
+
+  + name := MAIN;
+
+Section Public
+
+  - main <-
+  ( + b :INTEGER;
+    (b = NULL).if {
+      "0 is NULL".println;
+    } else {
+      "0 is not NULL".println;
+    };
+    "If it compiles without an error, there is a bug".println;
+  );
+
diff --git a/tests/inherit_generic/make.lip b/tests/compare_expanded_null/make.lip
similarity index 88%
copy from tests/inherit_generic/make.lip
copy to tests/compare_expanded_null/make.lip
index 893df71..f65a016 100644
--- a/tests/inherit_generic/make.lip
+++ b/tests/compare_expanded_null/make.lip
@@ -35,6 +35,11 @@ Section Private
   );
 
   + m_test_description :STRING :=
-    "Test inheritance from a generic prototype from a non generic one\n";
+    "Test that (INTEGER = NULL) raise a compilation error\n\
+    \The generated C code compare a pointer with a non pointer variable\n";
 
   + m_test_run :BOOLEAN := FALSE;
+
+  + m_test_compile :BOOLEAN := FALSE;
+
+  + m_test_compile_pattern :STRING := "--SEMANTIC---------";

-- 
Lisaac compiler



More information about the Lisaac-commits mailing list