[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-535-gf98c167

[Benoit Sonntag]

The following commit has been merged in the master branch:
commit f98c1670aa7e83acaf6161d916fb933c367f8112
Author: Benoit Sonntag <sonntag at icps.u-strasbg.fr>
Date:   Thu Nov 12 06:03:39 2009 +0100

    Release update

diff --git a/Makefile b/Makefile
index 49d508c..7ace1c6 100644
--- a/Makefile
+++ b/Makefile
@@ -20,7 +20,6 @@ CFLAGS=-O2
 
 all: install_lisaac
 	./install_lisaac
-	. ~/.bashrc
 
 install_lisaac:
 	$(CC) $(CFLAGS) install_lisaac.c -o install_lisaac
diff --git a/install_lisaac.li b/install_lisaac.li
index 3899795..6bb6f5f 100644
--- a/install_lisaac.li
+++ b/install_lisaac.li
@@ -33,7 +33,7 @@ Section Inherit
   
 Section Private  
   
-  - is_release:BOOLEAN := TRUE;
+  - is_release:BOOLEAN := FALSE;
   
   //
   // Independance File System 
diff --git a/lib/internal/os_support/windows/video/video.li b/lib/internal/os_support/windows/video/video.li
index 26c484b..68d7d0b 100644
--- a/lib/internal/os_support/windows/video/video.li
+++ b/lib/internal/os_support/windows/video/video.li
@@ -85,7 +85,7 @@ Section Public
   
   - size_pixel:INTEGER;
   
-  - make (w,h:INTEGER) <-
+  - make_size (w,h:INTEGER) <-
   ( 
     // Init BITMAP:
     width  := w;
@@ -149,7 +149,7 @@ Section Public
   
   - auto_make <-
   (
-    make (800,600);
+    make_size (800,600);
   );
   
   - close <-
@@ -171,14 +171,14 @@ Section Public
     `SetPixel(hdc_glob, at x, at y, at real_col)`;    
   );
   
-  - line_h_hard (x,y:INTEGER) until x1:INTEGER color col:UINTEGER_32 <-
+  - line_h_hard (x0,y0:INTEGER) until x1:INTEGER color col:UINTEGER_32 <-
   ( + real_col:UINTEGER_32;
     + pen:UINTEGER_32;
     real_col := ((col>>16) & 0000FFh) | ((col<<16) & 0FF0000h) | (col & 00FF00h);
     pen := `CreatePen(PS_SOLID,1, at real_col)`:UINTEGER_32;
     `SelectObject(hdc_glob,(HPEN)@pen)`;
-    `MoveToEx(hdc_glob, at x, at y,NULL)`;
-    `LineTo(hdc_glob, at x1+1, at y)`;
+    `MoveToEx(hdc_glob, at x0, at y0,NULL)`;
+    `LineTo(hdc_glob, at x1+1, at y0)`;
     `DeleteObject((HPEN)@pen)`;
   );
     
diff --git a/src/code_life/switch.li b/src/code_life/switch.li
index 44e75cf..eb2d935 100644
--- a/src/code_life/switch.li
+++ b/src/code_life/switch.li
@@ -292,6 +292,7 @@ Section Public
       buffer.append "if (";
       //                        
       ((expr.static_type.raw.is_block) && {typ_first = TYPE_NULL}).if {        
+        buffer.append "/* ICI */";
         expr.genere buffer;
         is_genered := TRUE;
         buffer.append ".__id==0";

-- 
Lisaac compiler