X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocLinear.hs;h=c67ce3ee6a3dba432380f9ef92450f79898af517;hb=7fbdd9e0bccec89c958e2a1e36d5ec058fc69a3d;hp=323e1ff1df531ee9206721f0028ce46feb9283eb;hpb=c62b824e9e8808eb3845ddb1614494b0575eaafd;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocLinear.hs b/compiler/nativeGen/RegAllocLinear.hs
index 323e1ff..c67ce3e 100644
--- a/compiler/nativeGen/RegAllocLinear.hs
+++ b/compiler/nativeGen/RegAllocLinear.hs
@@ -432,10 +432,10 @@ raInsn block_live new_instrs (Instr instr (Just live))
 			 Just loc ->
 			   setAssigR (addToUFM (delFromUFM assig src) dst loc)
 
-	   -- we have elimianted this instruction
-	   freeregs <- getFreeRegsR
-    	   assig <- getAssigR
+	   -- we have eliminated this instruction
           {-
+	  freeregs <- getFreeRegsR
+    	  assig <- getAssigR
           pprTrace "raInsn" (text "ELIMINATED: " <> docToSDoc (pprInstr instr) $$ ppr r_dying <+> ppr w_dying $$ text (show freeregs) $$ ppr assig) $ do
           -}
 	   return (new_instrs, [])