From 54c2b07353f228554b92269a9a4e688683ae85d6 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 15 Feb 2009 21:36:21 +0000 Subject: * 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. --- src/interp/sys-utility.boot | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/interp/sys-utility.boot') 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] -- cgit v1.2.3