paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 00:56:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

m68k-amiga: make it possible to disable functions newer than OS 2.0 (v37+)

Browse Source 
git-svn-id: trunk@44733 -
This commit is contained in:
Károly Balogh 2020-04-16 20:42:31 +00:00
parent 73b563b367
commit 36e4db15bc
2 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -666,6 +666,9 @@ function SameDevice(lock1: LongInt location 'd1';
lock2: LongInt location 'd2'): LongBool; lock2: LongInt location 'd2'): LongBool;
SysCall AOS_DOSBase 984; SysCall AOS_DOSBase 984;
// these functions are only available on v39+ (OS Release 3.0+)
{$IFNDEF AMIGA_V2_0_ONLY}
procedure ExAllEnd(lock : LongInt location 'd1'; procedure ExAllEnd(lock : LongInt location 'd1';
buffer : PExAllData location 'd2'; buffer : PExAllData location 'd2';
size : LongInt location 'd3'; size : LongInt location 'd3';
@ -677,12 +680,6 @@ function SetOwner(name : PChar location 'd1';
owner_info: LongInt location 'd2'): LongBool; owner_info: LongInt location 'd2'): LongBool;
SysCall AOS_DOSBase 996; SysCall AOS_DOSBase 996;
function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt; {$ENDIF AMIGA_V2_0_ONLY}
SysCall AOS_DOSBase 1002;
function FindSegmentTagList(tags: PTagItem location 'a0'): PSegment;
SysCall AOS_DOSBase 1008;
{$ENDIF AMIGA_V1_2_ONLY} {$ENDIF AMIGA_V1_2_ONLY}
{$ENDIF AMIGA_V1_0_ONLY} {$ENDIF AMIGA_V1_0_ONLY}

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

@ -394,6 +394,13 @@ SysCall AOS_ExecBase 684;
procedure FreeVec(memoryBlock: Pointer location 'a1'); procedure FreeVec(memoryBlock: Pointer location 'a1');
SysCall AOS_ExecBase 690; SysCall AOS_ExecBase 690;
// these functions are only available v39+ (OS Release 3.0+)
{$IFNDEF AMIGA_V2_0_ONLY}
{ Pool functions seem to be there in OS2.0 SDK, but not
publicly available/documented? Later NDK 3.9 marks them as
v39+ (KB) }
function CreatePool(requirements: Cardinal location 'd0'; function CreatePool(requirements: Cardinal location 'd0';
puddleSize : Cardinal location 'd1'; puddleSize : Cardinal location 'd1';
threshSize : Cardinal location 'd2'): Pointer; threshSize : Cardinal location 'd2'): Pointer;
@ -411,6 +418,8 @@ procedure FreePooled(poolHeader: Pointer location 'a0';
memSize : Cardinal location 'd0'); memSize : Cardinal location 'd0');
SysCall AOS_ExecBase 714; SysCall AOS_ExecBase 714;
{$ENDIF}
function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal; function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;
SysCall AOS_ExecBase 720; SysCall AOS_ExecBase 720;
@ -430,6 +439,9 @@ procedure CachePostDMA(address : Pointer location 'a0';
flags : Cardinal location 'd0'); flags : Cardinal location 'd0');
SysCall AOS_ExecBase 768; SysCall AOS_ExecBase 768;
// these functions are only available v39+ (OS Release 3.0+)
{$IFNDEF AMIGA_V2_0_ONLY}
procedure AddMemHandler(memhand: PInterrupt location 'a1'); procedure AddMemHandler(memhand: PInterrupt location 'a1');
SysCall AOS_ExecBase 774; SysCall AOS_ExecBase 774;
@ -439,6 +451,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_V2_0_ONLY}
{$ENDIF AMIGA_V1_2_ONLY} {$ENDIF AMIGA_V1_2_ONLY}
{$ENDIF AMIGA_V1_0_ONLY} {$ENDIF AMIGA_V1_0_ONLY}