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

m68k-amiga: add some defines, to disable part of OS headersin the RTL when compiling for OS1.x. this is to aid the implementation of future AmigaOS 1.x support

Browse Source 
git-svn-id: trunk@44372 -
This commit is contained in:
Károly Balogh 2020-03-27 04:31:10 +00:00
parent c239ae9414
commit 1aad73217c
3 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -129,6 +129,10 @@ function Execute(string1: PChar location 'd1';
file2 : LongInt location 'd3'): LongBool; file2 : LongInt location 'd3'): LongBool;
SysCall AOS_DOSBase 222; SysCall AOS_DOSBase 222;
// these functions are only available v36+ (OS Release 2.0+)
{$IFNDEF AMIGA_V1_0_ONLY}
{$IFNDEF AMIGA_V1_2_ONLY}
function AllocDosObject(type1: Cardinal location 'd1'; function AllocDosObject(type1: Cardinal location 'd1';
tags : PTagItem location 'd2'): Pointer; tags : PTagItem location 'd2'): Pointer;
SysCall AOS_DOSBase 228; SysCall AOS_DOSBase 228;
@ -679,5 +683,6 @@ SysCall AOS_DOSBase 1002;
function FindSegmentTagList(tags: PTagItem location 'a0'): PSegment; function FindSegmentTagList(tags: PTagItem location 'a0'): PSegment;
SysCall AOS_DOSBase 1008; SysCall AOS_DOSBase 1008;
{$ENDIF AMIGA_V1_2_ONLY}
{$ENDIF AMIGA_V1_0_ONLY}

9
rtl/amiga/m68k/execf.inc
View File

@ -306,6 +306,9 @@ function OpenLibrary(libname: PChar location 'a1';
libver : Cardinal location 'd0'): Pointer; libver : Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 552; SysCall AOS_ExecBase 552;
// these functions are only available v33+ (OS Release 1.2+)
{$IFNDEF AMIGA_V1_0_ONLY}
procedure InitSemaphore(sigSem: PSignalSemaphore location 'a0'); procedure InitSemaphore(sigSem: PSignalSemaphore location 'a0');
SysCall AOS_ExecBase 558; SysCall AOS_ExecBase 558;
@ -353,6 +356,9 @@ procedure CopyMemQuick(source: Pointer location 'a0';
size : Cardinal location 'd0'); size : Cardinal location 'd0');
SysCall AOS_ExecBase 630; SysCall AOS_ExecBase 630;
// these functions are only available v36+ (OS Release 2.0+)
{$IFNDEF AMIGA_V1_2_ONLY}
procedure CacheClearU; procedure CacheClearU;
SysCall AOS_ExecBase 636; SysCall AOS_ExecBase 636;
@ -433,4 +439,7 @@ SysCall AOS_ExecBase 780;
function ObtainQuickVector(interruptCode: Pointer location 'a0'): Cardinal; function ObtainQuickVector(interruptCode: Pointer location 'a0'): Cardinal;
SysCall AOS_ExecBase 786; SysCall AOS_ExecBase 786;
{$ENDIF AMIGA_V1_2_ONLY}
{$ENDIF AMIGA_V1_0_ONLY}
{ TODO: v45 functions (OS3.9) } { TODO: v45 functions (OS3.9) }

5
rtl/amiga/m68k/utilf.inc
View File

@ -13,6 +13,9 @@
**********************************************************************} **********************************************************************}
{ these functions are only available v36+ (OS Release 2.0+) }
{$IFNDEF AMIGA_V1_0_ONLY}
{$IFNDEF AMIGA_V1_2_ONLY}
function FindTagItem(tagVal : Cardinal location 'd0'; function FindTagItem(tagVal : Cardinal location 'd0';
tagList: PTagItem location 'a0'): PTagItem; tagList: PTagItem location 'a0'): PTagItem;
@ -163,3 +166,5 @@ SysCall AOS_UtilityBase 264;
function GetUniqueID: Cardinal; function GetUniqueID: Cardinal;
SysCall AOS_UtilityBase 270; SysCall AOS_UtilityBase 270;
{$ENDIF AMIGA_V1_2_ONLY}
{$ENDIF AMIGA_V1_0_ONLY}