paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 07:48:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* No double seek,

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-08-19 15:08:34 +02:00
parent 2d7c39d984
commit c1a482a13e
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/wasi/src/wasienv.pas
View File

@ -1581,8 +1581,7 @@ begin
end;
Result:=FS.Seek(fd,Offset,lWhence,NewPos);
if Result=WASI_ESUCCESS then
Result:=FS.Seek(fd,Offset,lWhence,NewPos);
SetMemInfoInt64(newOffsetPtr,NewPos);
SetMemInfoInt64(newOffsetPtr,NewPos);
except
On E : Exception do
Result:=ErrorToCode(E);