struct InstrSeq * doPrintsp(struct ExprRes * Expr){
if(Expr->Type != TYPE_INT){
TypeError();
}
struct InstrSeq * code;
code = Expr->Instrs;
char * end = GenLabel();
char * next = GenLabel();
int i = AvailTmpReg();
int one = AvailTmpReg();
AppendSeq(code, GenInstr(NULL, "addi", TmpRegName(one), "$0", "1"));
AppendSeq(code, GenInstr(NULL, "blt", TmpRegName(Expr->Reg), "$0", end));
AppendSeq(code, GenInstr(NULL, "li", TmpRegName(i), "0", NULL));
AppendSeq(code, GenInstr(next, NULL,NULL,NULL,NULL));
AppendSeq(code, GenInstr(NULL, "li", "$v0", "4", NULL));
AppendSeq(code, GenInstr(NULL, "la", "$a0", "_sp", NULL));
AppendSeq(code, GenInstr(NULL, "syscall", NULL, NULL,NULL));
AppendSeq(code, GenInstr(NULL, "addi", TmpRegName(i), TmpRegName(i), "1"));
AppendSeq(code, GenInstr(NULL, "blt", TmpRegName(i), TmpRegName(Expr->Reg), next));
AppendSeq(code, GenInstr(end, NULL,NULL,NULL,NULL));
ReleaseTmpReg(i);
ReleaseTmpReg(one);
ReleaseTmpReg(Expr->Reg);
free(Expr);
free(end);
free(next);
return code;
}
struct InstrSeq * doPrintln(){
struct InstrSeq * code;
code = GenInstr(NULL,"li","$v0","4",NULL);
AppendSeq(code,GenInstr(NULL,"la","$a0","_nl",NULL));
AppendSeq(code,GenInstr(NULL,"syscall",NULL,NULL,NULL));
return code;
}
extern struct InstrSeq *doReturn(struct ExprRes *val)
{
struct InstrSeq *instrs = val->Instrs;
AppendSeq(instrs, GenInstr(NULL, "move", "$v0", TmpRegName(val->Reg), NULL));
AppendSeq(instrs, GenInstr(NULL, "jr", "$ra", NULL, NULL));
ReleaseTmpReg(val->Reg);
free(val);
return instrs;
}
struct InstrSeq *doArrayRead( char * VarName, struct ExprRes * index){
struct ExprRes * res = malloc(sizeof(struct ExprRes));
res->Reg = AvailTmpReg();
res->Type = -1;
res->Instrs = GenInstr(NULL, "li", "$v0", "5", NULL);
AppendSeq(res->Instrs, GenInstr(NULL, "syscall", NULL, NULL, NULL));
AppendSeq(res->Instrs, GenInstr(NULL, "move", TmpRegName(res->Reg), "$v0", NULL));
return doArrayAssign(VarName, index, res);
}
struct ExprRes * doAnd(struct ExprRes * Res1, struct ExprRes * Res2){
if(Res1->Type != TYPE_BOOL || Res2->Type != TYPE_BOOL){
TypeError();
}
AppendSeq(Res1->Instrs, Res2->Instrs);
AppendSeq(Res1->Instrs, GenInstr(NULL, "and", TmpRegName(Res1->Reg), TmpRegName(Res1->Reg), TmpRegName(Res2->Reg)));
ReleaseTmpReg(Res2->Reg);
free(Res2);
return Res1;
}
struct InstrSeq * doPrintSeq(struct ExprRes * Expr, struct InstrSeq * Seq){
struct InstrSeq * InSeq = doPrint(Expr);
AppendSeq(InSeq, GenInstr(NULL, "li", "$v0", "4", NULL));
AppendSeq(InSeq, GenInstr(NULL, "la", "$a0", "_sp", NULL));
AppendSeq(InSeq, GenInstr(NULL, "syscall", NULL, NULL,NULL));
AppendSeq(InSeq, Seq);
return InSeq;
}
extern struct InstrSeq *FuncDec(char *name, struct InstrSeq *code)
{
char nname[100];
snprintf(nname, 100, "_%s", name);
struct InstrSeq *fcode;
fcode = GenInstr(nname, NULL, NULL, NULL, NULL);
fcode = AppendSeq(fcode, code);
fcode = AppendSeq(fcode, GenInstr(NULL, "jr", "$ra", NULL, NULL));
DestroySymTab(locTable);
locTable = NULL;
return fcode;
}
struct ExprRes * doBinaryMinus(struct ExprRes * Res1, struct ExprRes * Res2){
if(Res1->Type != TYPE_INT || Res2->Type != TYPE_INT ){
TypeError();
}
int reg;
reg = AvailTmpReg();
AppendSeq(Res1->Instrs, Res2->Instrs);
AppendSeq(Res1->Instrs, GenInstr(NULL,"sub",
TmpRegName(Res1->Reg),
TmpRegName(Res1->Reg),
TmpRegName(Res2->Reg)));
ReleaseTmpReg(Res2->Reg);
free(Res2);
return Res1;
}
extern struct ExprRes * doRelOp(struct ExprRes * Res1, struct ExprRes * Res2, int op){
if(Res1->Type != TYPE_INT || Res2->Type != TYPE_INT){
TypeError();
}
struct InstrSeq * iseq;
char * t_res = GenLabel();
char * end = GenLabel();
int reg = AvailTmpReg();
if (op == 0 ){
iseq = GenInstr(NULL, "beq", TmpRegName(Res1->Reg), TmpRegName(Res2->Reg), t_res);
}
else if (op == 1){
iseq = GenInstr(NULL, "beq", TmpRegName(Res1->Reg), TmpRegName(Res2->Reg), t_res);
AppendSeq(iseq, GenInstr(NULL, "bgt", TmpRegName(Res1->Reg), TmpRegName(Res2->Reg), t_res));
}
else if (op == 2) {
iseq = GenInstr(NULL, "beq", TmpRegName(Res1->Reg), TmpRegName(Res2->Reg), t_res);
AppendSeq(iseq, GenInstr(NULL, "blt", TmpRegName(Res1->Reg), TmpRegName(Res2->Reg), t_res));
}
else if (op == 3) {
iseq = GenInstr(NULL, "bne", TmpRegName(Res1->Reg), TmpRegName(Res2->Reg), t_res);
}
else if (op == 4) {
iseq = GenInstr(NULL, "blt", TmpRegName(Res1->Reg), TmpRegName(Res2->Reg),t_res);
}
else if (op == 5) {
iseq = GenInstr(NULL, "bgt", TmpRegName(Res1->Reg), TmpRegName(Res2->Reg), t_res);
}
AppendSeq(iseq, GenInstr(NULL, "li", TmpRegName(reg), "0", NULL));
AppendSeq(iseq, GenInstr(NULL, "b", end, NULL,NULL));
AppendSeq(iseq, GenInstr(t_res, NULL,NULL,NULL,NULL));
AppendSeq(iseq, GenInstr(NULL, "li", TmpRegName(reg), "1", NULL));
AppendSeq(iseq, GenInstr(end, NULL,NULL,NULL,NULL));
AppendSeq(Res1->Instrs, Res2->Instrs);
AppendSeq(Res1->Instrs, iseq);
ReleaseTmpReg(Res1->Reg);
ReleaseTmpReg(Res2->Reg);
free(t_res);
free(end);
free(Res2);
Res1->Reg = reg;
Res1->Type = TYPE_BOOL;
return Res1;
}
extern struct InstrSeq * doWhile(struct ExprRes *res, struct InstrSeq *seq){
if( res->Type != TYPE_BOOL){
TypeError();
}
struct InstrSeq * code;
char * loop = GenLabel();
char * end = GenLabel();
code = GenInstr(loop, NULL, NULL, NULL, NULL);
AppendSeq(code, res->Instrs);
AppendSeq(code, GenInstr(NULL, "beq", TmpRegName(res->Reg), "$0", end));
AppendSeq(code, seq);
AppendSeq(code, GenInstr(NULL, "b", loop, NULL, NULL));
AppendSeq(code, GenInstr(end, NULL, NULL, NULL, NULL));
ReleaseTmpReg(res->Reg);
free(res);
free(loop);
free(end);
return code;
}
extern struct InstrSeq * doIf(struct ExprRes *res, struct InstrSeq *seq){
if(res->Type != TYPE_BOOL){
TypeError();
}
struct InstrSeq *code;
code = res->Instrs;
char * label;
label = GenLabel();
AppendSeq(code, GenInstr(NULL, "beq", TmpRegName(res->Reg), "$0",label ));
AppendSeq(code, seq);
AppendSeq(code, GenInstr(label, NULL,NULL,NULL,NULL));
ReleaseTmpReg(res->Reg);
free(res);
free(label);
return code;
}
extern struct ExprRes *doFuncCall(char *name)
{
char nname[100];
snprintf(nname, 100, "_%s", name);
struct SymEntry *e;
e = FindName(ProcSymTab, name);
if(!e)
{
WriteIndicator(GetCurrentColumn());
WriteMessage("Function Not Declared");
exit(1);
}
struct ExprRes *res = malloc(sizeof(struct ExprRes));
res->Reg = AvailTmpReg();
res->Type = TYPE_INT;
res->Instrs = SaveSeq();
AppendSeq(res->Instrs, GenInstr(NULL, "jal", nname, NULL, NULL));
AppendSeq(res->Instrs, RestoreSeq());
AppendSeq(res->Instrs, GenInstr(NULL, "move", TmpRegName(res->Reg), "$v0", NULL));
return res;
}
struct ExprRes * doArrayRval(char * name, struct ExprRes * index){
int reg = AvailTmpReg();
struct SymEntry * e = FindName(table, name);
if( !e ){
WriteIndicator(GetCurrentColumn());
WriteMessage("Undeclared variable");
exit(1);
}
if(index->Type != TYPE_INT){
TypeError();
}
char * buffer = RegOff(0, TmpRegName(reg));
struct Vtype * vtype = ((struct Vtype *)e->Attributes);
//change later for variable locality
if( vtype->Local) {
AppendSeq(index->Instrs, GenInstr(NULL, "addi", TmpRegName(reg), "$sp", Imm(vtype->StackIndex)));
}
else{
AppendSeq(index->Instrs, GenInstr( NULL, "la", TmpRegName(reg), name, NULL));
}
AppendSeq(index->Instrs, GenInstr(NULL, "mul", TmpRegName(index->Reg), TmpRegName(index->Reg), "4"));
AppendSeq(index->Instrs, GenInstr(NULL, "add", TmpRegName(reg), TmpRegName(reg), TmpRegName(index->Reg)));
AppendSeq(index->Instrs, GenInstr(NULL , "lw", TmpRegName(index->Reg), buffer, NULL));
if( vtype->Type == TYPE_INTARR){
index->Type = TYPE_INT;
}
else {
index->Type = TYPE_BOOL;
}
ReleaseTmpReg(reg);
return index;
}
struct InstrSeq * doAssign(char *name, struct ExprRes * Expr) {
struct SymEntry *e;
struct InstrSeq *code;
if (global){
e = FindName(locTable, name);
if(!e){
e = FindName(table, name);
}
}
else{
e = FindName(table,name);
}
if (!e) {
WriteIndicator(GetCurrentColumn());
WriteMessage("Undeclared variable");
}
struct Vtype * vtype = ((struct Vtype *)e->Attributes);
if( Expr->Type != -1 && vtype->Type != Expr->Type){
TypeError();
}
code = Expr->Instrs;
if( vtype->Local == 0 ) {
AppendSeq(code, GenInstr(NULL, "sw", TmpRegName(Expr->Reg), name, NULL));
}
else {
AppendSeq(code, GenInstr(NULL, "sw", TmpRegName(Expr->Reg), RegOff(vtype->StackIndex, "$sp"), NULL));
}
ReleaseTmpReg(Expr->Reg);
free(Expr);
return code;
}
struct ExprRes * doNeg(struct ExprRes * Res1){
if(Res1->Type != TYPE_INT){
TypeError();
}
int reg;
reg = AvailTmpReg();
AppendSeq(Res1->Instrs, GenInstr(NULL, "sub",
TmpRegName(reg),
"$0",
TmpRegName(Res1->Reg)));
ReleaseTmpReg(Res1->Reg);
Res1->Reg = reg;
return Res1;
}
void MSA::FromFASTAFile(TextFile &File)
{
Clear();
FILE *f = File.GetStdioFile();
unsigned uSeqCount = 0;
unsigned uColCount = uInsane;
for (;;)
{
char *Label;
unsigned uSeqLength;
char *SeqData = GetFastaSeq(f, &uSeqLength, &Label, false);
if (0 == SeqData)
break;
AppendSeq(SeqData, uSeqLength, Label);
}
}
struct ExprRes * doPower(struct ExprRes * Res1, struct ExprRes * Res2) {
if(Res1->Type != TYPE_INT || Res2->Type != TYPE_INT){
TypeError();
}
int reg;
reg = AvailTmpReg();
struct InstrSeq* iseq;
int pow = AvailTmpReg();
int current = AvailTmpReg();
char * l1 = GenLabel();
char * l2 = GenLabel();
iseq = GenInstr(NULL, "move", TmpRegName(pow), "$0", NULL);
AppendSeq(iseq, GenInstr(NULL, "addi", TmpRegName(current), "$0", "1"));
AppendSeq(iseq, GenInstr(NULL, "beq", TmpRegName(Res2->Reg), "$0", l2));
AppendSeq(iseq, GenInstr(l1, NULL, NULL, NULL, NULL));
AppendSeq(iseq, GenInstr(NULL, "mul", TmpRegName(current), TmpRegName(current), TmpRegName(Res1->Reg)));
AppendSeq(iseq, GenInstr(NULL, "addi", TmpRegName(pow), TmpRegName(pow), "1"));
AppendSeq(iseq, GenInstr(NULL, "blt", TmpRegName(pow), TmpRegName(Res2->Reg), l1));
AppendSeq(iseq, GenInstr(l2, NULL, NULL, NULL, NULL));
AppendSeq(Res1->Instrs, Res2->Instrs);
AppendSeq(Res1->Instrs, iseq);
ReleaseTmpReg(Res1->Reg);
ReleaseTmpReg(Res2->Reg);
ReleaseTmpReg(pow);
Res1->Reg = current;
free(l1);
free(l2);
free(Res2);
return Res1;
}
struct InstrSeq * doArrayAssign( char * name, struct ExprRes * index, struct ExprRes * val){
struct SymEntry *e;
if( global ){
e = FindName(locTable, name);
if( !e){
e = FindName(table, name);
}
}
else{
e = FindName(table, name);
}
struct Vtype * vtype = ((struct Vtype *)e->Attributes);
struct InstrSeq * code;
int reg = AvailTmpReg();
char * buffer;
if (!e){
WriteIndicator(GetCurrentColumn());
WriteMessage("Undeclared variable");
}
if(index->Type != TYPE_INT){
TypeError();
}
else if( val->Type != -1 && ((vtype->Type == TYPE_BOOLARR && val->Type != TYPE_BOOL) || (vtype->Type == TYPE_INTARR && val->Type != TYPE_INT ))){
TypeError();
}
buffer = RegOff(0, TmpRegName(reg));
code = val->Instrs;
AppendSeq(code, index->Instrs);
// change for locality later
if (! vtype->Local){
AppendSeq( code, GenInstr( NULL, "la", TmpRegName(reg), name, NULL));
}
else {
AppendSeq(code, GenInstr(NULL, "addi", TmpRegName(reg), "$sp", Imm(vtype->StackIndex)));
}
AppendSeq( code, GenInstr( NULL, "mul", TmpRegName(index->Reg), TmpRegName(index->Reg), "4"));
AppendSeq( code, GenInstr(NULL, "add", TmpRegName(reg), TmpRegName(reg), TmpRegName(index->Reg)));
AppendSeq( code, GenInstr(NULL, "sw", TmpRegName(val->Reg), buffer, NULL));
ReleaseTmpReg(val->Reg);
ReleaseTmpReg(index->Reg);
ReleaseTmpReg(reg);
free(val);
free(index);
return code;
}
struct ExprRes * doNot(struct ExprRes * Res){
if(Res->Type != TYPE_BOOL){
TypeError();
}
char * fal = GenLabel();
char * end = GenLabel();
AppendSeq(Res->Instrs, GenInstr(NULL, "beq", "$0", TmpRegName(Res->Reg), fal));
AppendSeq(Res->Instrs, GenInstr(NULL, "li", TmpRegName(Res->Reg), "0", NULL ));
AppendSeq(Res->Instrs, GenInstr(NULL, "b", end, NULL,NULL));
AppendSeq(Res->Instrs, GenInstr(fal, NULL, NULL, NULL, NULL));
AppendSeq(Res->Instrs, GenInstr(NULL, "li", TmpRegName(Res->Reg), "1", NULL ));
AppendSeq(Res->Instrs, GenInstr(end, NULL,NULL,NULL,NULL));
return Res;
}
extern struct InstrSeq * doIfElse(struct ExprRes *res, struct InstrSeq * iseq, struct InstrSeq *eseq){
if(res->Type != TYPE_BOOL){
TypeError();
}
struct InstrSeq * code;
code = res->Instrs;
char * else_label = GenLabel();
char *end = GenLabel();
AppendSeq(code, GenInstr(NULL, "beq", TmpRegName(res->Reg), "$0", else_label));
AppendSeq(code, iseq);
AppendSeq(code, GenInstr(NULL, "b", end,NULL,NULL));
AppendSeq(code, GenInstr(else_label, NULL,NULL,NULL,NULL));
AppendSeq(code, eseq);
AppendSeq(code, GenInstr(end, NULL,NULL,NULL,NULL));
ReleaseTmpReg(res->Reg);
free(res);
free(else_label);
free(end);
return code;
}
void
Finish(struct InstrSeq *Code)
{ struct InstrSeq *code;
struct SymEntry *entry;
struct Attr * attr;
struct StrLabels * strlabel;
code = GenInstr(NULL,".text",NULL,NULL,NULL);
AppendSeq(code,GenInstr(NULL,".globl","main",NULL,NULL));
AppendSeq(code, GenInstr("main",NULL,NULL,NULL,NULL));
AppendSeq(code, doFuncStmt("main"));
AppendSeq(code, GenInstr(NULL, "li", "$v0", "10", NULL));
AppendSeq(code, GenInstr(NULL,"syscall",NULL,NULL,NULL));
AppendSeq(code,Code);
AppendSeq(code,GenInstr(NULL,".data",NULL,NULL,NULL));
AppendSeq(code,GenInstr(NULL,".align","4",NULL,NULL));
AppendSeq(code,GenInstr("_nl",".asciiz","\"\\n\"",NULL,NULL));
AppendSeq(code,GenInstr("_tru",".asciiz","\"true\"",NULL,NULL));
AppendSeq(code,GenInstr("_fal",".asciiz","\"false\"",NULL,NULL));
AppendSeq(code,GenInstr("_sp", ".asciiz","\" \"",NULL,NULL));
entry = FirstEntry(table);
while (entry) {
struct Vtype * vtype = ((struct Vtype *)entry->Attributes);
AppendSeq(code, GenInstr(NULL, ".align", "4", NULL, NULL));
if(vtype->Type == TYPE_INTARR || vtype->Type == TYPE_BOOLARR){
char * buffer;
buffer = Imm(4 * vtype->Size);
AppendSeq(code, GenInstr( (char*)GetName(entry), ".space", buffer, NULL, NULL));
}
else {
AppendSeq(code,GenInstr((char *) GetName(entry),".word","0",NULL,NULL));
}
entry = NextEntry(table, entry);
}
strlabel = slabels;
while( strlabel ){
AppendSeq(code, GenInstr(NULL, ".align", "4", NULL, NULL));
AppendSeq(code, GenInstr(strlabel->SLabel, ".asciiz", strlabel->Str, NULL, NULL));
strlabel = strlabel->next;
}
WriteSeq(code);
return;
}
struct InstrSeq * doPrint(struct ExprRes * Expr) {
struct InstrSeq *code;
code = Expr->Instrs;
char * end = GenLabel();
if (Expr->Type == TYPE_BOOL){
char * fal = GenLabel();
AppendSeq(code,GenInstr(NULL,"li","$v0","4",NULL));
AppendSeq(code, GenInstr(NULL, "beq", "$0", TmpRegName(Expr->Reg), fal));
AppendSeq(code,GenInstr(NULL,"la","$a0","_tru",NULL));
AppendSeq(code,GenInstr(NULL,"syscall",NULL,NULL,NULL));
AppendSeq(code, GenInstr(NULL, "b", end, NULL, NULL));
AppendSeq(code, GenInstr(fal, NULL, NULL, NULL, NULL));
AppendSeq(code,GenInstr(NULL,"la","$a0","_fal",NULL));
AppendSeq(code,GenInstr(NULL,"syscall",NULL,NULL,NULL));
}
else if(Expr->Type == TYPE_INT){
AppendSeq(code,GenInstr(NULL,"li","$v0","1",NULL));
AppendSeq(code,GenInstr(NULL,"move","$a0",TmpRegName(Expr->Reg),NULL));
AppendSeq(code,GenInstr(NULL,"syscall",NULL,NULL,NULL));
}
else if (Expr->Type == TYPE_STR){
AppendSeq(code, GenInstr(NULL, "li", "$v0", "4", NULL));
AppendSeq(code, GenInstr(NULL, "move", "$a0", TmpRegName(Expr->Reg), NULL));
AppendSeq(code, GenInstr(NULL, "syscall", NULL, NULL, NULL));
}
AppendSeq(code, GenInstr(end,NULL,NULL,NULL,NULL));
ReleaseTmpReg(Expr->Reg);
free(Expr);
return code;
}