From: ross <unknown>
Date: Fri, 28 Jan 2005 18:50:25 +0000 (+0000)
Subject: [project @ 2005-01-28 18:50:25 by ross]
X-Git-Tag: Initial_conversion_from_CVS_complete~1154
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5500fa8ff26e97cdd7112c51ab10266ec193dee4;p=ghc-hetmet.git

[project @ 2005-01-28 18:50:25 by ross]
add missing underscores
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 84b7a69..6674f14 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1255,10 +1255,10 @@ doCpp dflags raw include_cc_opts input_fn output_fn = do
 	              | otherwise = SysTools.runCc dflags (SysTools.Option "-E" : args)
 
     let target_defs = 
-	  [ "-D" ++ HOST_OS     ++ "BUILD_OS=1",
-	    "-D" ++ HOST_ARCH   ++ "BUILD_ARCH=1",
-	    "-D" ++ TARGET_OS   ++ "HOST_OS=1",
-	    "-D" ++ TARGET_ARCH ++ "HOST_ARCH=1" ]
+	  [ "-D" ++ HOST_OS     ++ "_BUILD_OS=1",
+	    "-D" ++ HOST_ARCH   ++ "_BUILD_ARCH=1",
+	    "-D" ++ TARGET_OS   ++ "_HOST_OS=1",
+	    "-D" ++ TARGET_ARCH ++ "_HOST_ARCH=1" ]
 	-- remember, in code we *compile*, the HOST is the same our TARGET,
 	-- and BUILD is the same as our HOST.