Procházet zdrojové kódy

* TMethod.Code changed to CodePointer

git-svn-id: trunk@24840 -
nickysn před 12 roky
rodič
revize
9b59809ac3
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  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