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 ...@@ -451,7 +451,7 @@ buildLivenessMask
-> VirtualSpOffset -- offset from which the bitmap should start -> VirtualSpOffset -- offset from which the bitmap should start
-> FCode Liveness -- mask for free/unlifted slots -> 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 -- find all unboxed stack-resident ids
binds <- getBinds binds <- getBinds
((vsp, free, _, _), heap_usage) <- getUsage ((vsp, free, _, _), heap_usage) <- getUsage
...@@ -477,7 +477,7 @@ buildLivenessMask uniq sp = ASSERT (all (>=0) rel_slots) do ...@@ -477,7 +477,7 @@ buildLivenessMask uniq sp = ASSERT (all (>=0) rel_slots) do
let rel_slots = reverse (map (sp-) all_slots) let rel_slots = reverse (map (sp-) all_slots)
-- build the bitmap -- build the bitmap
let liveness_mask = listToLivenessMask rel_slots let liveness_mask = ASSERT(all (>=0) rel_slots) (listToLivenessMask rel_slots)
livenessToAbsC uniq liveness_mask 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