Update some utility RTL record structures to be 32/64-bit compatible. Unit Utility was already up-to-date with these changes.
@@ -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;