[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-693-gc760b1c

[ontologiae]

The following commit has been merged in the master branch:
commit c760b1c62af5257efbead5079f53ed74df963c5c
Author: ontologiae <ontologiae at gmail.com>
Date:   Wed Jan 19 12:30:03 2011 +0100

    Add two bug tests : bug on profilblock, bug on nativearray

diff --git a/src/item/itm_type_mono.li b/src/item/itm_type_mono.li
index 4755917..bc07532 100644
--- a/src/item/itm_type_mono.li
+++ b/src/item/itm_type_mono.li
@@ -77,4 +77,4 @@ Section Public
   // Cast.
   //
 
-  - append_cast_name_in buf:STRING <- deferred;
\ No newline at end of file
+  - append_cast_name_in buf:STRING <- deferred;
diff --git a/src/parser.li b/src/parser.li
index ae2e523..82f900a 100644
--- a/src/parser.li
+++ b/src/parser.li
@@ -1645,6 +1645,8 @@ Section Private
           };
           genericity.add_last t;
         }.do_while {read_character ','};
+         warning_error (current_position,"On va tomber sur deferred...");
+          
         genericity := ALIAS_ARRAY(ITM_TYPE_MONO).alias genericity;
         result     := ITM_TYPE_GENERIC.get nam style styl with genericity;
         (read_character ')').if_false {
diff --git a/src/tools/alias_array.li b/src/tools/alias_array.li
index e164f12..4678cb8 100644
--- a/src/tools/alias_array.li
+++ b/src/tools/alias_array.li
@@ -26,7 +26,7 @@ Section Header
 
 
   - author  := "Sonntag Benoit (bsonntag at loria.fr)";
-  - comment := "Aliser collection.";
+  - comment := "Aliaser collection.";
 
 Section Inherit
 
diff --git a/tests/bugsRc2/blocarray.li b/tests/bugsRc2/blocarray.li
new file mode 100644
index 0000000..cd3b557
--- /dev/null
+++ b/tests/bugsRc2/blocarray.li
@@ -0,0 +1,31 @@
+Section Header
+
+  + name      := BLOCARRAY;
+  - copyright := "2011  - Pierre-Alexandre Voye";
+  - author    := "Pierre-Alexandre Voye";
+  - comment   := "COMMENT";
+
+Section Inherit
+
+  + parent_object : OBJECT := OBJECT;
+
+Section Private
+
+Section Public
+
+  - lstblock : FAST_ARRAY({INTEGER;INTEGER}) :=  FAST_ARRAY({INTEGER;INTEGER}).create 3;
+
+  - main <-
+  ( + a , b ,c : {INTEGER;INTEGER};
+    a := { a:INTEGER; a+1};
+    b := { a:INTEGER; a+2};
+    c := { a:INTEGER; a+3};
+    lstblock.put a to 1;
+    lstblock.put b to 2;
+    lstblock.put c to 3;
+
+    
+    (lstblock.item 1.value 4 = 5).println;
+
+  );
+
diff --git a/tests/bugsRc2/profilblock.li b/tests/bugsRc2/profilblock.li
new file mode 100755
index 0000000..e24ad46
--- /dev/null
+++ b/tests/bugsRc2/profilblock.li
@@ -0,0 +1,50 @@
+///////////////////////////////////////////////////////////////////////////////
+//                          Isaac Operating System                           //
+// 									     //
+//   This program is free software; you can redistribute it and/or modify    //
+//   it under the terms of the GNU General Public License as published by    //
+//   the Free Software Foundation; version 3 of the License.  		     //
+// 									     //
+//   This program is distributed in the hope that it will be useful, 	     //
+//   but WITHOUT ANY WARRANTY; without even the implied warranty of 	     //
+//   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 	     //
+//   GNU General Public License for more details. 			     //
+// 									     //
+// 			    http://www.lisaac.org			     //
+///////////////////////////////////////////////////////////////////////////////
+
+Section Header
+
+  + name    := PROFILBLOCK;
+      
+  
+  
+Section Inherit  
+  
+  - parent_object:OBJECT := OBJECT;  
+  
+  
+Section Public
+
+  - sum : { (INTEGER,INTEGER);INTEGER} :=   sum := { (i,acc:INTEGER); 
+               + return : INTEGER;
+               (i<0).if { return := acc;} else { return := sum.value (i-1,acc+1)};
+               return
+             };
+
+  - main <-
+  (  
+    
+    
+             sum.value (5000,0).print;
+    ); 
+
+
+
+
+
+
+
+
+
+

-- 
Lisaac compiler