* virtual method pointers in the objpas.TVmt record declared as codepointer; the vmtXXX constants also fixed

git-svn-id: trunk@25192 -

rtl/inc/objpash.inc

@@ -47,18 +47,18 @@
        { methods }
        vmtMethodStart          = vmtParent+sizeof(pointer)*10;
        vmtDestroy              = vmtMethodStart;
-       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;
-       vmtDispatch             = vmtMethodStart+sizeof(pointer)*8;
-       vmtDispatchStr          = vmtMethodStart+sizeof(pointer)*9;
-       vmtEquals               = vmtMethodStart+sizeof(pointer)*10;
-       vmtGetHashCode          = vmtMethodStart+sizeof(pointer)*11;
-       vmtToString             = vmtMethodStart+sizeof(pointer)*12;
+       vmtNewInstance          = vmtMethodStart+sizeof(codepointer);
+       vmtFreeInstance         = vmtMethodStart+sizeof(codepointer)*2;
+       vmtSafeCallException    = vmtMethodStart+sizeof(codepointer)*3;
+       vmtDefaultHandler       = vmtMethodStart+sizeof(codepointer)*4;
+       vmtAfterConstruction    = vmtMethodStart+sizeof(codepointer)*5;
+       vmtBeforeDestruction    = vmtMethodStart+sizeof(codepointer)*6;
+       vmtDefaultHandlerStr    = vmtMethodStart+sizeof(codepointer)*7;
+       vmtDispatch             = vmtMethodStart+sizeof(codepointer)*8;
+       vmtDispatchStr          = vmtMethodStart+sizeof(codepointer)*9;
+       vmtEquals               = vmtMethodStart+sizeof(codepointer)*10;
+       vmtGetHashCode          = vmtMethodStart+sizeof(codepointer)*11;
+       vmtToString             = vmtMethodStart+sizeof(codepointer)*12;
 
        { IInterface }
        S_OK          = 0;
@@ -110,19 +110,19 @@
          vAutoTable: Pointer;
          vIntfTable: PInterfaceTable;
          vMsgStrPtr: pstringmessagetable;
-         vDestroy: Pointer;
-         vNewInstance: Pointer;
-         vFreeInstance: Pointer;
-         vSafeCallException: Pointer;
-         vDefaultHandler: Pointer;
-         vAfterConstruction: Pointer;
-         vBeforeDestruction: Pointer;
-         vDefaultHandlerStr: Pointer;
-         vDispatch: Pointer;
-         vDispatchStr: Pointer;
-         vEquals: Pointer;
-         vGetHashCode: Pointer;
-         vToString: Pointer;
+         vDestroy: CodePointer;
+         vNewInstance: CodePointer;
+         vFreeInstance: CodePointer;
+         vSafeCallException: CodePointer;
+         vDefaultHandler: CodePointer;
+         vAfterConstruction: CodePointer;
+         vBeforeDestruction: CodePointer;
+         vDefaultHandlerStr: CodePointer;
+         vDispatch: CodePointer;
+         vDispatchStr: CodePointer;
+         vEquals: CodePointer;
+         vGetHashCode: CodePointer;
+         vToString: CodePointer;
        end;
 
        PGuid = ^TGuid;