[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 (file)
--- 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