diff --git a/rtl/amiga/exec.inc b/rtl/amiga/exec.inc index 5f70357810..da3b111a7f 100644 --- a/rtl/amiga/exec.inc +++ b/rtl/amiga/exec.inc @@ -473,18 +473,15 @@ TYPE { ****** MemEntry **************************************************** } - pMemUnit = ^tMemUnit; - tMemUnit = Packed Record - meu_Reqs : ULONG; { * the AllocMem requirements * } - meu_Addr : Pointer; { * the address of this memory region * } - End; - pMemEntry = ^tMemEntry; - tMemEntry = Packed Record - me_Un : tMemUnit; - me_Length : ULONG; { * the length of this memory region * } - End; - + tMemEntry = packed record + me_Un : record + case longint of + 0 : ( meu_Reqs : ULONG ); + 1 : ( meu_Addr : APTR ); + end; + me_Length : ULONG; + end; { ****** MemList ***************************************************** } @@ -995,7 +992,6 @@ tExecBase = packed Record } ex_MemHandlers : tMinList; { The handler list } ex_MemHandler : Pointer; { Private! handler pointer } - ex_Reserved : Array[0..1] of Shortint; end;