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

windows.streams: get rid of workaround for stream-tell bug

db4
Joe Groff 2010-07-07 13:52:18 -07:00
parent e2237afd61
commit 987c2b8153
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/windows/streams/streams.factor
View File

@ -69,11 +69,10 @@ SPECIALIZED-ARRAY: uchar
:: IStream-unlock-region ( stream offset cb lock-type -- hresult ) :: IStream-unlock-region ( stream offset cb lock-type -- hresult )
STG_E_INVALIDFUNCTION ; STG_E_INVALIDFUNCTION ;
FROM: io.ports => tell-handle ;
:: stream-size ( stream -- size ) :: stream-size ( stream -- size )
stream stream-tell :> old-pos stream stream-tell :> old-pos
0 seek-end stream stream-seek 0 seek-end stream stream-seek
stream handle>> tell-handle :> size stream stream-tell :> size
old-pos seek-absolute stream stream-seek old-pos seek-absolute stream stream-seek
size ; size ;