[SCM] Lisaac compiler branch, master+stable, updated. lisaac-0.12-606-gf445725

Mildred Ki'Lya silkensedai at online.fr
Mon Mar 1 00:35:07 UTC 2010


The following commit has been merged in the master+stable branch:
commit f80c01f76caf490f21436630e8fdaba4872f97e4
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Sat Sep 5 23:25:08 2009 +0200

    Fix library, remove unknown prototypes

diff --git a/lib/internal/os_support/unix/system/system.li b/lib/internal/os_support/unix/system/system.li
index 0af6ad4..d17aef7 100644
--- a/lib/internal/os_support/unix/system/system.li
+++ b/lib/internal/os_support/unix/system/system.li
@@ -149,9 +149,9 @@ Section SYSTEM,MEMORY
     ? {result != 0};
     result
   );
-  
-Section ISAAC  
-  
+
+Section Public // ISAAC
+
   - make <-
   // Isaac compatibility.
   (
diff --git a/lib/internal/portable/io/output_stream.li b/lib/internal/portable/io/output_stream.li
index 8a8dd4e..7482a7c 100644
--- a/lib/internal/portable/io/output_stream.li
+++ b/lib/internal/portable/io/output_stream.li
@@ -112,6 +112,7 @@ Section Public
     DIRECTORY.has path
   );
 
+  /*
   - append_file file_name:STRING <-
   (
     + c:CHARACTER;
@@ -127,6 +128,7 @@ Section Public
     };
     tmp_file_read.disconnect;
   );
+  */
 
   - flush <-
   // forces a write of unwritten character (write my have been
@@ -140,7 +142,7 @@ Section Private
   - basic_io_putc c:CHARACTER <- SYSTEM_IO.print_char c;
 
   - basic_error_putc c:CHARACTER <- SYSTEM_IO.print_error_char c;
-
+  /*
   - tmp_file_read:TEXT_FILE_READ := TEXT_FILE_READ.create;
-
+  */
   - tmp_string:STRING := STRING.create 512;
diff --git a/lib/internal/portable/number/float_map.li b/lib/internal/portable/number/float_map.li
index f7c4132..c9b7b0b 100644
--- a/lib/internal/portable/number/float_map.li
+++ b/lib/internal/portable/number/float_map.li
@@ -24,7 +24,7 @@ Section Header
     
   - comment := "Mapping for REAL_xx.";
   
-Section PRIVATE
+Section Private
   
   - deferred <- crash_with_message "Slot deferred.";
   
diff --git a/lib/standard/string/abstract_string.li b/lib/standard/string/abstract_string.li
index 0ddfc1f..84ef879 100644
--- a/lib/standard/string/abstract_string.li
+++ b/lib/standard/string/abstract_string.li
@@ -1301,10 +1301,12 @@ Section Public
     ? { (words.count) >= old_count };
   );
 
+  /*
   - get_new_iterator:ITERATOR(CHARACTER) <-
   (
     ITERATOR_ON_STRING(CHARACTER).create Self
   );
+  */
 
   - same_string other:ABSTRACT_STRING :BOOLEAN <-
   // Do self and other have the same character sequence?

-- 
Lisaac compiler



More information about the Lisaac-commits mailing list