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

Fix double free

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-01-29 00:05:02 -08:00
parent 5029405a70
commit a469e137b4
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/kernel.gl
View File

@ -1,4 +1,4 @@
;; -*- mode: lisp-data -*- ;; -*- mode: lisp-data -*-
(print (funcall (let ((te 'a)) (print (funcall (let ((te 'a))
(lambda (b &optional (a te)) a)) 2)) (lambda (b &optional (a te ap)) a)) 2 3))

3
src/stack.c
View File

@ -193,7 +193,8 @@ void compact_stack_frame(struct StackFrame *restrict frame) {
for (size_t i = 1; i < refs->num_blocks; ++i) { for (size_t i = 1; i < refs->num_blocks; ++i) {
lisp_free(refs->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; refs->num_blocks = 1;
} }