Small code simplification
authorIan Lynagh <igloo@earth.li>
Wed, 18 Jul 2012 15:12:51 +0000 (16:12 +0100)
committerIan Lynagh <igloo@earth.li>
Wed, 18 Jul 2012 15:12:51 +0000 (16:12 +0100)
compiler/codeGen/StgCmmEnv.hs

index 2edd09d..67953ce 100644 (file)
@@ -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
              ])