* use CodePointer instead of Pointer in TObject.MethodName() and .MethodAddress() for i8086 medium memory model compatibility

git-svn-id: trunk@25152 -

rtl/inc/objpas.inc

@@ -374,7 +374,7 @@
       type
          tmethodnamerec = packed record
             name : pshortstring;
-            addr : pointer;
+            addr : codepointer;
          end;
 
          tmethodnametable = packed record
@@ -384,7 +384,7 @@
 
          pmethodnametable =  ^tmethodnametable;
 
-      class function TObject.MethodAddress(const name : shortstring) : pointer;
+      class function TObject.MethodAddress(const name : shortstring) : codepointer;
 
         var
            methodtable : pmethodnametable;
@@ -411,7 +411,7 @@
         end;
 
 
-      class function TObject.MethodName(address : pointer) : shortstring;
+      class function TObject.MethodName(address : codepointer) : shortstring;
         var
            methodtable : pmethodnametable;
            i : dword;

rtl/inc/objpash.inc

@@ -211,8 +211,8 @@
           class function InheritsFrom(aclass : tclass) : boolean;
           class function StringMessageTable : pstringmessagetable;
 
-          class function MethodAddress(const name : shortstring) : pointer;
-          class function MethodName(address : pointer) : shortstring;
+          class function MethodAddress(const name : shortstring) : codepointer;
+          class function MethodName(address : codepointer) : shortstring;
           function FieldAddress(const name : shortstring) : pointer;
 
           { new since Delphi 4 }