From: sof Date: Mon, 3 Jun 2002 23:36:40 +0000 (+0000) Subject: [project @ 2002-06-03 23:36:40 by sof] X-Git-Tag: Approx_11550_changesets_converted~1996 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a2fb599c0d93884d91df385e36abc81bd4ee42cd;p=ghc-hetmet.git [project @ 2002-06-03 23:36:40 by sof] whether or not to quote -D and -U opts is a property of the host, not target OS --- diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs index 10551a2..e480c8a 100644 --- a/ghc/compiler/main/DriverFlags.hs +++ b/ghc/compiler/main/DriverFlags.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: DriverFlags.hs,v 1.95 2002/06/03 13:08:37 matthewc Exp $ +-- $Id: DriverFlags.hs,v 1.96 2002/06/03 23:36:40 sof Exp $ -- -- Driver flags -- @@ -356,7 +356,7 @@ dynamic_flags = [ -- on all other systems, quoting is necessary, to avoid interpretation -- of shell metacharacters in the arguments (e.g. green-card's -- -DBEGIN_GHC_ONLY='}-' trick). -#ifndef mingw32_TARGET_OS +#ifndef mingw32_HOST_OS , ( "D", Prefix (\s -> addOpt_P ("-D'"++s++"'") ) ) , ( "U", Prefix (\s -> addOpt_P ("-U'"++s++"'") ) ) #else