* 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

@@ -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;