diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-09-04 13:57:26 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-09-04 13:58:27 +0100 |
| commit | bd5354e31c98c489d58ec686dd87d0d2d5e4d622 (patch) | |
| tree | db9676904621271e124ff50d52d05fe1e9297fa2 /compiler/codeGen/StgCmmEnv.hs | |
| parent | e6411395563c3d425bc78a78b189b33eb3d3cc07 (diff) | |
| download | haskell-bd5354e31c98c489d58ec686dd87d0d2d5e4d622.tar.gz | |
Fix -split-objs with the new code generator
We need to make the SRT label external and unique when splitting,
because it is shared amongst all the functions in the module. Also
some SRT-related cleanup.
Diffstat (limited to 'compiler/codeGen/StgCmmEnv.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index 9f1f161d37..e4611237cc 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -180,15 +180,13 @@ cgLookupPanic :: Id -> FCode a cgLookupPanic id = do static_binds <- getStaticBinds local_binds <- getBinds - srt <- getSRTLabel - pprPanic "StgCmmEnv: variable not found" + pprPanic "StgCmmEnv: variable not found" (vcat [ppr id, ptext (sLit "static binds for:"), 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") <+> ppr srt - ]) + vcat [ ppr (cg_id info) | info <- varEnvElts local_binds ] + ]) -------------------- |