[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-606-g4554e79
Mildred Ki'Lya
silkensedai at online.fr
Mon Mar 1 01:30:53 UTC 2010
The following commit has been merged in the master 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