steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

On Windows, the overlapped structure high bits were always zero, so reading through a file > 4gb would loop forever.

Doug Coleman 2011-10-07 15:04:00 -07:00
parent d23105c6c3
commit 8464b116fc
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/io/files/windows/windows.factor
View File

@ -68,7 +68,10 @@ C: <io-callback> io-callback
: make-overlapped ( port -- overlapped-ext ) : make-overlapped ( port -- overlapped-ext )
[ (make-overlapped) ] dip [ (make-overlapped) ] dip
handle>> ptr>> [ >>offset ] when* ; handle>> ptr>> [
[ 32 bits >>offset ]
[ -32 shift >>offset-high ] bi
] when* ;
M: windows FileArgs-overlapped ( port -- overlapped ) M: windows FileArgs-overlapped ( port -- overlapped )
make-overlapped ; make-overlapped ;