From: Ian Lynagh <igloo@earth.li>
Date: Wed, 30 Apr 2008 13:10:21 +0000 (+0000)
Subject: Update a panic message
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7dd753a02c3bdce61287b9ad2064daecf31e8258;p=ghc-hetmet.git

Update a panic message
It was (panic "RegisterAlloc.joinToTargets"), but had since moved to
RegAllocLinear.makeRegMovementGraph.
---

diff --git a/compiler/nativeGen/RegAllocLinear.hs b/compiler/nativeGen/RegAllocLinear.hs
index bc538a8..9478979 100644
--- a/compiler/nativeGen/RegAllocLinear.hs
+++ b/compiler/nativeGen/RegAllocLinear.hs
@@ -826,7 +826,7 @@ makeRegMovementGraph adjusted_assig dest_assig
 	 = expandNode vreg src
 	 $ lookupWithDefaultUFM_Directly
            	dest_assig
-                (panic "RegisterAlloc.joinToTargets")
+                (panic "RegAllocLinear.makeRegMovementGraph")
 		vreg
 
    in	[ node 	| (vreg, src) <- ufmToList adjusted_assig