Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Initialize mark for load_varargs

Browse source
This commit is contained in:
Justin Ethier 2015-11-20 02:12:11 -05:00
parent 2de1ce0d5c
commit d1acb301c1
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -72,6 +72,7 @@ object Cyc_global_set(void *thd, object *glo, object value);
} else { \ } else { \
tmp = arg_var; \ tmp = arg_var; \
} \ } \
var[i].hdr.mark = gc_color_red; \
var[i].tag = cons_tag; \ var[i].tag = cons_tag; \
var[i].cons_car = tmp; \ var[i].cons_car = tmp; \
var[i].cons_cdr = (i == (count-1)) ? nil : &var[i + 1]; \ var[i].cons_cdr = (i == (count-1)) ? nil : &var[i + 1]; \