Преглед на файлове

* TMethod.Code changed to CodePointer

git-svn-id: trunk@24840 -
nickysn преди 12 години
родител
ревизия
9b59809ac3
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  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