From e2ce0e54c20c0a40e558c490a9fd3c679ce66c15 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sun, 16 Dec 2012 23:46:27 +0000
Subject: [PATCH] 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 | 7 +------
 rtl/amiga/sysdir.inc     | 6 +++---
 rtl/amiga/sysutils.pp    | 3 ++-
 3 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/rtl/amiga/m68k/execd.inc b/rtl/amiga/m68k/execd.inc
index 197364c415..77172fd560 100644
--- a/rtl/amiga/m68k/execd.inc
+++ b/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)
   *********************************************************************
   * }
diff --git a/rtl/amiga/sysdir.inc b/rtl/amiga/sysdir.inc
index 6f6a90bc0f..bd2316eaf1 100644
--- a/rtl/amiga/sysdir.inc
+++ b/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;
diff --git a/rtl/amiga/sysutils.pp b/rtl/amiga/sysutils.pp
index 1dd3dc99fb..3dd3926b0e 100644
--- a/rtl/amiga/sysutils.pp
+++ b/rtl/amiga/sysutils.pp
@@ -514,8 +514,9 @@ end;
                               Misc Functions
 ****************************************************************************}
 
-procedure Beep;
+procedure SysBeep;
 begin
+// TODO
 end;