From 2f3a767fb8b1a2fbe373050665218b6e6f637c71 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 29 Aug 2001 19:29:04 +0000
Subject: [PATCH] [project @ 2001-08-29 19:29:04 by sof] make it compile.

---
 ghc/compiler/codeGen/CgBindery.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
 
-- 
1.7.10.4