paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 16:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* one more disable location of DoPipe in case not on a Unix platform

Browse Source 
(mantis #35743)

git-svn-id: trunk@42302 -
This commit is contained in:
Jonas Maebe 2019-06-27 19:20:45 +00:00
parent defcad25af
commit 7ef3d39d93
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/assemble.pas
View File

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