From ac7f9351f075a8f32359a25e7c7a4023f632052c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 3 Nov 2004 10:22:19 +0000
Subject: [PATCH]   * info record about class fields must be packed else it
 will be aligned wrongly on 64 bit platforms

---
 rtl/inc/objpas.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index a79018ee98..1718aabf0f 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -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