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

+ request the FD_FILESTAT_GET capability when opening files

Browse Source 
git-svn-id: trunk@49539 -
This commit is contained in:
nickysn 2021-06-23 20:58:10 +00:00
parent 25a9843ea4
commit c48f27225e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/wasi/sysfile.inc
View File

@ -222,15 +222,15 @@ Begin
{ We do the conversion of filemodes here, concentrated on 1 place }
case (flags and 3) of
0 : begin
fs_rights_base :=__WASI_RIGHTS_FD_READ;
fs_rights_base :=__WASI_RIGHTS_FD_READ or __WASI_RIGHTS_FD_FILESTAT_GET;
FileRec(f).mode:=fminput;
end;
1 : begin
fs_rights_base :=__WASI_RIGHTS_FD_WRITE;
fs_rights_base :=__WASI_RIGHTS_FD_WRITE or __WASI_RIGHTS_FD_FILESTAT_GET;
FileRec(f).mode:=fmoutput;
end;
2 : begin
fs_rights_base :=__WASI_RIGHTS_FD_READ or __WASI_RIGHTS_FD_WRITE;
fs_rights_base :=__WASI_RIGHTS_FD_READ or __WASI_RIGHTS_FD_WRITE or __WASI_RIGHTS_FD_FILESTAT_GET;
FileRec(f).mode:=fminout;
end;
end;