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

OK, garbage collection is now working a little bit.

Browse source
This commit is contained in:
Simon Brooke 2026-04-23 17:34:07 +01:00
parent 235d455b80
commit 9425506e2a
5 changed files with 45 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/payloads/exception.c
View file

@ -59,12 +59,12 @@ struct pso_pointer make_exception( struct pso_pointer frame_pointer ) {
if ( !c_nilp( result ) && !exceptionp( result ) ) {
struct pso3 *object = ( struct pso3 * ) pointer_to_object( result );
object->payload.exception.message = message;
object->payload.exception.message = inc_ref(message);
object->payload.exception.stack =
stackp( frame_pointer ) ? frame_pointer : nil;
stackp( frame_pointer ) ? inc_ref(frame_pointer) : nil;
object->payload.exception.meta = ( consp( meta )
|| hashtabp( meta ) ) ? meta : nil;
object->payload.exception.cause = exceptionp( cause ) ? cause : nil;
|| hashtabp( meta ) ) ? inc_ref(meta) : nil;
object->payload.exception.cause = exceptionp( cause ) ? inc_ref(cause) : nil;
}
return result;

12
src/c/payloads/stack.c
View file

@ -62,6 +62,8 @@ struct pso_pointer make_frame( int arg_count, struct pso_pointer previous,
} else {
new_frame->payload.stack_frame.depth = 0;
}
new_frame->payload.stack_frame.previous = inc_ref( previous);
debug_printf( DEBUG_ALLOC, 1, L"depth is %d...\n",
new_frame->payload.stack_frame.depth );
@ -127,7 +129,7 @@ struct pso_pointer make_frame_with_env( int arg_count,
arg_count, new_pointer.page, new_pointer.offset );
#endif
prev_frame->payload.stack_frame.previous = previous;
prev_frame->payload.stack_frame.previous = inc_ref(previous);
if ( stackp( previous ) ) {
new_frame->payload.stack_frame.depth =
@ -201,7 +203,7 @@ struct pso_pointer make_frame_with_arglist_and_env( struct pso_pointer
arg_count, new_pointer.page, new_pointer.offset );
#endif
prev_frame->payload.stack_frame.previous = previous;
prev_frame->payload.stack_frame.previous = inc_ref( previous);
if ( stackp( previous ) ) {
new_frame->payload.stack_frame.depth =
@ -277,6 +279,12 @@ struct pso_pointer destroy_stack_frame( struct pso_pointer fp,
dec_ref( frame->payload.stack_frame.arg[i] );
}
frame->payload.stack_frame.previous = nil;
frame->payload.stack_frame.function = nil;
frame->payload.stack_frame.more = nil;
frame->payload.stack_frame.locals = nil;
frame->payload.stack_frame.env = nil;
frame->payload.stack_frame.args = 0;
frame->payload.stack_frame.depth = 0;
}