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

Added missing prototypes, init mark in make_cons

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

4
include/cyclone/types.h
View file

@ -146,6 +146,8 @@ void gc_thread_data_free(gc_thread_data *thd);
// Prototypes for mutator/collector: // Prototypes for mutator/collector:
void gc_mut_update(gc_thread_data *thd, object old_obj, object value); void gc_mut_update(gc_thread_data *thd, object old_obj, object value);
void gc_mut_cooperate(gc_thread_data *thd); void gc_mut_cooperate(gc_thread_data *thd);
void gc_stack_mark_refs_gray(gc_thread_data *thd, object obj);
void gc_stack_mark_gray(gc_thread_data *thd, object obj);
void gc_mark_gray(gc_thread_data *thd, object obj); void gc_mark_gray(gc_thread_data *thd, object obj);
void gc_collector_trace(); void gc_collector_trace();
void gc_mark_black(object obj); void gc_mark_black(object obj);
@ -342,7 +344,7 @@ typedef cons_type *list;
#define cddddr(x) (cdr(cdr(cdr(cdr(x))))) #define cddddr(x) (cdr(cdr(cdr(cdr(x)))))
#define make_cons(n,a,d) \ #define make_cons(n,a,d) \
cons_type n; n.tag = cons_tag; n.cons_car = a; n.cons_cdr = d; cons_type n; n.hdr.mark = gc_color_red; n.tag = cons_tag; n.cons_car = a; n.cons_cdr = d;
/* Closure types */ /* Closure types */