[SCM] Lisaac compiler branch, mildred-backend, updated. lisaac-0.12-434-g3ee9ebf

[Mildred Ki'Lya]

The following commit has been merged in the mildred-backend branch:
commit 317a3689f90ef50d4be57244590d32b2fb9881d9
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Thu Aug 6 23:21:54 2009 +0200

    Remove java specific code in C backend

diff --git a/src/tools/backend_c.li b/src/tools/backend_c.li
index ebc3e7f..28373c1 100644
--- a/src/tools/backend_c.li
+++ b/src/tools/backend_c.li
@@ -79,16 +79,14 @@ Section Public
 
     (t.type_c != NULL).if {
       // Define TRUE__ and FALSE__ constants
-      (is_java).if_false {
-        ((t.shortname = ALIAS_STR.prototype_true) ||
-         {t.shortname = ALIAS_STR.prototype_false}).if
-        {
-          buf.append "#define ";
-          append_type_proto_name_for t in buf;
-          buf.append " ";
-          buf.add_last ((t.shortname = ALIAS_STR.prototype_true).to_character);
-          buf.add_last '\n';
-        };
+      ((t.shortname = ALIAS_STR.prototype_true) ||
+        {t.shortname = ALIAS_STR.prototype_false}).if
+      {
+        buf.append "#define ";
+        append_type_proto_name_for t in buf;
+        buf.append " ";
+        buf.add_last ((t.shortname = ALIAS_STR.prototype_true).to_character);
+        buf.add_last '\n';
       };
 
 
@@ -108,24 +106,14 @@ Section Public
       //
       // Type ID
       //
-      (is_java).if {
-        buf.append "static private int ";
-        append_type_typeid_name_for t in buf;
-        buf.append (t.intern_name);
-        buf.append " = ";
-      } else {
-        buf.append "#define ";
-        append_type_typeid_name_for t in buf;
-        buf.append " ";
-      };
+      buf.append "#define ";
+      append_type_typeid_name_for t in buf;
+      buf.append " ";
       t.is_late_binding.if {
         TYPE.generate_id_with_type.append_in buf;
       } else {
         TYPE.generate_id_without_type.append_in buf;
       };
-      (is_java).if {
-        buf.add_last ';';
-      };
       buf.add_last '\n';
 
       //

-- 
Lisaac compiler