From 05c6937fd9dd592eb643bc94d1e16c1f95dc6e82 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Mon, 11 Oct 2021 11:14:05 +0300
Subject: [PATCH] + implemented SysUtils.RenameFile for WASI

---
 rtl/wasi/sysutils.pp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/rtl/wasi/sysutils.pp b/rtl/wasi/sysutils.pp
index adb58acee2..d03c61b3b5 100644
--- a/rtl/wasi/sysutils.pp
+++ b/rtl/wasi/sysutils.pp
@@ -353,7 +353,17 @@ end;
 
 
 Function RenameFile (Const OldName, NewName : RawByteString) : Boolean;
+var
+  fd1,fd2: __wasi_fd_t;
+  pr1,pr2: RawByteString;
+  res: __wasi_errno_t;
 begin
+  result:=false;
+  if not ConvertToFdRelativePath(OldName,fd1,pr1) then
+    exit;
+  if not ConvertToFdRelativePath(NewName,fd2,pr2) then
+    exit;
+  result:=__wasi_path_rename(fd1,PChar(pr1),Length(pr1),fd2,PChar(pr2),Length(pr2))=__WASI_ERRNO_SUCCESS;
 end;