From 0af333bd0f04010aa86fca053d29b8c53bb01796 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 22 Jun 2021 23:36:30 +0000
Subject: [PATCH] + implemented RmDir for the WASI target

git-svn-id: trunk@49526 -
---
 rtl/wasi/sysdir.inc | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/rtl/wasi/sysdir.inc b/rtl/wasi/sysdir.inc
index bbdbf3184a..0694308f71 100644
--- a/rtl/wasi/sysdir.inc
+++ b/rtl/wasi/sysdir.inc
@@ -35,8 +35,19 @@ begin
 end;
 
 procedure Do_RmDir(s: rawbytestring);
+var
+  fd: __wasi_fd_t;
+  pr: PChar;
+  res: __wasi_errno_t;
 begin
-  DebugWriteLn('Do_RmDir');
+  if not ConvertToFdRelativePath(PChar(s),fd,pr) then
+    exit;
+  res:=__wasi_path_remove_directory(fd,pr,StrLen(pr));
+  if res=__WASI_ERRNO_SUCCESS then
+    InOutRes:=0
+  else
+    InOutRes:=Errno2InoutRes(res);
+  FreeMem(pr);
 end;
 
 procedure do_ChDir(s: rawbytestring);