paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 02:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented SysUtils.FileClose for WASI

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-11 09:52:09 +03:00
parent 27df4e98d2
commit aa4070ca8a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/wasi/sysutils.pp
View File

@ -112,7 +112,12 @@ end;
Procedure FileClose (Handle : THandle);
var
res: __wasi_errno_t;
begin
repeat
res:=__wasi_fd_close(Handle);
until (res=__WASI_ERRNO_SUCCESS) or (res<>__WASI_ERRNO_INTR);
end;