Parcourir la source

* TMethod.Code changed to CodePointer

git-svn-id: trunk@24840 -
nickysn il y a 12 ans
Parent
commit
9b59809ac3
1 fichiers modifiés avec 2 ajouts et 1 suppressions
  1. 2 1
      rtl/inc/objpash.inc

+ 2 - 1
rtl/inc/objpash.inc

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