diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:17:33 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:17:33 +0000 |
| commit | f1d525d1f140bb695cd3a746ba7dd16402868dde (patch) | |
| tree | 419582b59bdd97fdd9616799d3a5577ff26073f0 /compiler | |
| parent | 11c7f334d1b98effdd62cd1fb93ca984338b3de3 (diff) | |
| download | haskell-f1d525d1f140bb695cd3a746ba7dd16402868dde.tar.gz | |
Remove an #ifdef DEBUG
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/nativeGen/RegAllocLinear.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/nativeGen/RegAllocLinear.hs b/compiler/nativeGen/RegAllocLinear.hs index e6491b77ee..4b023c5e76 100644 --- a/compiler/nativeGen/RegAllocLinear.hs +++ b/compiler/nativeGen/RegAllocLinear.hs @@ -1108,12 +1108,9 @@ pprStats code statss -- ----------------------------------------------------------------------------- -- Utils -#ifdef DEBUG -my_fromJust s p Nothing = pprPanic ("fromJust: " ++ s) p +my_fromJust :: String -> SDoc -> Maybe a -> a my_fromJust _ _ (Just x) = x -#else -my_fromJust _ _ = fromJust -#endif +my_fromJust s p Nothing = pprPanic ("fromJust: " ++ s) p lookItUp :: Uniquable b => String -> UniqFM a -> b -> a lookItUp str fm x = my_fromJust str (ppr (getUnique x)) (lookupUFM fm x) |