LLVMValueRef gen_ge_assign(struct node *ast)
{
LLVMValueRef result;
result = gen_ge(ast);
check_store(result, lvalue(ast->one));
return result;
}
static bool special_case_operator(compile_t* c, ast_t* ast,
LLVMValueRef *value, bool short_circuit, bool native128)
{
AST_GET_CHILDREN(ast, positional, named, postfix);
AST_GET_CHILDREN(postfix, left, method);
ast_t* right = ast_child(positional);
const char* name = ast_name(method);
*value = NULL;
if(name == c->str_add)
*value = gen_add(c, left, right);
else if(name == c->str_sub)
*value = gen_sub(c, left, right);
else if((name == c->str_mul) && native128)
*value = gen_mul(c, left, right);
else if((name == c->str_div) && native128)
*value = gen_div(c, left, right);
else if((name == c->str_mod) && native128)
*value = gen_mod(c, left, right);
else if(name == c->str_neg)
*value = gen_neg(c, left);
else if((name == c->str_and) && short_circuit)
*value = gen_and_sc(c, left, right);
else if((name == c->str_or) && short_circuit)
*value = gen_or_sc(c, left, right);
else if((name == c->str_and) && !short_circuit)
*value = gen_and(c, left, right);
else if((name == c->str_or) && !short_circuit)
*value = gen_or(c, left, right);
else if(name == c->str_xor)
*value = gen_xor(c, left, right);
else if(name == c->str_not)
*value = gen_not(c, left);
else if(name == c->str_shl)
*value = gen_shl(c, left, right);
else if(name == c->str_shr)
*value = gen_shr(c, left, right);
else if(name == c->str_eq)
*value = gen_eq(c, left, right);
else if(name == c->str_ne)
*value = gen_ne(c, left, right);
else if(name == c->str_lt)
*value = gen_lt(c, left, right);
else if(name == c->str_le)
*value = gen_le(c, left, right);
else if(name == c->str_ge)
*value = gen_ge(c, left, right);
else if(name == c->str_gt)
*value = gen_gt(c, left, right);
else
return false;
return true;
}
static bool special_case_operator(compile_t* c, ast_t* ast,
LLVMValueRef *value, bool short_circuit, bool native128)
{
AST_GET_CHILDREN(ast, postfix, positional, named, question);
AST_GET_CHILDREN(postfix, left, method);
ast_t* right = ast_child(positional);
const char* name = ast_name(method);
bool special_case = true;
*value = NULL;
codegen_debugloc(c, ast);
if(name == c->str_add)
*value = gen_add(c, left, right, true);
else if(name == c->str_sub)
*value = gen_sub(c, left, right, true);
else if((name == c->str_mul) && native128)
*value = gen_mul(c, left, right, true);
else if((name == c->str_div) && native128)
*value = gen_div(c, left, right, true);
else if((name == c->str_rem) && native128)
*value = gen_rem(c, left, right, true);
else if(name == c->str_neg)
*value = gen_neg(c, left, true);
else if(name == c->str_add_unsafe)
*value = gen_add(c, left, right, false);
else if(name == c->str_sub_unsafe)
*value = gen_sub(c, left, right, false);
else if((name == c->str_mul_unsafe) && native128)
*value = gen_mul(c, left, right, false);
else if((name == c->str_div_unsafe) && native128)
*value = gen_div(c, left, right, false);
else if((name == c->str_rem_unsafe) && native128)
*value = gen_rem(c, left, right, false);
else if(name == c->str_neg_unsafe)
*value = gen_neg(c, left, false);
else if((name == c->str_and) && short_circuit)
*value = gen_and_sc(c, left, right);
else if((name == c->str_or) && short_circuit)
*value = gen_or_sc(c, left, right);
else if((name == c->str_and) && !short_circuit)
*value = gen_and(c, left, right);
else if((name == c->str_or) && !short_circuit)
*value = gen_or(c, left, right);
else if(name == c->str_xor)
*value = gen_xor(c, left, right);
else if(name == c->str_not)
*value = gen_not(c, left);
else if(name == c->str_shl)
*value = gen_shl(c, left, right, true);
else if(name == c->str_shr)
*value = gen_shr(c, left, right, true);
else if(name == c->str_shl_unsafe)
*value = gen_shl(c, left, right, false);
else if(name == c->str_shr_unsafe)
*value = gen_shr(c, left, right, false);
else if(name == c->str_eq)
*value = gen_eq(c, left, right, true);
else if(name == c->str_ne)
*value = gen_ne(c, left, right, true);
else if(name == c->str_lt)
*value = gen_lt(c, left, right, true);
else if(name == c->str_le)
*value = gen_le(c, left, right, true);
else if(name == c->str_ge)
*value = gen_ge(c, left, right, true);
else if(name == c->str_gt)
*value = gen_gt(c, left, right, true);
else if(name == c->str_eq_unsafe)
*value = gen_eq(c, left, right, false);
else if(name == c->str_ne_unsafe)
*value = gen_ne(c, left, right, false);
else if(name == c->str_lt_unsafe)
*value = gen_lt(c, left, right, false);
else if(name == c->str_le_unsafe)
*value = gen_le(c, left, right, false);
else if(name == c->str_ge_unsafe)
*value = gen_ge(c, left, right, false);
else if(name == c->str_gt_unsafe)
*value = gen_gt(c, left, right, false);
else
special_case = false;
codegen_debugloc(c, NULL);
return special_case;
}
