lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix #22 

segfault printing stack trace for error during evaluation of argument
default values
This commit is contained in:
Jeff Bezanson 2016-08-09 22:58:44 -04:00 committed by Lassi Kortela
parent fe6948e421
commit 55368f1e48
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
flisp.c
View File

@ -1991,7 +1991,13 @@ static value_t _stacktrace(uint32_t top)
&vector_elt(Stack[bp+1],0), (sz-1)*sizeof(value_t)); &vector_elt(Stack[bp+1],0), (sz-1)*sizeof(value_t));
} }
else { else {
memcpy(&vector_elt(v,0), &Stack[bp], sz*sizeof(value_t)); uint32_t i;
for(i=0; i < sz; i++) {
value_t si = Stack[bp+i];
// if there's an error evaluating argument defaults some slots
// might be left set to UNBOUND (issue #22)
vector_elt(v,i) = (si == UNBOUND ? FL_UNSPECIFIED : si);
}
} }
lst = fl_cons(v, lst); lst = fl_cons(v, lst);
top = Stack[top-4]; top = Stack[top-4];