Zander671/glisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial tricolor implementation

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-01-22 07:49:30 -08:00
parent 1a0906206a
commit 6cc85491cf
8 changed files with 68 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/stack.c
View File

@ -14,11 +14,11 @@ void lisp_init_stack(void) {
the_stack.frames =
lisp_malloc(sizeof(struct StackFrame) * the_stack.max_depth);
for (size_t i = 0; i < the_stack.max_depth; ++i) {
the_stack.frames->local_refs.num_refs = 0;
the_stack.frames->local_refs.num_blocks = 1;
the_stack.frames->local_refs.blocks =
the_stack.frames[i].local_refs.num_refs = 0;
the_stack.frames[i].local_refs.num_blocks = 1;
the_stack.frames[i].local_refs.blocks =
lisp_malloc(sizeof(struct LocalReferencesBlock *));
the_stack.frames->local_refs.blocks[0] =
the_stack.frames[i].local_refs.blocks[0] =
lisp_malloc(sizeof(struct LocalReferencesBlock));
}
the_stack.nogc_retval = Qnil;