X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FArchX86.hs;fp=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FArchX86.hs;h=e12d62deebf3199875b897489a9700cb578cf4c4;hb=e1744771112465b5d43df1d7e38c8a7415b4705f;hp=8018f24fd4b0eb4d0e1d240079c29dd3499279f5;hpb=a4e89052ca5163bc1a33b5096b50e5a3fbb9fbd5;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Graph/ArchX86.hs b/compiler/nativeGen/RegAlloc/Graph/ArchX86.hs
index 8018f24..e12d62d 100644
--- a/compiler/nativeGen/RegAlloc/Graph/ArchX86.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/ArchX86.hs
@@ -31,7 +31,6 @@ classOfReg reg
 
 	
 -- | Determine all the regs that make up a certain class.
---
 regsOfClass :: RegClass -> UniqSet Reg
 regsOfClass c
  = case c of
@@ -52,7 +51,6 @@ regsOfClass c
 
 -- | Determine the common name of a reg
 --	returns Nothing if this reg is not part of the machine.
-	
 regName :: Reg -> Maybe String
 regName reg
  = case reg of