From: sof <unknown>
Date: Wed, 29 Aug 2001 19:29:04 +0000 (+0000)
Subject: [project @ 2001-08-29 19:29:04 by sof]
X-Git-Tag: Approximately_9120_patches~1047
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2f3a767fb8b1a2fbe373050665218b6e6f637c71;p=ghc-hetmet.git

[project @ 2001-08-29 19:29:04 by sof]
make it compile.
---

diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs
index 872c103..514be45 100644
--- a/ghc/compiler/codeGen/CgBindery.lhs
+++ b/ghc/compiler/codeGen/CgBindery.lhs
@@ -451,7 +451,7 @@ buildLivenessMask
 	-> VirtualSpOffset	-- offset from which the bitmap should start
 	-> FCode Liveness	-- mask for free/unlifted slots
 
-buildLivenessMask uniq sp = ASSERT (all (>=0) rel_slots) do	
+buildLivenessMask uniq sp = do	
 	-- find all unboxed stack-resident ids
 	binds <- getBinds
 	((vsp, free, _, _), heap_usage) <- getUsage
@@ -477,7 +477,7 @@ buildLivenessMask uniq sp = ASSERT (all (>=0) rel_slots) do
 	let rel_slots = reverse (map (sp-) all_slots)
 
 	-- build the bitmap
-	let liveness_mask = listToLivenessMask rel_slots
+	let liveness_mask = ASSERT(all (>=0) rel_slots) (listToLivenessMask rel_slots)
 
 	livenessToAbsC uniq liveness_mask