From c3483d1274f60cc0aaf074dd09b70189909392b6 Mon Sep 17 00:00:00 2001 From: nickysn Date: Thu, 29 Mar 2018 15:59:58 +0000 Subject: [PATCH] * make near/far procs/procvars compatible only with their matching (near vs far) pointer type on i8086 git-svn-id: trunk@38646 - --- compiler/x86/symx86.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/x86/symx86.pas b/compiler/x86/symx86.pas index fd700ed72c..99b10fb4a6 100644 --- a/compiler/x86/symx86.pas +++ b/compiler/x86/symx86.pas @@ -210,7 +210,7 @@ implementation begin result:= inherited and - (tx86pointerdef(voidcodepointertype).x86pointertyp=tx86pointerdef(ptr).x86pointertyp); + (tx86pointerdef(address_type).x86pointertyp=tx86pointerdef(ptr).x86pointertyp); end; @@ -223,7 +223,7 @@ implementation begin result:= inherited and - (tx86pointerdef(voidcodepointertype).x86pointertyp=tx86pointerdef(ptr).x86pointertyp); + (tx86pointerdef(address_type).x86pointertyp=tx86pointerdef(ptr).x86pointertyp); end;