From a6863770dada4d75ec688bd47c2f45328c43b95f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 29 Jan 2001 17:43:16 +0000
Subject: [PATCH] [project @ 2001-01-29 17:43:16 by simonmar] track the
 changes in absCSyn/PprAbsC.lhs

---
 ghc/compiler/nativeGen/AbsCStixGen.lhs |   17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index 51a29c6..3e828cf 100644
--- a/ghc/compiler/nativeGen/AbsCStixGen.lhs
+++ b/ghc/compiler/nativeGen/AbsCStixGen.lhs
@@ -225,15 +225,14 @@ Here we handle top-level things, like @CCodeBlock@s and
     promote_to_word CharRep = IntRep
     promote_to_word other   = other
 
-    -- always at least one padding word: this is the static link field
-    -- for the garbage collector.
-    padding_wds = if closureUpdReqd cl_info then
-    	    		take (max 0 (mIN_UPD_SIZE - length amodes)) zeros
-    	   	  else
-    	    		[]
-
-    static_link | staticClosureNeedsLink cl_info = [StInt 0]
-	        | otherwise                      = []
+    upd_reqd = closureUpdReqd cl_info
+
+    padding_wds
+	| upd_reqd  = take (max 0 (mIN_UPD_SIZE - length amodes)) zeros
+	| otherwise = []
+
+    static_link | upd_reqd || staticClosureNeedsLink cl_info = [StInt 0]
+	        | otherwise                                  = []
 
     zeros = StInt 0 : zeros
 
-- 
1.7.10.4