From: simonmar <unknown>
Date: Mon, 20 Nov 2000 16:27:36 +0000 (+0000)
Subject: [project @ 2000-11-20 16:27:36 by simonmar]
X-Git-Tag: Approximately_9120_patches~3301
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=239717d328a0ddd1fae2929e3f2fd509ff7472ec;p=ghc-hetmet.git

[project @ 2000-11-20 16:27:36 by simonmar]
Don't return the old iface from addVersionInfo, it might not have
reasonable mi_globals.
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 3a6402a..80bd947 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -536,7 +536,9 @@ addVersionInfo (Just old_iface@(ModIface { mi_version = old_version,
 				     mi_fixities = new_fixities })
 
   | no_output_change && no_usage_change
-  = (old_iface, Nothing)
+  = (new_iface, Nothing)
+	-- don't return the old iface because it may not have an
+	-- mi_globals field set to anything reasonable.
 
   | otherwise		-- Add updated version numbers
   = (final_iface, Just pp_tc_diffs)