[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-681-gf51f60d

[ontologiae]

The following commit has been merged in the master branch:
commit f51f60d1ebe02353077ff82a9abcd31caf8ffac3
Author: ontologiae <ontologiae at gmail.com>
Date:   Mon Nov 29 22:52:24 2010 +0100

    verbosify x86 system.li

diff --git a/lib/internal/os_support/x86/system/system.li b/lib/internal/os_support/x86/system/system.li
index 7eb32a3..35f80fd 100755
--- a/lib/internal/os_support/x86/system/system.li
+++ b/lib/internal/os_support/x86/system/system.li
@@ -466,9 +466,9 @@ Section Public
   //
   
   - make <-
-  (   
+  (   + tmp : STRING_CONSTANT;
 
-    "System".print;
+    "Registering interuptions\n".print;
     new_interrupt exception_01 to 01h;       
     new_interrupt exception_0d to 0Dh;
 
@@ -513,9 +513,11 @@ Section Public
     new_interrupt mode_text to 30h;
     
     // IRQ cascade on:
+    "IRQ cascade ON\n".print;
     irq_on 2;
     
     // STI
+    "Interupts On\n".print;
     interrupt_on;    
   );
   
diff --git a/make.lip b/make.lip
index 2d3dcf3..d908947 100644
--- a/make.lip
+++ b/make.lip
@@ -46,7 +46,7 @@ Section Private
   + is_cop:BOOLEAN;     // Correct value after compilation.
   + is_library:BOOLEAN; // For build a lisaac library C
   + is_coverage:BOOLEAN;// Generate coverage information
-	+ is_no_os:BOOLEAN;
+  + is_no_os:BOOLEAN; // Generate no include with unix/windows dependency
   + execute_back_end:BOOLEAN := TRUE;
   + execute_status_code:INTEGER := 0;
 
@@ -370,9 +370,9 @@ Section Public
   );
 
   - no_os <-
-	// generate code without os relative includes
+  // generate code without os relative includes
   (
-   is_no_os := TRUE;
+   add_flag "no_os";
   );
 
   
diff --git a/src/any.li b/src/any.li
index 721157a..5d84e97 100644
--- a/src/any.li
+++ b/src/any.li
@@ -129,7 +129,7 @@ Section Public
   - is_quiet:BOOLEAN;
 
   - is_warn_null :BOOLEAN <- ( is_warn_null := LIP_CODE.has_flag "warn-null" );
-  - is_no_os :BOOLEAN <- (is_no_os := LIP_CODE.has_flag "no_os");
+  - is_no_os :BOOLEAN <- (is_no_os := LIP_CODE.has_flag (ALIAS_STR.slot_no_os));
 
   - backend:BACKEND := BACKEND;
 
diff --git a/src/tools/alias_str.li b/src/tools/alias_str.li
index 2c99e32..fce2c42 100644
--- a/src/tools/alias_str.li
+++ b/src/tools/alias_str.li
@@ -490,6 +490,7 @@ Section Public
     list.add slot_get_string;
     list.add slot_is_cop;
     list.add slot_add_flag;
+    list.add slot_no_os;
 
     // Type C :
     list.add c_void;

-- 
Lisaac compiler