Commit 2f3a767f authored by sof's avatar sof
Browse files

[project @ 2001-08-29 19:29:04 by sof]

make it compile.
parent e9c95834
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment