+ request fd_allocate rights when opening a file for writing

git-svn-id: trunk@49544 -

rtl/wasi/sysfile.inc

@@ -226,11 +226,11 @@ Begin
          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;
+         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;
+         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;