Browse Source

AROS: Unit exec update. Memory sizes are IPTR

Memory sizes are expressed in IPTR/PtrUInt in order to be compatible to both
32 and 64-bit.

This changes some of Exec API call signatures and should not impact
existing code.

These changes reflect the changes made in the exec RTL (that were present in
the previous commit) but note that Unit Exec record structures were already
up to date.

See: https://github.com/aros-development-team/AROS/commit/d7df812342ac2bfc7df2fd271c4cab473fe804b3
magorium 3 years ago
parent
commit
2324055b1f
1 changed files with 15 additions and 15 deletions
  1. 15 15
      packages/arosunits/src/exec.pas

+ 15 - 15
packages/arosunits/src/exec.pas

@@ -1242,12 +1242,12 @@ function SetIntVector(IntNumber: LongInt; const Interrupt_: PInterrupt): PInterr
 procedure AddIntServer(IntNumber: ULONG; Interrupt_: PInterrupt); syscall AOS_ExecBase 28;
 procedure RemIntServer(IntNumber: ULONG; Interrupt_: PInterrupt); syscall AOS_ExecBase 29;
 procedure Cause(Interrupt_: PInterrupt); syscall AOS_ExecBase 30;
-function Allocate(FreeList: PMemHeader; ByteSize: ULONG): PMemHeader; syscall AOS_ExecBase 31;
-procedure Deallocate(FreeList: PMemHeader; MemoryBlock: APTR; ByteSize: ULONG); syscall AOS_ExecBase 32;
-function ExecAllocMem(ByteSize: ULONG; Requirements: ULONG): APTR; syscall AOS_ExecBase 33;
-function AllocAbs(ByteSize: ULONG; Location: APTR): APTR; syscall AOS_ExecBase 34;
-procedure ExecFreeMem(MemoryBlock: APTR; ByteSize: ULONG); syscall AOS_ExecBase 35;
-function AvailMem(Requirements: ULONG): ULONG; syscall AOS_ExecBase 36;
+function Allocate(FreeList: PMemHeader; ByteSize: IPTR): PMemHeader; syscall AOS_ExecBase 31;
+procedure Deallocate(FreeList: PMemHeader; MemoryBlock: APTR; ByteSize: IPTR); syscall AOS_ExecBase 32;
+function ExecAllocMem(ByteSize: IPTR; Requirements: ULONG): APTR; syscall AOS_ExecBase 33;
+function AllocAbs(ByteSize: IPTR; Location: APTR): APTR; syscall AOS_ExecBase 34;
+procedure ExecFreeMem(MemoryBlock: APTR; ByteSize: IPTR); syscall AOS_ExecBase 35;
+function AvailMem(Requirements: ULONG): IPTR; syscall AOS_ExecBase 36;
 function AllocEntry(Entry: PMemList): PMemList; syscall AOS_ExecBase 37;
 procedure FreeEntry(Entry: PMemList); syscall AOS_ExecBase 38;
 procedure ExecInsert(List: PList; Node: PNode; Pred: PNode); syscall AOS_ExecBase 39;
@@ -1314,9 +1314,9 @@ function FindSemaphore(const SigSem: STRPTR): PSignalSemaphore; syscall AOS_Exec
 procedure AddSemaphore(SigSem: PSignalSemaphore); syscall AOS_ExecBase 100;
 procedure RemSemaphore(SigSem: PSignalSemaphore); syscall AOS_ExecBase 101;
 procedure SumKickData; syscall AOS_ExecBase 102;
-procedure AddMemList(Size: ULONG; Attributes: ULONG; Pri: LongInt; Base: APTR; const Name: STRPTR); syscall AOS_ExecBase 103;
-procedure CopyMem(const Source: APTR; Dest: APTR; Size: ULONG); syscall AOS_ExecBase 104;
-procedure CopyMemQuick(const Source: APTR; Dest: APTR; Size: ULONG); syscall AOS_ExecBase 105;
+procedure AddMemList(Size: IPTR; Attributes: ULONG; Pri: LongInt; Base: APTR; const Name: STRPTR); syscall AOS_ExecBase 103;
+procedure CopyMem(const Source: APTR; Dest: APTR; Size: IPTR); syscall AOS_ExecBase 104;
+procedure CopyMemQuick(const Source: APTR; Dest: APTR; Size: IPTR); syscall AOS_ExecBase 105;
 procedure CacheClearU;syscall AOS_ExecBase 106;
 procedure CacheClearE(Address: APTR; Length: ULONG; Caches: ULONG); syscall AOS_ExecBase 107;
 function CacheControl(CacheBits: ULONG; CacheMask: ULONG): ULONG; syscall AOS_ExecBase 108;
