mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-23 08:09:31 +02:00
AROS: 32/64-bit RTL utility compatibility update
Update some utility RTL record structures to be 32/64-bit compatible. Unit Utility was already up-to-date with these changes.
This commit is contained in:
parent
853b9c5c96
commit
d78e39d360
@ -49,7 +49,7 @@ type
|
||||
PTagItem = ^TTagItem;
|
||||
TTagItem = record
|
||||
ti_Tag : Tag;
|
||||
ti_Data: Cardinal;
|
||||
ti_Data: PtrUInt;
|
||||
end;
|
||||
|
||||
|
||||
|
@ -45,8 +45,8 @@ type
|
||||
PHook = ^THook;
|
||||
THook = record
|
||||
h_MinNode : TMinNode;
|
||||
h_Entry : Cardinal;
|
||||
h_SubEntry: Cardinal;
|
||||
h_Entry : PtrUInt;
|
||||
h_SubEntry: PtrUInt;
|
||||
h_Data : Pointer;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user