From ef2423128f9fd54070bc7210a0d644b3ed79391f Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 20 Jul 2013 22:08:38 +0000
Subject: [PATCH] * 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  | 6 +++---
 rtl/inc/objpash.inc | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index 03a16beccc..22f8d3c66d 100644
--- a/rtl/inc/objpas.inc
+++ b/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;
diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index ab12f8b6ea..3c470a5334 100644
--- a/rtl/inc/objpash.inc
+++ b/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 }