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

- don't call ToSingleByteFileSystemEncodedFileName in SysUtils.FileOpen and

Browse Source 
.FileCreate, because ConvertToFdRelativePath already calls it
This commit is contained in:
Nikolay Nikolov 2021-10-11 11:21:33 +03:00
parent 05c6937fd9
commit c8d5bd77a3
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/wasi/sysutils.pp
View File

@ -73,14 +73,12 @@ end;
Function FileOpen (Const FileName : RawByteString; Mode : Integer) : THandle;
Var
SystemFileName: RawByteString;
fs_rights_base: __wasi_rights_t = 0;
ourfd: __wasi_fd_t;
res: __wasi_errno_t;
pr: RawByteString;
fd: __wasi_fd_t;
Begin
SystemFileName:=ToSingleByteFileSystemEncodedFileName(FileName);
case (Mode and (fmOpenRead or fmOpenWrite or fmOpenReadWrite)) of
fmOpenRead:
fs_rights_base :=__WASI_RIGHTS_FD_READ or
@ -118,7 +116,7 @@ Begin
__WASI_RIGHTS_FD_DATASYNC or
__WASI_RIGHTS_FD_SYNC;
end;
if not ConvertToFdRelativePath(SystemFileName,fd,pr) then
if not ConvertToFdRelativePath(FileName,fd,pr) then
begin
result:=-1;
exit;
@ -158,14 +156,12 @@ Const
__WASI_RIGHTS_FD_DATASYNC or
__WASI_RIGHTS_FD_SYNC;
Var
SystemFileName: RawByteString;
ourfd: __wasi_fd_t;
res: __wasi_errno_t;
pr: RawByteString;
fd: __wasi_fd_t;
Begin
SystemFileName:=ToSingleByteFileSystemEncodedFileName(FileName);
if not ConvertToFdRelativePath(SystemFileName,fd,pr) then
if not ConvertToFdRelativePath(FileName,fd,pr) then
begin
result:=-1;
exit;