paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:49:22 +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; procedure TObject.CleanupInstance;
Type Type
TRecElem = Record TRecElem = packed Record
Info : Pointer; Info : Pointer;
Offset : Longint; Offset : Longint;
end; end;
TRecElemArray = Array[1..Maxint] of TRecElem; TRecElemArray = packed array[1..Maxint] of TRecElem;
PRecRec = ^TRecRec; PRecRec = ^TRecRec;
TRecRec = record TRecRec = record
@ -758,7 +758,10 @@
{ {
$Log$ $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 * saveregisters calling convention is obsolete
Revision 1.41 2004/10/10 19:18:31 florian Revision 1.41 2004/10/10 19:18:31 florian