From: Michael D. Adams <t-madams@microsoft.com>
Date: Tue, 3 Jul 2007 21:25:55 +0000 (+0000)
Subject: Fix error message in CPS pass
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=55f8b001f06d0a2a1e9b0e84cbaa5f2f109270df

Fix error message in CPS pass
---

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"