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

Simplify logic

Browse source
This commit is contained in:
Justin Ethier 2017-04-24 17:58:05 +00:00
parent 4b35ff71df
commit 0656756ab4
1 changed files with 1 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
include/cyclone/types.h
View file

@ -1046,18 +1046,7 @@ typedef union {
if (!is_object_type(obj)) \
return obj; \
t = type_of(obj); \
if (t == boolean_tag || /* Pre-allocated */ \
t == symbol_tag || /* Allocated in their own area */ \
t == bignum_tag) { /* Always heap allocated */ \
return obj; \
} else if (0 && t == pair_tag) { \
((common_type *)ptr)->pair_t.hdr.mark = gc_color_red; \
((common_type *)ptr)->pair_t.hdr.grayed = 0; \
((common_type *)ptr)->pair_t.tag = pair_tag; \
((common_type *)ptr)->pair_t.pair_car = car(obj); \
((common_type *)ptr)->pair_t.pair_cdr = cdr(obj); \
return ptr; \
} else if (t == double_tag) { \
if (t == double_tag) { \
((common_type *)ptr)->double_t.hdr.mark = gc_color_red; \
((common_type *)ptr)->double_t.hdr.grayed = 0; \
((common_type *)ptr)->double_t.tag = double_tag; \