X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=7b49f7ac7c61460a8492785a7452f3a6de804095;hp=ebff1f0dbae8376035857198827d9bc996ba33db;hb=7bf4c6c4d89f63af5b6a2be8e69cec7e8416dbaa;hpb=92e1151179b419ce5d7a144993053ae982e0df5e

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index ebff1f0..7b49f7a 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -197,9 +197,10 @@ cmmNativeGens dflags h us (cmm : cmms) impAcc profAcc
 			else []
 
 	-- force evaulation of imports and lsPprNative to avoid space leak
-	seqString (showSDoc $ vcat $ map ppr imports)
-	 `seq`  lsPprNative
-	 `seq`	cmmNativeGens dflags h us' cmms
+	seqString (showSDoc $ vcat $ map ppr imports) `seq` return ()
+	lsPprNative `seq` return ()
+
+	cmmNativeGens dflags h us' cmms
 			(imports : impAcc)
 			((lsPprNative, colorStats, linearStats) : profAcc)
 
@@ -311,10 +312,11 @@ cmmNativeGen dflags us cmm
 			 then Just regAllocStats else Nothing
 
 		-- force evaluation of the Maybe to avoid space leak
-		mPprStats
-		 `seq`	return	( alloced, usAlloc
-				, mPprStats
-				, Nothing)
+		mPprStats `seq` return ()
+
+		return	( alloced, usAlloc
+			, mPprStats
+			, Nothing)
 
 	  else do
 	  	-- do linear register allocation
@@ -333,10 +335,11 @@ cmmNativeGen dflags us cmm
 			 then Just (catMaybes regAllocStats) else Nothing
 
 		-- force evaluation of the Maybe to avoid space leak
-		mPprStats
-		 `seq`	return	( alloced, usAlloc
-				, Nothing
-				, mPprStats)
+		mPprStats `seq` return ()
+
+		return	( alloced, usAlloc
+			, Nothing
+			, mPprStats)
 
 	---- shortcut branches
 	let shorted	=