Commit 2d969ff9 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Small code simplification

parent d8dc1f85
......@@ -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
])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment