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

* several bugfixes by Nils Sjoholm

Browse Source
This commit is contained in:
carl 1998-09-14 20:23:03 +00:00
parent 7502f0489f
commit a5e83e029c
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/amiga/exec.inc
View File

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