From: simonmar <unknown>
Date: Tue, 27 Aug 2002 09:34:20 +0000 (+0000)
Subject: [project @ 2002-08-27 09:34:20 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1751
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=15e6a5e4fc7140d49bf112aeaef6145a746a3e87;p=ghc-hetmet.git

[project @ 2002-08-27 09:34:20 by simonmar]
Fix a bug in the cleaning up of temporary files: we were wrongly
cleaning the temporary pre-processed source files for stable modules,
with the result that the compiler would panic the next time they were
required.

Reported ages ago by: Hal Duame.

MERGE TO STABLE
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 449801c..abe2bf7 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -610,7 +610,7 @@ cmLoadModules cmstate1 dflags mg2unsorted
 
 	-- clean up between compilations
 	let cleanup = cleanTempFilesExcept verb 
-			  (ppFilesFromSummaries (flattenSCCs upsweep_these))
+			  (ppFilesFromSummaries (flattenSCCs mg2))
 
         (upsweep_complete_success, threaded3, modsUpswept, newLis)
            <- upsweep_mods ghci_mode dflags valid_linkables reachable_from