X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FGraph%2FSpill.hs;h=7e744e6337e898183946e8e64df8f1e59be4a4ad;hp=d82e8a8fec4ff07e600623e5d554c1c03e088a07;hb=14a496fd0b3aa821b69eb02736d5f41086576761;hpb=09732d3c8ba3b8ab3ebfc5596cc8fdd7f2bb100f

diff --git a/compiler/nativeGen/RegAlloc/Graph/Spill.hs b/compiler/nativeGen/RegAlloc/Graph/Spill.hs
index d82e8a8..7e744e6 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Spill.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Spill.hs
@@ -292,12 +292,11 @@ type SpillM a	= State SpillS a
 
 newUnique :: SpillM Unique
 newUnique
- = do	us	<- gets stateUS
- 	case splitUniqSupply us of
-	 (us1, us2)
-	  -> do let uniq = uniqFromSupply us1
-	  	modify $ \s -> s { stateUS = us2 }
-		return uniq
+ = do   us      <- gets stateUS
+        case takeUniqFromSupply us of
+         (uniq, us')
+          -> do modify $ \s -> s { stateUS = us' }
+                return uniq
 
 accSpillSL (r1, s1, l1) (_, s2, l2)
 	= (r1, s1 + s2, l1 + l2)