paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 12:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@23159 -
This commit is contained in:
Károly Balogh 2012-12-16 23:46:27 +00:00
parent 4adb36e8da
commit e2ce0e54c2
3 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/amiga/m68k/execd.inc
View File

@ -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)
*********************************************************************
* }

6
rtl/amiga/sysdir.inc
View File

@ -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;

3
rtl/amiga/sysutils.pp
View File

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