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

diff --git a/compiler/nativeGen/RegSpillClean.hs b/compiler/nativeGen/RegSpillClean.hs
index eb0e3ea..2ecd450 100644
--- a/compiler/nativeGen/RegSpillClean.hs
+++ b/compiler/nativeGen/RegSpillClean.hs
@@ -1,5 +1,5 @@
 {-# OPTIONS -fno-warn-missing-signatures #-}
--- | Clean out unneeded spill/reload instrs
+-- | Clean out unneeded spill\/reload instrs
 --
 -- * Handling of join points
 --
@@ -20,7 +20,7 @@
 --	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.
 --
 
@@ -50,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
@@ -72,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
@@ -86,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
@@ -351,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 }