Fix Unix I/O on 64-bit
parent
44c1c1f679
commit
33655a7044
|
@ -168,7 +168,7 @@ M: stdin dispose
|
||||||
|
|
||||||
: wait-for-stdin ( stdin -- n )
|
: wait-for-stdin ( stdin -- n )
|
||||||
[ control>> CHAR: X over io:stream-write1 io:stream-flush ]
|
[ control>> CHAR: X over io:stream-write1 io:stream-flush ]
|
||||||
[ size>> "uint" heap-size swap io:stream-read *uint ]
|
[ size>> "size_t" heap-size swap io:stream-read *uint ]
|
||||||
bi ;
|
bi ;
|
||||||
|
|
||||||
:: refill-stdin ( buffer stdin size -- )
|
:: refill-stdin ( buffer stdin size -- )
|
||||||
|
|
Loading…
Reference in New Issue