Commit 02b92c13 authored by John van Groningen's avatar John van Groningen
Browse files

fix bug in size of bits2 array in previous revision

parent f9fbd050
...@@ -265,7 +265,8 @@ compute_sizes_by_node_kind :: !.Header .Descriptors !*{#Char} !{#Char} {#Char} { ...@@ -265,7 +265,8 @@ compute_sizes_by_node_kind :: !.Header .Descriptors !*{#Char} !{#Char} {#Char} {
compute_sizes_by_node_kind header descriptors heap heap2 data text stack compute_sizes_by_node_kind header descriptors heap heap2 data text stack
#! size_heap=size heap; #! size_heap=size heap;
bits1=allocate_bit_array size_heap; bits1=allocate_bit_array size_heap;
bits2=allocate_bit_array size_heap; #! size_heap2=size heap2;
bits2=allocate_bit_array size_heap2;
= size_stack descriptors 0 NilSizeByNodeKind bits1 bits2 heap; = size_stack descriptors 0 NilSizeByNodeKind bits1 bits2 heap;
where where
stack_size=size stack; stack_size=size stack;
......
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