paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed the zero constants from the implementation of SysUtils.FileOpen for WASI

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-11 10:26:06 +03:00
parent 0bbc5a7528
commit 305393a9c1
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/wasi/sysutils.pp
View File

@ -74,9 +74,7 @@ end;
Function FileOpen (Const FileName : RawByteString; Mode : Integer) : THandle;
Var
SystemFileName: RawByteString;
oflags : __wasi_oflags_t = 0;
fs_rights_base: __wasi_rights_t = 0;
fdflags: __wasi_fdflags_t = 0;
ourfd: __wasi_fd_t;
res: __wasi_errno_t;
pr: RawByteString;
@ -130,10 +128,10 @@ Begin
0,
PChar(pr),
length(pr),
oflags,
0,
fs_rights_base,
fs_rights_base,
fdflags,
0,
@ourfd);
until (res=__WASI_ERRNO_SUCCESS) or (res<>__WASI_ERRNO_INTR);
If res=__WASI_ERRNO_SUCCESS Then