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

feature-2: allocating cells with count = 1; 7 unit tests (all bignums) fail.

Browse source
This commit is contained in:
Simon Brooke 2026-02-12 10:17:11 +00:00
parent 351ca5bd17
commit 004ff6737c
10 changed files with 209 additions and 114 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/memory/conspage.c
View file

@ -187,6 +187,8 @@ void free_cell( struct cons_pointer pointer ) {
case VECTORPOINTTV:
free_vso( pointer );
break;
default:
fprintf( stderr, "WARNING: Freeing object of type %s!", (char *) &(cell->tag.bytes));
}
strncpy( &cell->tag.bytes[0], FREETAG, TAGLENGTH );
@ -231,7 +233,7 @@ struct cons_pointer allocate_cell( uint32_t tag ) {
cell->tag.value = tag;
cell->count = 0;
cell->count = 1;
cell->payload.cons.car = NIL;
cell->payload.cons.cdr = NIL;