From: simonpj <unknown>
Date: Wed, 1 May 2002 09:10:32 +0000 (+0000)
Subject: [project @ 2002-05-01 09:10:32 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~2077
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1b853dc9d423bd74625fdf8f1293ce7127d43189;p=ghc-hetmet.git

[project @ 2002-05-01 09:10:32 by simonpj]
When reading an interface file, don't discard CPR info even
if -fcpr-off is selected.  The info describes what the .o file
contains, so we can't ignore that!
---

diff --git a/ghc/compiler/main/BinIface.hs b/ghc/compiler/main/BinIface.hs
index 611bd53..f949171 100644
--- a/ghc/compiler/main/BinIface.hs
+++ b/ghc/compiler/main/BinIface.hs
@@ -575,7 +575,9 @@ instance Binary DmdResult where
 	    h <- getByte bh
 	    case h of
 	      0 -> do return TopRes
-	      1 -> do return retCPR
+	      1 -> do return RetCPR	-- Really use RetCPR even if -fcpr-off
+					-- The wrapper was generated for CPR in 
+					-- the imported module!
 	      _ -> do return BotRes
 
 instance Binary StrictSig where