* far pointer fix in taddrnode.pass_typecheck

git-svn-id: trunk@24857 -

compiler/nmem.pas

@@ -526,7 +526,14 @@ implementation
               begin
                 if tabstractprocdef(left.resultdef).is_addressonly then
                   begin
+{$ifdef i8086}
+                    if po_far in tabstractprocdef(left.resultdef).procoptions then
+                      result:=ctypeconvnode.create_internal(left,voidfarpointertype)
+                    else
+                      result:=ctypeconvnode.create_internal(left,voidnearpointertype);
+{$else i8086}
                     result:=ctypeconvnode.create_internal(left,voidpointertype);
+{$endif i8086}
                     include(result.flags,nf_load_procvar);
                     left:=nil;
                   end