From 3e0cc1e5f6b17227da496add9018c5bb0a820b4b Mon Sep 17 00:00:00 2001 From: nickysn Date: Tue, 16 Jul 2013 15:16:24 +0000 Subject: [PATCH] * fixes for the compilation of unit variants in the i8086 medium memory model git-svn-id: trunk@25120 - --- rtl/inc/variants.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rtl/inc/variants.pp b/rtl/inc/variants.pp index 1da42354a0..53d72b50ac 100644 --- a/rtl/inc/variants.pp +++ b/rtl/inc/variants.pp @@ -4408,7 +4408,7 @@ begin if (PropInfo^.PropProcs and 3)=ptStatic then AMethod.Code:=PropInfo^.GetProc else - AMethod.Code:=PPointer(Pointer(Instance.ClassType)+PtrUInt(PropInfo^.GetProc))^; + AMethod.Code:=PCodePointer(Pointer(Instance.ClassType)+PtrUInt(PropInfo^.GetProc))^; AMethod.Data:=Instance; if ((PropInfo^.PropProcs shr 6) and 1)=0 then @@ -4435,7 +4435,7 @@ begin if ((PropInfo^.PropProcs shr 2) and 3)=ptStatic then AMethod.Code:=PropInfo^.SetProc else - AMethod.Code:=PPointer(Pointer(Instance.ClassType)+PtrUInt(PropInfo^.SetProc))^; + AMethod.Code:=PCodePointer(Pointer(Instance.ClassType)+PtrUInt(PropInfo^.SetProc))^; AMethod.Data:=Instance; if ((PropInfo^.PropProcs shr 6) and 1)=0 then