@@ -1325,12 +1325,12 @@ procedure DeleteIORequest(IORequest: APTR); syscall AOS_ExecBase 110;
 function CreateMsgPort: PMsgPort; syscall AOS_ExecBase 111;
 procedure DeleteMsgPort(Port: PMsgPort); syscall AOS_ExecBase 112;
 procedure ObtainSemaphoreShared(SigSem: PSignalSemaphore); syscall AOS_ExecBase 113;
-function AllocVec(ByteSize: ULONG; Requirements: ULONG): APTR; syscall AOS_ExecBase 114;
+function AllocVec(ByteSize: IPTR; Requirements: ULONG): APTR; syscall AOS_ExecBase 114;
 procedure FreeVec(MemoryBlock: APTR); syscall AOS_ExecBase 115;
-function CreatePool(Requirements: ULONG; PuddleSize: ULONG; ThreshSize: ULONG): APTR; syscall AOS_ExecBase 116;
+function CreatePool(Requirements: ULONG; PuddleSize: IPTR; ThreshSize: IPTR): APTR; syscall AOS_ExecBase 116;
 procedure DeletePool(PoolHeader: APTR); syscall AOS_ExecBase 117;
-function AllocPooled(PoolHeader: APTR; MemSize: ULONG): APTR; syscall AOS_ExecBase 118;
-procedure FreePooled(PoolHeader: APTR; Memory: APTR; MemSize: ULONG); syscall AOS_ExecBase 119;
+function AllocPooled(PoolHeader: APTR; MemSize: IPTR): APTR; syscall AOS_ExecBase 118;
+procedure FreePooled(PoolHeader: APTR; Memory: APTR; MemSize: IPTR); syscall AOS_ExecBase 119;
 function AttemptSemaphoreShared(SigSem: PSignalSemaphore): ULONG; syscall AOS_ExecBase 120;
 procedure ColdReboot; syscall AOS_ExecBase 121;
 procedure StackSwap(NewStack: PStackSwapStruct); syscall AOS_ExecBase 122; deprecated;
@@ -1368,7 +1368,7 @@ function AVL_FindNextNodeByKey(Node: PAVLNode; Key: AVLKey; func: PAVLKeyComp):
 function AVL_FindFirstNode(Root: PAVLNode): PAVLNode; syscall AOS_ExecBase 147;
 function AVL_FindLastNode(Root: PAVLNode): PAVLNode; syscall AOS_ExecBase 148;
 function NewAddTaskA(Task: PTask; InitialPC: APTR; FinalPC: APTR; TagList: PTagItem): APTR; syscall AOS_ExecBase 152;
-function AllocVecPooled(Pool: APTR; Size: ULONG): APTR; syscall AOS_ExecBase 149;
+function AllocVecPooled(Pool: APTR; Size: IPTR): APTR; syscall AOS_ExecBase 149;
 procedure FreeVecPooled(Pool: APTR; Memory: APTR); syscall AOS_ExecBase 150;
 function NewAllocEntry(Entry: PMemList; var Return_Entry: PMemList; var Return_Flags: ULONG): LongBool; syscall AOS_ExecBase 151;
 {$endif}
@@ -1386,7 +1386,7 @@ function AVL_FindNextNodeByKey(Node: PAVLNode; Key: AVLKey; func: PAVLKeyComp):
 function AVL_FindFirstNode(Root: PAVLNode): PAVLNode; syscall AOS_ExecBase 150;
 function AVL_FindLastNode(Root: PAVLNode): PAVLNode; syscall AOS_ExecBase 151;
 function FindTaskByPID(ProcessID: LongWord): PTask; syscall AOS_ExecBase 166;
-function AllocVecPooled(Pool: APTR; Size: ULONG): APTR; syscall AOS_ExecBase 169;
+function AllocVecPooled(Pool: APTR; Size: IPTR): APTR; syscall AOS_ExecBase 169;
 procedure FreeVecPooled(Pool: APTR; Memory: APTR); syscall AOS_ExecBase 170;
 function NewAllocEntry(Entry: PMemList; var Return_Entry: PMemList; var Return_Flags: ULONG): LongBool; syscall AOS_ExecBase 174;
 function NewAddTaskA(Task: PTask; InitialPC: APTR; FinalPC: APTR; TagList: PTagItem): APTR; syscall AOS_ExecBase 176;