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

+ implemented WASI file close

Browse Source 
git-svn-id: branches/wasm@48344 -
This commit is contained in:
nickysn 2021-01-23 07:04:32 +00:00
parent 8e2e31f95c
commit a28eb39f4b
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/wasi/sysfile.inc
View File

@ -14,8 +14,16 @@
**********************************************************************}
procedure Do_Close(Handle:thandle);
var
res: __wasi_errno_t;
begin
DebugWriteLn('Do_Close');
repeat
res:=fd_close(Handle);
until (res=__WASI_ERRNO_SUCCESS) or (res<>__WASI_ERRNO_INTR);
if res=__WASI_ERRNO_SUCCESS then
InOutRes:=0
else
InOutRes:=Errno2InoutRes(res);
end;
procedure Do_Erase(p: pchar; pchangeable: boolean);

1
rtl/wasi/system.pp
View File

@ -244,6 +244,7 @@ function path_open(fd: __wasi_fd_t;
fs_rights_inherting: __wasi_rights_t;
fdflags: __wasi_fdflags_t;
opened_fd: P__wasi_fd_t): __wasi_errno_t; external 'wasi_snapshot_preview1';
function fd_close(fd: __wasi_fd_t): __wasi_errno_t; external 'wasi_snapshot_preview1';
{$I system.inc}