paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 09:19:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* info record about class fields must be packed else it will be aligned wrongly on 64 bit platforms

Browse Source
This commit is contained in:
florian 2004-11-03 10:22:19 +00:00
parent 33494a7775
commit ac7f9351f0
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/objpas.inc
View File

@ -529,12 +529,12 @@
procedure TObject.CleanupInstance;
Type
TRecElem = Record
TRecElem = packed Record
Info : Pointer;
Offset : Longint;
end;
TRecElemArray = Array[1..Maxint] of TRecElem;
TRecElemArray = packed array[1..Maxint] of TRecElem;
PRecRec = ^TRecRec;
TRecRec = record
@ -758,7 +758,10 @@
{
$Log$
Revision 1.42 2004-10-24 20:01:41 peter
Revision 1.43 2004-11-03 10:22:19 florian
* info record about class fields must be packed else it will be aligned wrongly on 64 bit platforms
Revision 1.42 2004/10/24 20:01:41 peter
* saveregisters calling convention is obsolete
Revision 1.41 2004/10/10 19:18:31 florian