int code_stmt(ASTNode stmt,int BASEREG){
switch(stmt->type){
case Block:
code_block(stmt,BASEREG);
break;
case IfClause:
code_ifclause(stmt,BASEREG);
break;
case AssignExp:
code_assign(stmt,BASEREG);
break;
case NilStmt:
stmt->codes.head=stmt->codes.tail=NULL;
break;
case WhileClause:
code_whileclause(stmt,BASEREG);
break;
case FunctionCall:
code_call(stmt,BASEREG);
break;
default:
fprintf(stderr,"unsupported stmt\n");
}
return 0;
}
void dll_init(void)
{
code_call(ctx->mem_mcs);
}
void code_tac(FILE *file, RegDesc *registers, Tac *current)
{
switch (current->op)
{
case TAC_BEGINPROGRAM:
code_main(file);
code_begin_function(file, current->result);
break;
case TAC_BEGINFUNCTION:
code_begin_function(file, current->result);
break;
case TAC_ENDFUNCTION:
code_end_function(file, registers);
break;
case TAC_RETURN:
code_return(file, registers, current->result);
break;
case TAC_ENDPROGRAM:
code_end_function(file, registers);
break;
case TAC_GOTO:
code_jump(file, registers, JUMP, current->location->result, NULL);
break;
case TAC_IFZ:
code_jump(file, registers, JUMP_NE, current->location->result, current->condition);
break;
case TAC_IFNZ:
code_jump(file, registers, JUMP_E, current->location->result, current->condition);
break;
case TAC_ADD:
code_binary(file, registers, ADD, current->result, current->operand1, current->operand2);
break;
case TAC_SUBTRACT:
code_binary(file, registers, SUBTRACT, current->result, current->operand1, current->operand2);
break;
case TAC_MULTIPLY:
code_binary(file, registers, MULTIPLY, current->result, current->operand1, current->operand2);
break;
case TAC_DIVIDE:
code_binary(file, registers, DIVIDE, current->result, current->operand1, current->operand2);
break;
case TAC_NOT:
//FIX 5-19-2011 - INVERT is not what we want - thats a bit wise invert
//Since we are using booleans, just xor them
//code_unary(file, registers, INVERT, current->result, current->operand1);
code_binary(file, registers, LOGIC_XOR, current->result, current->operand1, symbol_one);
break;
case TAC_NEGATIVE:
code_unary(file, registers, NEGATE, current->result, current->operand1);
break;
case TAC_AND:
code_binary(file, registers, LOGIC_AND, current->result, current->operand1, current->operand2);
break;
case TAC_OR:
code_binary(file, registers, LOGIC_OR, current->result, current->operand1, current->operand2);
break;
case TAC_MOD:
code_binary(file, registers, ATT_MOD, current->result, current->operand1, current->operand2);
break;
case TAC_COPY:
code_copy(file, registers, current->result, current->operand1);
break;
case TAC_ARG:
code_arg(file, registers, current->result);
break;
case TAC_CALL://On a TAC call, the function is the operand, and the return is the result
code_call(file, registers, current->operand1, current->result);
break;
case TAC_LABEL:
debug("Code_Label - Symbol: %s", symbol_to_string(current->result));
code_flush_all(file, registers);
fprintf(file, "%s:\n", current->result->name);
break;
case TAC_GT:
code_compare(file, registers, IS_GREATER, current->result, current->operand1, current->operand2);
break;
case TAC_LT:
code_compare(file, registers, IS_LESS, current->result, current->operand1, current->operand2);
break;
case TAC_GTE:
code_compare(file, registers, IS_GREATER_EQUAL, current->result, current->operand1, current->operand2);
break;
case TAC_LTE:
code_compare(file, registers, IS_LESS_EQUAL, current->result, current->operand1, current->operand2);
break;
case TAC_EQUAL:
code_compare(file, registers, IS_EQUAL, current->result, current->operand1, current->operand2);
break;
case TAC_NOTEQUAL:
code_compare(file, registers, IS_NOT_EQUAL, current->result, current->operand1, current->operand2);
break;
case TAC_VARIABLE:
//do nothing
break;
case TAC_NOP:
//Do nothing
break;
default:
die("Unrecognized TAC: %d", current->op);
break;
}
}
int labelFunc(lua_State* l) {
unsigned short* const label = (unsigned short*)lua_tointeger(l, lua_upvalueindex(1));
code_call(label);
return stat;
}
