vm: fix 'data-room' primitive to report correct sizes for tenured space

db4
Slava Pestov 2009-10-24 23:49:33 -05:00
parent fae27fb361
commit 0b65b194c9
1 changed files with 1 additions and 1 deletions

View File

@ -219,7 +219,7 @@ void factor_vm::primitive_data_room()
cell used, total_free, max_free;
data->tenured->usage(&used,&total_free,&max_free);
a.add(tag_fixnum(total_free >> 10));
a.add(tag_fixnum(used >> 10));
a.add(tag_fixnum(data->tenured->size >> 10));
a.trim();
dpush(a.elements.value());