paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 05:50:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented Do_Rename for the WASI target

Browse Source 
git-svn-id: trunk@49532 -
This commit is contained in:
nickysn 2021-06-23 00:30:47 +00:00
parent 539ea53bab
commit 125dbdc21c
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/wasi/sysfile.inc
View File

@ -54,8 +54,25 @@ begin
end;
procedure Do_Rename(p1,p2:pchar; p1changeable, p2changeable: boolean);
var
fd1,fd2: __wasi_fd_t;
pr1,pr2: PChar;
res: __wasi_errno_t;
begin
DebugWriteLn('Do_Rename');
if not ConvertToFdRelativePath(p1,fd1,pr1) then
exit;
if not ConvertToFdRelativePath(p2,fd2,pr2) then
begin
FreeMem(pr1);
exit;
end;
res:=__wasi_path_rename(fd1,pr1,StrLen(pr1),fd2,pr2,StrLen(pr2));
if res=__WASI_ERRNO_SUCCESS then
InOutRes:=0
else
InOutRes:=Errno2InoutRes(res);
FreeMem(pr1);
FreeMem(pr2);
end;
function Do_Write(Handle:thandle;Addr:Pointer;Len:Longint):longint;