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

AROS, Amiga: Exec.library AllocMem renamed to ExecAllocMem (unification with MorphOS)

Browse Source 
git-svn-id: trunk@31600 -
This commit is contained in:
marcus 2015-09-11 15:08:31 +00:00
parent c9a1ee5c8f
commit 5a77040787
4 changed files with 133 additions and 133 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/amunits/src/coreunits/amigalib.pas
View File

@ -186,7 +186,7 @@ begin
IOReq := NIL;
if port <> NIL then
begin
IOReq := AllocMem(size, MEMF_CLEAR or MEMF_PUBLIC);
IOReq := ExecAllocMem(size, MEMF_CLEAR or MEMF_PUBLIC);
if IOReq <> NIL then
begin
IOReq^.io_Message.mn_Node.ln_Type := NT_REPLYMSG;
@ -229,7 +229,7 @@ var
begin
sigbit := AllocSignal(-1);
if sigbit = -1 then CreatePort := nil;
port := Allocmem(sizeof(tMsgPort),MEMF_CLEAR or MEMF_PUBLIC);
port := ExecAllocmem(sizeof(tMsgPort),MEMF_CLEAR or MEMF_PUBLIC);
if port = nil then begin
FreeSignal(sigbit);
CreatePort := nil;
@ -275,7 +275,7 @@ begin
stackSize := (stackSize + 3) and not 3;
totalsize := sizeof(tMemList) + sizeof(tTask) + stackSize;
memlist := AllocMem(totalsize, MEMF_PUBLIC + MEMF_CLEAR);
memlist := ExecAllocMem(totalsize, MEMF_PUBLIC + MEMF_CLEAR);
if memlist <> NIL then begin
memlist^.ml_NumEntries := 1;
memlist^.ml_ME[0].me_Un.meu_Addr := Pointer(memlist + 1);

2
packages/amunits/src/coreunits/exec.pas
View File

@ -1191,7 +1191,7 @@ PROCEDURE Alert(alertNum : ULONG location 'd7'); syscall _ExecBase 108;
FUNCTION AllocAbs(byteSize : ULONG location 'd0'; location : POINTER location 'a1') : POINTER; syscall _ExecBase 204;
FUNCTION Allocate(freeList : pMemHeader location 'a0'; byteSize : ULONG location 'd0') : POINTER; syscall _ExecBase 186;
FUNCTION AllocEntry(entry : pMemList location 'a0') : pMemList; syscall _ExecBase 222;
FUNCTION AllocMem(byteSize : ULONG location 'd0'; requirements : ULONG location 'd1') : POINTER; syscall _ExecBase 198;
FUNCTION ExecAllocMem(byteSize : ULONG location 'd0'; requirements : ULONG location 'd1') : POINTER; syscall _ExecBase 198;
FUNCTION AllocPooled(poolHeader : POINTER location 'a0'; memSize : ULONG location 'd0') : POINTER; syscall _ExecBase 708;
FUNCTION AllocSignal(signalNum : LONGINT location 'd0') : shortint; syscall _ExecBase 330;
FUNCTION AllocTrap(trapNum : LONGINT location 'd0') : LONGINT; syscall _ExecBase 342;

2
packages/amunits/src/utilunits/doublebuffer.pas
View File

@ -141,7 +141,7 @@ begin
OpenDoubleBuffer := Nil;
end;
bm := AllocMem(SizeOf(tBitMap), MEMF_PUBLIC);
bm := ExecAllocMem(SizeOf(tBitMap), MEMF_PUBLIC);
if bm = Nil then begin
CloseWindow(w);
CloseScreen(s);

2
packages/arosunits/src/exec.pas
View File

@ -1224,7 +1224,7 @@ procedure Alert(AlertNum: ULONG); syscall AOS_ExecBase 18;
function AllocAbs(ByteSize: ULONG; Location: APTR): APTR; syscall AOS_ExecBase 34;
function Allocate(FreeList: PMemHeader; ByteSize: ULONG): PMemHeader; syscall AOS_ExecBase 31;
function AllocEntry(Entry: PMemList): PMemList; syscall AOS_ExecBase 37;
function AllocMem(ByteSize: ULONG; Requirements: ULONG): APTR; syscall AOS_ExecBase 33;
function ExecAllocMem(ByteSize: ULONG; Requirements: ULONG): APTR; syscall AOS_ExecBase 33;
function AllocPooled(PoolHeader: APTR; MemSize: ULONG): APTR; syscall AOS_ExecBase 118;
function AllocSignal(SignalNum: LongInt): ShortInt; syscall AOS_ExecBase 55;
function AllocTrap(TrapNum: LongInt): LongInt; syscall AOS_ExecBase 57;