[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-692-g766c008

[ontologiae]

The following commit has been merged in the master branch:
commit d972c2dd91777afb85cd38766db11e0cb5cdcdab
Author: ontologiae <ontologiae at gmail.com>
Date:   Tue Jan 18 08:59:43 2011 +0100

    Tracking nativearray bug. Replaced VARIABLE.create by SLOT_DATA in TYPE_GENERIC line 245 : maybe fixed ?

diff --git a/src/item/itm_type_simple.li b/src/item/itm_type_simple.li
index a9d0609..e9f94de 100644
--- a/src/item/itm_type_simple.li
+++ b/src/item/itm_type_simple.li
@@ -84,7 +84,7 @@ Section Public
   ( + result:TYPE_FULL;
     + path:STRING_CONSTANT;
 
-    position := p.position;
+    //position := p.position;// Provoque le bug... qu'on cherche à débuguer... génial..
 
     (Self = type_null).if {
       result := TYPE_NULL.default;
diff --git a/src/type/type_generic.li b/src/type/type_generic.li
index c0e2906..f883839 100644
--- a/src/type/type_generic.li
+++ b/src/type/type_generic.li
@@ -239,10 +239,10 @@ Section Public
       (itm_typ.name = ALIAS_STR.prototype_native_array) ||
       {itm_typ.name = ALIAS_STR.prototype_native_array_volatile} 
     ).if {
-       itm_typ.position.put_error warning text "put to error in type_generic ; Affectation variable native_array_variable ";
-      itm_typ.position.put_position;
-      itm_typ.position.send_error; // BUG tracking
-      native_array_variable := VARIABLE.create (proto.position) name intern_name type (gen.first);
+      // itm_typ.position.put_error warning text "put to error in type_generic ; Affectation variable native_array_variable ";
+     // itm_typ.position.put_position;
+     // itm_typ.position.send_error; // BUG tracking
+      native_array_variable := SLOT_DATA.create (proto.position) name intern_name type (gen.first);
       paper_list.add_last Self;
     };
 
diff --git a/src/variable/variable.li b/src/variable/variable.li
index e0bf9a1..0e3593f 100644
--- a/src/variable/variable.li
+++ b/src/variable/variable.li
@@ -45,8 +45,8 @@ Section Public
 
 
     (Self.same_dynamic_type VARIABLE).if {  print_runtime_stack;"Création d'un VARIABLE !!".print;'\n'.print;crash_with_message "Création d'une variable : pas bon\n";};
-    (Self.same_dynamic_type LOCAL).if {  print_runtime_stack;"Création d'un LOCAL !!".print;'\n'.print;};
-    (Self.same_dynamic_type SLOT_DATA).if {  print_runtime_stack;"Création d'un SLOT_DATA !!".print;'\n'.print;};
+    (Self.same_dynamic_type LOCAL).if {  "Création d'un LOCAL !!".print;'\n'.print;};
+    (Self.same_dynamic_type SLOT_DATA).if {  "Création d'un SLOT_DATA !!".print;'\n'.print;};
 
     result := clone;
     result.make p name n type t;

-- 
Lisaac compiler