X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocStats.hs;h=12f4cee3a0cd47fd0b1065a6d57e2943e2dc7634;hb=a842f3d5e7c9026a642589948ef67dbaf6272396;hp=2c41905811ec76eeb0553d67916303f990a3e2e9;hpb=85255a966b21172ce5a26c8a9cb0cdaf7315be95;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocStats.hs b/compiler/nativeGen/RegAllocStats.hs
index 2c41905..12f4cee 100644
--- a/compiler/nativeGen/RegAllocStats.hs
+++ b/compiler/nativeGen/RegAllocStats.hs
@@ -327,6 +327,13 @@ regDotColor reg
 	RcFloat		-> text "red"
 	RcDouble	-> text "green"
 
+#elif sparc_TARGET_ARCH
+regDotColor :: Reg -> SDoc
+regDotColor reg
+ = case regClass reg of
+ 	RcInteger	-> text "blue"
+	RcFloat		-> text "red"
+	RcDouble	-> text "green"
 #else
 #error ToDo: regDotColor
 #endif