Selaa lähdekoodia

* far pointer fix in taddrnode.pass_typecheck

git-svn-id: trunk@24857 -
nickysn 12 vuotta sitten
vanhempi
commit
c9096ef806
1 muutettua tiedostoa jossa 7 lisäystä ja 0 poistoa
  1. 7 0
      compiler/nmem.pas

+ 7 - 0
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