From 7ef3d39d93b8a07c88d5359e7d40bf46cecb6614 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 27 Jun 2019 19:20:45 +0000
Subject: [PATCH] * one more disable location of DoPipe in case not on a Unix
platform (mantis #35743)
git-svn-id: trunk@42302 -
---
compiler/assemble.pas | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index 892c38e4a1..24a2cc913e 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -742,9 +742,13 @@ Implementation
Function TExternalAssembler.DoPipe:boolean;
begin
+{$ifdef hasunix}
DoPipe:=(cs_asm_pipe in 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]));
+{$else hasunix}
+ DoPipe:=false;
+{$endif}
end;