From 1b853dc9d423bd74625fdf8f1293ce7127d43189 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 1 May 2002 09:10:32 +0000
Subject: [PATCH] [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!

---
 ghc/compiler/main/BinIface.hs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4