فهرست منبع

* one more disable location of DoPipe in case not on a Unix platform
(mantis #35743)

git-svn-id: trunk@42302 -

Jonas Maebe 6 سال پیش
والد
کامیت
7ef3d39d93
1فایلهای تغییر یافته به همراه4 افزوده شده و 0 حذف شده
  1. 4 0
      compiler/assemble.pas

+ 4 - 0
compiler/assemble.pas

@@ -742,9 +742,13 @@ Implementation
 
 
     Function TExternalAssembler.DoPipe:boolean;
     Function TExternalAssembler.DoPipe:boolean;
       begin
       begin
+{$ifdef hasunix}
         DoPipe:=(cs_asm_pipe in current_settings.globalswitches) and
         DoPipe:=(cs_asm_pipe in current_settings.globalswitches) and
                 (([cs_asm_extern,cs_asm_leave,cs_link_on_target] * current_settings.globalswitches) = []) and
                 (([cs_asm_extern,cs_asm_leave,cs_link_on_target] * current_settings.globalswitches) = []) and
                 ((asminfo^.id in [as_gas,as_ggas,as_darwin,as_powerpc_xcoff,as_clang,as_solaris_as]));
                 ((asminfo^.id in [as_gas,as_ggas,as_darwin,as_powerpc_xcoff,as_clang,as_solaris_as]));
+{$else hasunix}
+        DoPipe:=false;
+{$endif}
       end;
       end;