diff options
| author | simonmar <unknown> | 2001-07-26 09:54:39 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-07-26 09:54:39 +0000 |
| commit | d8f550509fe8eaff29424e19250c0187d6e9c3b7 (patch) | |
| tree | 0cd5222796b138d5b1d1703b13be52295ae63b2c | |
| parent | 780454451b96cfa5727287469b0daf459170f2f2 (diff) | |
| download | haskell-d8f550509fe8eaff29424e19250c0187d6e9c3b7.tar.gz | |
[project @ 2001-07-26 09:54:39 by simonmar]
Make the panic case in evalAbsence into another "TELL SIMON" trace.
| -rw-r--r-- | ghc/compiler/stranal/SaAbsInt.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs index 8cab167cd4..14bb2df5d8 100644 --- a/ghc/compiler/stranal/SaAbsInt.lhs +++ b/ghc/compiler/stranal/SaAbsInt.lhs @@ -326,7 +326,9 @@ evalAbsence (WwUnpack _ demand_info) val | length vals /= length demand_info -> pprTrace "TELL SIMON: evalAbsence" (ppr demand_info $$ ppr val) True | otherwise -> or (zipWithEqual "evalAbsence" evalAbsence demand_info vals) - _ -> panic "evalAbsence: other" + _ -> pprTrace "TELL SIMON: evalAbsence" + (ppr demand_info $$ ppr val) + True evalAbsence other val = anyBot val -- The demand is conservative; even "Lazy" *might* evaluate the |