From: sof <unknown>
Date: Mon, 18 Aug 1997 23:57:32 +0000 (+0000)
Subject: [project @ 1997-08-18 23:57:32 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~147
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ba389eaddfa10993a5982bb706b928a0f9a3258e;ds=sidebyside

[project @ 1997-08-18 23:57:32 by sof]
-cpp fix
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index f2494f4..5b05358 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -1706,7 +1706,7 @@ sub runLit2pgm {
     local($to_do) = "";
 
     # Only add #line pragma if we're going to need it.
-    $to_do  = "echo '#line 1 \"$in_lit2pgm\"' > $lit2pgm_hscpp && " if ($HsCpp ne $Cat);
+    $to_do  = "echo '#line 1 \"$in_lit2pgm\"' > $lit2pgm_hscpp && " if ($Cpp_flag_set);
     $to_do .= "$Unlit @Unlit_flags $in_lit2pgm -  >> $lit2pgm_hscpp";
      
     @Files_to_tidy = ( $lit2pgm_hscpp );