* TMethod.Code changed to CodePointer

git-svn-id: trunk@24840 -

rtl/inc/objpash.inc

@@ -181,7 +181,8 @@
        end;
 
        TMethod = record
-         Code, Data : Pointer;
+         Code : CodePointer;
+         Data : Pointer;
        end;
 
        TObject = class