+ -- We need to promote any item smaller than a word to a word
+ promote_to_word Int8Rep = IntRep
+ promote_to_word CharRep = IntRep
+ promote_to_word other = other
+
+ 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 = []