X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPPC%2FRegInfo.hs;h=2a23bbb269e680dde2686d46d3899b28ab5fd69d;hb=02408fe887ac085c4617ecbd9cc22c96bec23abe;hp=b2806c74d15a1a12bf19ea31bcd1bd3d838b6554;hpb=b04a210e26ca57242fd052f2aa91011a80b76299;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PPC/RegInfo.hs b/compiler/nativeGen/PPC/RegInfo.hs
index b2806c7..2a23bbb 100644
--- a/compiler/nativeGen/PPC/RegInfo.hs
+++ b/compiler/nativeGen/PPC/RegInfo.hs
@@ -7,14 +7,11 @@
 -----------------------------------------------------------------------------
 
 module PPC.RegInfo (
-	mkVReg,
-
-        JumpDest, 
+        JumpDest( DestBlockId ), 
 	canShortcut, 
 	shortcutJump, 
 
-	shortcutStatic,
-	regDotColor
+	shortcutStatic
 )
 
 where
@@ -24,28 +21,12 @@ where
 
 import PPC.Regs
 import PPC.Instr
-import RegClass
-import Reg
-import Size
 
 import BlockId
 import Cmm
 import CLabel
 
 import Outputable
-import Unique
-
-mkVReg :: Unique -> Size -> Reg
-mkVReg u size
-   | not (isFloatSize size) = VirtualRegI u
-   | otherwise
-   = case size of
-        FF32	-> VirtualRegD u
-        FF64	-> VirtualRegD u
-	_	-> panic "mkVReg"
-
-
-
 
 data JumpDest = DestBlockId BlockId | DestImm Imm
 
@@ -84,11 +65,3 @@ shortBlockId fn blockid@(BlockId uq) =
       Just (DestImm (ImmCLbl lbl)) -> lbl
       _other -> panic "shortBlockId"
 
-
-
-regDotColor :: Reg -> SDoc
-regDotColor reg
- = case regClass reg of
- 	RcInteger	-> text "blue"
-	RcFloat		-> text "red"
-	RcDouble	-> text "green"