} while(0)
#define ASSIGN(op, a, b) \
-(ast_expression*)ast_store_new(ctx, INSTR_##op, (a), (ast_expression*)(b))
+(ast_expression*)ast_store_new(ctx, INSTR_##op, (ast_expression*)(a), (ast_expression*)(b))
#define BIN(op, a, b) \
(ast_expression*)ast_binary_new(ctx, INSTR_##op, (ast_expression*)(a), (ast_expression*)(b))
#define BUILTIN(name, outtype, number) \
do { \
ast_function *func_##name; \
+ ast_value *thisfuncval; \
ast_function *thisfunc; \
DEFVAR(return_##name); \
VARnamed(TYPE_FUNCTION, name, name); \
func_##name = ast_function_new(ctx, #name, name); \
thisfunc = func_##name; \
(void)thisfunc; \
+ thisfuncval = name; \
+ (void)thisfuncval; \
assert(functions_add(func_##name) >= 0); \
func_##name->builtin = number;
do { \
DEFVAR(parm); \
VARnamed(ptype, parm, name); \
- assert(ast_function_params_add(thisfunc, parm)); \
+ assert(ast_value_params_add(thisfuncval, parm)); \
} while(0)
#define FUNCTION(name, outtype) \