summaryrefslogtreecommitdiff
path: root/compiler/cmm/CmmProcPoint.hs
diff options
context:
space:
mode:
authorMichael D. Adams <t-madams@microsoft.com>2007-07-03 21:25:55 +0000
committerMichael D. Adams <t-madams@microsoft.com>2007-07-03 21:25:55 +0000
commit55f8b001f06d0a2a1e9b0e84cbaa5f2f109270df (patch)
tree1f3571732b61628d994c731d682efa405b3e507b /compiler/cmm/CmmProcPoint.hs
parent3d297c5eb17478cc40b543acff017b925f6ea3c2 (diff)
downloadhaskell-55f8b001f06d0a2a1e9b0e84cbaa5f2f109270df.tar.gz
Fix error message in CPS pass
Diffstat (limited to 'compiler/cmm/CmmProcPoint.hs')
-rw-r--r--compiler/cmm/CmmProcPoint.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmProcPoint.hs b/compiler/cmm/CmmProcPoint.hs
index 36c02ff810..fe64608022 100644
--- a/compiler/cmm/CmmProcPoint.hs
+++ b/compiler/cmm/CmmProcPoint.hs
@@ -113,4 +113,4 @@ calculateOwnership blocks_ufm proc_points blocks =
new = old `unionUniqSets`
lookupWithDefaultUFM owners emptyUniqSet cause'
- unknown_block = panic "unknown BlockId in selectStackFormat"
+ unknown_block = panic "unknown BlockId in calculateOwnership"