simon/post-scarcity
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Packages Wiki Activity Actions

Freeing vector-space objects, apparently good.

Browse source 
Not freeing enough cons-space objects, though!
This commit is contained in:
Simon Brooke 2018-12-29 08:23:26 +00:00
parent 40e1f3ca64
commit ad806de656
3 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/memory/conspage.c
View file

@ -20,6 +20,8 @@
#include "conspage.h"
#include "debug.h"
#include "dump.h"
#include "stack.h"
#include "vectorspace.h"
/**
* Flag indicating whether conspage initialisation has been done.
@ -169,7 +171,18 @@ void free_cell( struct cons_pointer pointer ) {
debug_printf( DEBUG_ALLOC,
L"About to free vector-space object at %ld\n",
cell->payload.vectorp.address );
//free( ( void * ) cell->payload.vectorp.address );
struct vector_space_object *vso = cell->payload.vectorp.address;
switch ( vso->header.tag.value ) {
case STACKFRAMETV:
free_stack_frame(get_stack_frame(pointer));
break;
}
free( ( void * ) cell->payload.vectorp.address );
debug_printf( DEBUG_ALLOC,
L"Freed vector-space object at %ld\n",
cell->payload.vectorp.address );
break;
}