blob: 4fbaa5f5f86c6c65f2635860d1b2effaa7c14a11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#pragma once
// A few helper macros
#include <gc.h>
#include <string.h>
#define heap(x) (__typeof(x)*)memcpy(GC_MALLOC(sizeof(x)), (__typeof(x)[1]){x}, sizeof(x))
#define stack(x) (__typeof(x)*)((__typeof(x)[1]){x})
#define tagged(obj_expr, type_name, tag_name) ({ __typeof(obj_expr) obj = obj_expr; \
obj.$tag == $tag$##type_name##$##tag_name ? &obj.tag_name : NULL; })
|
