* fixed vmt issues on 64 bit systems

rtl/inc/objpash.inc

@@ -20,29 +20,29 @@
 
     const
        vmtInstanceSize         = 0;
-       vmtParent               = 8;
+       vmtParent               = sizeof(longint)*2;
        { These were negative value's, but are now positive, else classes
          couldn't be used with shared linking which copies only all data from
          the .global directive and not the data before the directive (PFV) }
-       vmtClassName            = 12;
-       vmtDynamicTable         = 16;
-       vmtMethodTable          = 20;
-       vmtFieldTable           = 24;
-       vmtTypeInfo             = 28;
-       vmtInitTable            = 32;
-       vmtAutoTable            = 36;
-       vmtIntfTable            = 40;
-       vmtMsgStrPtr            = 44;
+       vmtClassName            = vmtParent+sizeof(pointer);
+       vmtDynamicTable         = vmtParent+sizeof(pointer)*2;
+       vmtMethodTable          = vmtParent+sizeof(pointer)*3;
+       vmtFieldTable           = vmtParent+sizeof(pointer)*4;
+       vmtTypeInfo             = vmtParent+sizeof(pointer)*5;
+       vmtInitTable            = vmtParent+sizeof(pointer)*6;
+       vmtAutoTable            = vmtParent+sizeof(pointer)*7;
+       vmtIntfTable            = vmtParent+sizeof(pointer)*8;
+       vmtMsgStrPtr            = vmtParent+sizeof(pointer)*9;
        { methods }
-       vmtMethodStart          = 48;
+       vmtMethodStart          = vmtParent+sizeof(pointer)*10;
        vmtDestroy              = vmtMethodStart;
-       vmtNewInstance          = vmtMethodStart+4;
-       vmtFreeInstance         = vmtMethodStart+8;
-       vmtSafeCallException    = vmtMethodStart+12;
-       vmtDefaultHandler       = vmtMethodStart+16;
-       vmtAfterConstruction    = vmtMethodStart+20;
-       vmtBeforeDestruction    = vmtMethodStart+24;
-       vmtDefaultHandlerStr    = vmtMethodStart+28;
+       vmtNewInstance          = vmtMethodStart+sizeof(pointer);
+       vmtFreeInstance         = vmtMethodStart+sizeof(pointer)*2;
+       vmtSafeCallException    = vmtMethodStart+sizeof(pointer)*3;
+       vmtDefaultHandler       = vmtMethodStart+sizeof(pointer)*4;
+       vmtAfterConstruction    = vmtMethodStart+sizeof(pointer)*5;
+       vmtBeforeDestruction    = vmtMethodStart+sizeof(pointer)*6;
+       vmtDefaultHandlerStr    = vmtMethodStart+sizeof(pointer)*7;
 
     type
        TextFile = Text;
@@ -102,9 +102,9 @@
 
        TObject = class
        public
-          { please don't change the order of virtual methods, because      }
-          { their vmt offsets are used by some assembler code which uses   }
-          { hard coded addresses      (FK)                                 }
+          { please don't change the order of virtual methods, because
+            their vmt offsets are used by some assembler code which uses
+            hard coded addresses      (FK)                                 }
           constructor Create;
           { the virtual procedures must be in THAT order }
           destructor Destroy;virtual;
@@ -299,7 +299,10 @@
 
 {
   $Log$
-  Revision 1.21  2003-12-06 00:02:34  florian
+  Revision 1.22  2004-04-25 16:32:31  florian
+    * fixed vmt issues on 64 bit systems
+
+  Revision 1.21  2003/12/06 00:02:34  florian
     * widechars in tvarrec fixed for big endian machines as well
 
   Revision 1.20  2003/12/05 23:54:04  jonas
@@ -323,4 +326,4 @@
   Revision 1.14  2002/09/07 15:07:46  peter
     * old logs removed and tabs fixed
 
-}
+}