diff options
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index 2edd09da12..67953ce95a 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -51,7 +51,6 @@ import VarEnv import Control.Monad import Name import StgSyn -import DynFlags import Outputable ------------------------------------- @@ -182,8 +181,7 @@ getCgIdInfo id cgLookupPanic :: Id -> FCode a cgLookupPanic id - = do dflags <- getDynFlags - static_binds <- getStaticBinds + = do static_binds <- getStaticBinds local_binds <- getBinds srt <- getSRTLabel pprPanic "StgCmmEnv: variable not found" @@ -192,7 +190,7 @@ cgLookupPanic id vcat [ ppr (cg_id info) | info <- varEnvElts static_binds ], ptext (sLit "local binds for:"), vcat [ ppr (cg_id info) | info <- varEnvElts local_binds ], - ptext (sLit "SRT label") <+> pprCLabel (targetPlatform dflags) srt + ptext (sLit "SRT label") <+> ppr srt ]) |