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

[ontologiae]

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

    Tracking nativearray bug

diff --git a/src/item/itm_type_simple.li b/src/item/itm_type_simple.li
index 1b7444a..a9d0609 100644
--- a/src/item/itm_type_simple.li
+++ b/src/item/itm_type_simple.li
@@ -55,6 +55,8 @@ Section ITM_TYPE_SIMPLE
 
 Section Public
 
+  + position : POSITION;//BUG : to remove
+
   - type_null:ITM_TYPE_SIMPLE := ITM_TYPE_SIMPLE.get (ALIAS_STR.variable_null);
   - type_void:ITM_TYPE_SIMPLE := ITM_TYPE_SIMPLE.get (ALIAS_STR.variable_void);
   - type_self:ITM_TYPE_SIMPLE := ITM_TYPE_PARAMETER.create (ALIAS_STR.prototype_self);
@@ -82,6 +84,8 @@ Section Public
   ( + result:TYPE_FULL;
     + path:STRING_CONSTANT;
 
+    position := p.position;
+
     (Self = type_null).if {
       result := TYPE_NULL.default;
     }.elseif {Self = type_void} then {
diff --git a/src/type/type_generic.li b/src/type/type_generic.li
index 4b44743..c0e2906 100644
--- a/src/type/type_generic.li
+++ b/src/type/type_generic.li
@@ -234,14 +234,14 @@ Section Public
     string_tmp.replace_all ' ' with '_';
     string_tmp.replace_all '.' with '_';
     intern_name := ALIAS_STR.get_intern string_tmp;
-    "[debug Put_to error on native_array] Nom du type : '".print;itm_typ.name.print;"'\n".print; // BUG
+    "[debug Put_to error on native_array] Nom du type : '".print;itm_typ.print;"'\n".print;string_tmp.println; // BUG
     (
       (itm_typ.name = ALIAS_STR.prototype_native_array) ||
       {itm_typ.name = ALIAS_STR.prototype_native_array_volatile} 
     ).if {
-       proto.position.put_error warning text "put to error in type_generic ; Affectation variable native_array_variable ";
-      proto.position.put_position;
-      proto.position.send_error; // BUG tracking
+       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);
       paper_list.add_last Self;
     };

-- 
Lisaac compiler