X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmProcPoint.hs;h=fe64608022fb1ab3ea450a35975ff27063a0918a;hb=55f8b001f06d0a2a1e9b0e84cbaa5f2f109270df;hp=36c02ff810f02fc3ce1a863aad38f735d3afad60;hpb=a2d5d3c9677a740ace920a976d03dfbd82f7697b;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmProcPoint.hs b/compiler/cmm/CmmProcPoint.hs
index 36c02ff..fe64608 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"