Prechádzať zdrojové kódy

* the ifdef i8086 in taddrnode.pass_typecheck removed via using tabstractprocdef.address_type

git-svn-id: trunk@27547 -
nickysn 11 rokov pred
rodič
commit
9f4dd78701
1 zmenil súbory, kde vykonal 1 pridanie a 8 odobranie
  1. 1 8
      compiler/nmem.pas

+ 1 - 8
compiler/nmem.pas

@@ -530,14 +530,7 @@ 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}
+                    result:=ctypeconvnode.create_internal(left,tabstractprocdef(left.resultdef).address_type);
                     include(result.flags,nf_load_procvar);
                     left:=nil;
                   end