X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegSpillClean.hs;h=2ecd4503a7e7a8015dae1f6057bb470e837e17d4;hb=7fbdd9e0bccec89c958e2a1e36d5ec058fc69a3d;hp=fc86c89530d2e56673983f1f4cc0a3b5cdd2b882;hpb=0a50b1a7c93cd121405dc09e7a4d2ab145aec0b7;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegSpillClean.hs b/compiler/nativeGen/RegSpillClean.hs
index fc86c89..2ecd450 100644
--- a/compiler/nativeGen/RegSpillClean.hs
+++ b/compiler/nativeGen/RegSpillClean.hs
@@ -1,4 +1,5 @@
--- | Clean out unneeded spill/reload instrs
+{-# OPTIONS -fno-warn-missing-signatures #-}
+-- | Clean out unneeded spill\/reload instrs
 --
 -- * Handling of join points
 --
@@ -19,16 +20,16 @@
 --	What we really care about here is that on the entry to B3, %r1 will always
 --	have the same value that is in SLOT(0) (ie, %r1 is _valid_)
 --
---	This also works if the reloads in B1/B2 were spills instead, because
+--	This also works if the reloads in B1\/B2 were spills instead, because
 --	spilling %r1 to a slot makes that slot have the same value as %r1.
 --
-{-# OPTIONS -fno-warn-missing-signatures #-}
 
 module RegSpillClean (
 	cleanSpills
 )
 where
 
+import BlockId
 import RegLiveness
 import RegAllocInfo
 import MachRegs
@@ -49,7 +50,7 @@ import Data.List        ( find, nub )
 type Slot = Int
 
 
--- | Clean out unneeded spill/reloads from this top level thing.
+-- | Clean out unneeded spill\/reloads from this top level thing.
 cleanSpills :: LiveCmmTop -> LiveCmmTop
 cleanSpills cmm
 	= evalState (cleanSpin 0 cmm) initCleanS
@@ -71,7 +72,7 @@ cleanSpin spinCount code
 
 cleanSpin spinCount code
  = do
- 	-- init count of cleaned spills/reloads
+ 	-- init count of cleaned spills\/reloads
 	modify $ \s -> s
 		{ sCleanedSpillsAcc	= 0
 		, sCleanedReloadsAcc	= 0
@@ -85,7 +86,7 @@ cleanSpin spinCount code
 	--	safe to erase reloads after join points for the next pass.
 	collateJoinPoints
 
-	-- remember how many spills/reloads we cleaned in this pass
+	-- remember how many spills\/reloads we cleaned in this pass
 	spills		<- gets sCleanedSpillsAcc
 	reloads		<- gets sCleanedReloadsAcc
 	modify $ \s -> s
@@ -350,10 +351,10 @@ data CleanS
 	  --	reloaded from on this path.
 	, sReloadedBy		:: UniqFM [BlockId]
 
-	  -- spills/reloads cleaned each pass (latest at front)
+	  -- spills\/reloads cleaned each pass (latest at front)
 	, sCleanedCount		:: [(Int, Int)]
 
-	  -- spills/reloads that have been cleaned in this pass so far.
+	  -- spills\/reloads that have been cleaned in this pass so far.
 	, sCleanedSpillsAcc	:: Int
 	, sCleanedReloadsAcc	:: Int }