Freeing vector-space objects, apparently good.
Not freeing enough cons-space objects, though!
This commit is contained in:
parent
40e1f3ca64
commit
ad806de656
3 changed files with 17 additions and 3 deletions
|
|
@ -222,14 +222,14 @@ void free_stack_frame( struct stack_frame *frame ) {
|
|||
/*
|
||||
* TODO: later, push it back on the stack-frame freelist
|
||||
*/
|
||||
debug_print(L"Entering free_stack_frame\n", DEBUG_ALLOC);
|
||||
for ( int i = 0; i < args_in_frame; i++ ) {
|
||||
dec_ref( frame->arg[i] );
|
||||
}
|
||||
if ( !nilp( frame->more ) ) {
|
||||
dec_ref( frame->more );
|
||||
}
|
||||
|
||||
free( frame );
|
||||
debug_print(L"Leaving free_stack_frame\n", DEBUG_ALLOC);
|
||||
}
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue