From: sof <unknown>
Date: Thu, 12 Jul 2001 16:25:32 +0000 (+0000)
Subject: [project @ 2001-07-12 16:25:32 by sof]
X-Git-Tag: Approximately_9120_patches~1568
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=434ef2b14b37df405602a74838b8b38d0f5b4375;p=ghc-hetmet.git

[project @ 2001-07-12 16:25:32 by sof]
ppFilesFromSummaries: to cope with recent driver changes,
only report a file as being preprocessed if it differs from
the source file(name).

Fixes awfully bad breakage when using --make (source files
were being deleted).
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index cc7ca58..30f0b58 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -539,8 +539,18 @@ cmLoadFinish ok linkresult hst hit ui mods ghci_mode pcs
        return (new_cmstate, ok, mods_loaded)
     }
 
+-- used to fish out the preprocess output files for the purposes
+-- of cleaning up.
 ppFilesFromSummaries summaries
-  = [ fn | Just fn <- map (ml_hspp_file . ms_location) summaries ]
+  = [ fn | Just fn <- map toPpFile summaries ]
+  where
+   toPpFile sum
+     | hspp /= ml_hs_file loc = hspp
+     | otherwise              = Nothing
+    where
+      loc  = ms_location sum
+      hspp = ml_hspp_file loc
+
 
 -----------------------------------------------------------------------------
 -- getValidLinkables