Fix double free
This commit is contained in:
@ -193,7 +193,8 @@ void compact_stack_frame(struct StackFrame *restrict frame) {
|
||||
for (size_t i = 1; i < refs->num_blocks; ++i) {
|
||||
lisp_free(refs->blocks[i]);
|
||||
}
|
||||
lisp_realloc(refs->blocks, sizeof(struct LocalReferencesBlock *));
|
||||
refs->blocks =
|
||||
lisp_realloc(refs->blocks, sizeof(struct LocalReferencesBlock *));
|
||||
refs->num_blocks = 1;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user