diff options
author | marcus <marcus@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-03-19 20:48:43 +0000 |
---|---|---|
committer | marcus <marcus@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-03-19 20:48:43 +0000 |
commit | 14c355cb2b240665b7fba52f39eb3ca02468f290 (patch) | |
tree | f795f07cac52ab3c1699cbaf9a8d2878502ef1e2 /packages/os4units | |
parent | 514b115fda9980b581e9ee6531f6f5e9344bee7d (diff) | |
download | fpc-14c355cb2b240665b7fba52f39eb3ca02468f290.tar.gz |
AROS, AmigaOS4: unified ASL unit for all amiga-likes
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@41747 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/os4units')
-rw-r--r-- | packages/os4units/src/asl.pas | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/packages/os4units/src/asl.pas b/packages/os4units/src/asl.pas index 883df0886f..5550e8e8cf 100644 --- a/packages/os4units/src/asl.pas +++ b/packages/os4units/src/asl.pas @@ -506,10 +506,10 @@ function ASLClone(): PInterface; syscall IDos 72; function AllocFileRequest: PFileRequester; syscall IASL 76; procedure FreeFileRequest(FileReq: PFileRequester); syscall IASL 80; function RequestFile(FileReq: PFileRequester): LongBool; syscall IASL 84; -function AllocAslRequestA(ReqType: LongWord; TagList: PTagItem): Pointer; syscall IASL 88; +function AllocAslRequest(ReqType: LongWord; TagList: PTagItem): Pointer; syscall IASL 88; // 92 AllocAslRequestTags procedure FreeAslRequest(Requester: Pointer); syscall IASL 96; -function AslRequestA(Requester: Pointer; TagList: PTagItem): LongBool; syscall IASL 100; +function AslRequest(Requester: Pointer; TagList: PTagItem): LongBool; syscall IASL 100; // 104 AslRequestTags procedure AslFreeVec(Memory: APTR); syscall IASL 108; function AslAllocVec(ByteSize: LongWord; Attributes: LongWord): APTR; syscall IASL 112; @@ -518,25 +518,25 @@ procedure ActivateAslRequest(Requester: APTR); syscall IASL 120; function AslControl(const Tags: PTagItem): LongWord; syscall IASL 124; // 128 AslControlTags -function AllocAslRequest(ReqType: LongWord; const Tags: array of PtrUInt): Pointer; -function AslRequest(Requester: Pointer; const Tags: array of PtrUInt): LongBool; -function AslRequestTags(Requester: Pointer; const Tags: array of PtrUInt): LongBool; +function AllocAslRequestTags(ReqType: LongWord; const Tags: array of PtrUInt): Pointer; inline; +function AslRequestTags(Requester: Pointer; const Tags: array of PtrUInt): LongBool; inline; +function AslControlTags(const Tags: array of PtrUInt): LongWord; inline; implementation -function AllocAslRequest(ReqType: LongWord; const Tags: array of PtrUInt): Pointer; inline; +function AllocAslRequestTags(ReqType: LongWord; const Tags: array of PtrUInt): Pointer; inline; begin - AllocAslRequest := AllocAslRequestA(reqType, @Tags); + AllocAslRequestTags := AllocAslRequest(ReqType, @Tags); end; -function AslRequest(Requester: Pointer; const Tags: array of PtrUInt): LongBool; inline; +function AslRequestTags(Requester: Pointer; const Tags: array of PtrUInt): LongBool; inline; begin - AslRequest := AslRequestA(Requester, @Tags); + AslRequestTags := AslRequest(Requester, @Tags); end; -function AslRequestTags(Requester: Pointer; const Tags: array of PtrUInt): LongBool; inline; +function AslControlTags(const Tags: array of PtrUInt): LongWord; inline; begin - AslRequestTags := AslRequestA(Requester, @Tags); + AslControlTags := AslControl(@Tags); end; initialization |