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

+ implemented Do_Seek and Do_Seekend for the WASI target

Browse Source 
git-svn-id: trunk@49531 -
This commit is contained in:
nickysn 2021-06-23 00:20:48 +00:00
parent 17fac45ddc
commit 539ea53bab
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/wasi/sysfile.inc
View File

@ -123,13 +123,33 @@ begin
end;
procedure Do_Seek(Handle:thandle;Pos:Int64);
var
res: __wasi_errno_t;
newoffset: __wasi_filesize_t;
begin
DebugWriteLn('Do_Seek');
res:=__wasi_fd_seek(Handle,Pos,__WASI_WHENCE_SET,@newoffset);
if res=__WASI_ERRNO_SUCCESS then
InOutRes:=0
else
InOutRes:=Errno2InoutRes(res);
end;
function Do_Seekend(Handle:thandle):Int64;
var
res: __wasi_errno_t;
newoffset: __wasi_filesize_t;
begin
DebugWriteLn('Do_Seekend');
res:=__wasi_fd_seek(Handle,0,__WASI_WHENCE_END,@newoffset);
if res=__WASI_ERRNO_SUCCESS then
begin
InOutRes:=0;
Do_Seekend:=newoffset;
end
else
begin
InOutRes:=Errno2InoutRes(res);
Do_Seekend:=-1;
end;
end;
function Do_FileSize(Handle:thandle):Int64;