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

Added alloca_pair

Browse source
This commit is contained in:
Justin Ethier 2018-10-17 18:48:18 -04:00
parent 44efba7c6d
commit 5752f6ace5
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
include/cyclone/types.h
View file

@ -1095,6 +1095,14 @@ typedef pair_type *pair;
n.pair_car = a; \ n.pair_car = a; \
n.pair_cdr = d; n.pair_cdr = d;
#define alloca_pair(n,a,d) \
pair_type *n = alloca(sizeof(pair_type)); \
n->hdr.mark = gc_color_red; \
n->hdr.grayed = 0; \
n->tag = pair_tag; \
n->pair_car = a; \
n->pair_cdr = d;
#define set_pair(n,a,d) \ #define set_pair(n,a,d) \
n->hdr.mark = gc_color_red; \ n->hdr.mark = gc_color_red; \
n->hdr.grayed = 0; \ n->hdr.grayed = 0; \