From 79db53b04919fb075ddec1e2e2a385bfc703b2a0 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 16 Jul 2013 14:50:16 +0000
Subject: [PATCH] * TPropInfo.GetProc, .SetProc and .StoredProc changed to
 CodePointer for compatibility with the i8086 medium memory model

git-svn-id: trunk@25117 -
---
 rtl/objpas/typinfo.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 0f13712967..5339f1a39a 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -279,9 +279,9 @@ unit typinfo;
       PPropInfo = ^TPropInfo;
       TPropInfo = packed record
         PropType : PTypeInfo;
-        GetProc : Pointer;
-        SetProc : Pointer;
-        StoredProc : Pointer;
+        GetProc : CodePointer;
+        SetProc : CodePointer;
+        StoredProc : CodePointer;
         Index : Integer;
         Default : Longint;
         NameIndex : SmallInt;