|
@@ -222,15 +222,31 @@ 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 or __WASI_RIGHTS_FD_FILESTAT_GET or __WASI_RIGHTS_FD_SEEK or __WASI_RIGHTS_FD_TELL;
|
|
|
+ fs_rights_base :=__WASI_RIGHTS_FD_READ or
|
|
|
+ __WASI_RIGHTS_FD_FILESTAT_GET or
|
|
|
+ __WASI_RIGHTS_FD_SEEK or
|
|
|
+ __WASI_RIGHTS_FD_TELL;
|
|
|
FileRec(f).mode:=fminput;
|
|
|
end;
|
|
|
1 : begin
|
|
|
- fs_rights_base :=__WASI_RIGHTS_FD_WRITE or __WASI_RIGHTS_FD_FILESTAT_GET or __WASI_RIGHTS_FD_SEEK or __WASI_RIGHTS_FD_TELL or __WASI_RIGHTS_FD_FILESTAT_SET_SIZE or __WASI_RIGHTS_FD_FILESTAT_SET_TIMES or __WASI_RIGHTS_FD_ALLOCATE;
|
|
|
+ fs_rights_base :=__WASI_RIGHTS_FD_WRITE or
|
|
|
+ __WASI_RIGHTS_FD_FILESTAT_GET or
|
|
|
+ __WASI_RIGHTS_FD_SEEK or
|
|
|
+ __WASI_RIGHTS_FD_TELL or
|
|
|
+ __WASI_RIGHTS_FD_FILESTAT_SET_SIZE or
|
|
|
+ __WASI_RIGHTS_FD_FILESTAT_SET_TIMES or
|
|
|
+ __WASI_RIGHTS_FD_ALLOCATE;
|
|
|
FileRec(f).mode:=fmoutput;
|
|
|
end;
|
|
|
2 : begin
|
|
|
- fs_rights_base :=__WASI_RIGHTS_FD_READ or __WASI_RIGHTS_FD_WRITE or __WASI_RIGHTS_FD_FILESTAT_GET or __WASI_RIGHTS_FD_SEEK or __WASI_RIGHTS_FD_TELL or __WASI_RIGHTS_FD_FILESTAT_SET_SIZE or __WASI_RIGHTS_FD_FILESTAT_SET_TIMES or __WASI_RIGHTS_FD_ALLOCATE;
|
|
|
+ fs_rights_base :=__WASI_RIGHTS_FD_READ or
|
|
|
+ __WASI_RIGHTS_FD_WRITE or
|
|
|
+ __WASI_RIGHTS_FD_FILESTAT_GET or
|
|
|
+ __WASI_RIGHTS_FD_SEEK or
|
|
|
+ __WASI_RIGHTS_FD_TELL or
|
|
|
+ __WASI_RIGHTS_FD_FILESTAT_SET_SIZE or
|
|
|
+ __WASI_RIGHTS_FD_FILESTAT_SET_TIMES or
|
|
|
+ __WASI_RIGHTS_FD_ALLOCATE;
|
|
|
FileRec(f).mode:=fminout;
|
|
|
end;
|
|
|
end;
|