Add aliases fro mkdir/rmdir/chdir

git-svn-id: trunk@23182 -

rtl/amiga/sysdir.inc

@@ -18,7 +18,7 @@
 {*****************************************************************************
                            Directory Handling
 *****************************************************************************}
-procedure mkdir(s : pchar; len : sizeuint); [IOCheck];
+procedure mkdir(s : pchar; len : sizeuint); [IOCheck, public, alias : 'FPC_SYS_MKDIR'];
 var
   tmpStr : array[0..255] of char;
   tmpLock: LongInt;
@@ -34,7 +34,7 @@ begin
   UnLock(tmpLock);
 end;
 
-procedure rmdir(s : pchar; len : sizeuint); [IOCheck];
+procedure rmdir(s : pchar; len : sizeuint); [IOCheck, public, alias : 'FPC_SYS_RMDIR'];
 var
   tmpStr : array[0..255] of Char;
 begin
@@ -46,7 +46,7 @@ begin
     dosError2InOut(IoErr);
 end;
 
-procedure chdir(s : pchar; len : sizeuint); [IOCheck];
+procedure sys_chdir(s : pchar);
 var
   tmpStr : array[0..255] of Char;
   tmpLock: LongInt;
@@ -81,6 +81,13 @@ begin
   if assigned(FIB) then dispose(FIB);
 end;
 
+Procedure ChDir(s: pchar;len:sizeuint);[IOCheck, public, alias : 'FPC_SYS_CHDIR'];
+begin
+  If not assigned(s) or (len=0) or (InOutRes <> 0) then
+    exit;
+  sys_chdir(s);
+end;
+
 procedure GetDir (DriveNr: byte; var Dir: ShortString);
 var tmpbuf: array[0..255] of char;
 begin