diff options
author | dos-reis <gdr@axiomatics.org> | 2009-02-15 21:36:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-02-15 21:36:21 +0000 |
commit | 54c2b07353f228554b92269a9a4e688683ae85d6 (patch) | |
tree | 846dd35b996287dcc63bbef1ab70f94c4eb99211 /src/interp/sys-utility.boot | |
parent | 79f5a19fba15519dfa7fe82f4dd1f0e91652cded (diff) | |
download | open-axiom-54c2b07353f228554b92269a9a4e688683ae85d6.tar.gz |
* algebra/data.spad.pamphlet (ByteBuffer): Tidy. Manage size
explicitly.
* algebra/net.spad.pamphlet (writeBytes!$InetClientStreamSocket):
Convert buffer to array before calling VM function.
(readBytes!$InetClientStreamSocket): Likewise.
* interp/sys-utility.boot (makeByteBuffer): Don't ask for fill
pointers.
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r-- | src/interp/sys-utility.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 31781fae..ad353d3b 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -320,8 +320,7 @@ writeByteToStreamSocket(s,b) == --% makeByteBuffer(n,b == 0) == - MAKE_-ARRAY(n,KEYWORD::ELEMENT_-TYPE,"%Byte", - KEYWORD::FILL_-POINTER,true, KEYWORD::INITIAL_-ELEMENT,b) + MAKE_-ARRAY(n,KEYWORD::ELEMENT_-TYPE,"%Byte",KEYWORD::INITIAL_-ELEMENT,b) quoteForm t == ["QUOTE",t] |