made Amiga/68k RTL to build with new m68k compiler at least (result probably not functional yet)

git-svn-id: trunk@23159 -

rtl/amiga/m68k/execd.inc

@@ -5,7 +5,7 @@
     Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
 
     Free Pascal conversion
-    Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
+    Copyright (c) 2004-2012 Karoly Balogh
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -19,11 +19,6 @@
 {include emuld.inc}
 {$include utild1.inc}
 
-{$WARNING Ugly hack, remove this ASAP!}
-type
-  PInterface = Pointer;
-
-
 { * exec node definitions (V50)
   *********************************************************************
   * }

rtl/amiga/sysdir.inc

@@ -18,7 +18,7 @@
 {*****************************************************************************
                            Directory Handling
 *****************************************************************************}
-procedure mkdir(const s : string);[IOCheck];
+procedure mkdir(s : pchar; len : sizeuint); [IOCheck];
 var
   tmpStr : array[0..255] of char;
   tmpLock: LongInt;
@@ -34,7 +34,7 @@ begin
   UnLock(tmpLock);
 end;
 
-procedure rmdir(const s : string);[IOCheck];
+procedure rmdir(s : pchar; len : sizeuint); [IOCheck];
 var
   tmpStr : array[0..255] of Char;
 begin
@@ -46,7 +46,7 @@ begin
     dosError2InOut(IoErr);
 end;
 
-procedure chdir(const s : string);[IOCheck];
+procedure chdir(s : pchar; len : sizeuint); [IOCheck];
 var
   tmpStr : array[0..255] of Char;
   tmpLock: LongInt;

rtl/amiga/sysutils.pp

@@ -514,8 +514,9 @@ end;
                               Misc Functions
 ****************************************************************************}
 
-procedure Beep;
+procedure SysBeep;
 begin
+// TODO
 end;