12 lines
428 B
C
12 lines
428 B
C
#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; })
|