public Frag transProg(Absyn.Exp exp) {
new FindEscape.FindEscape(exp);
level = new Level(level, Symbol.Symbol.symbol("tigermain"), null);
ExpTy body = transExp(exp);
translate.procEntryExit(level, body.exp);
return translate.getResult();
}
ExpTy transVar(Absyn.SimpleVar v, boolean lhs) {
Entry x = (Entry) env.venv.get(v.name);
if (x instanceof VarEntry) {
VarEntry ent = (VarEntry) x;
if (lhs && ent instanceof LoopVarEntry) error(v.pos, "assignment to loop index");
return new ExpTy(translate.SimpleVar(ent.access, level), ent.ty);
}
error(v.pos, "undeclared variable: " + v.name);
return new ExpTy(translate.Error(), VOID);
}
ExpTy transVar(Absyn.SubscriptVar v) {
ExpTy var = transVar(v.var);
ExpTy index = transExp(v.index);
checkInt(index, v.index.pos);
Type actual = var.ty.actual();
if (actual instanceof Types.ARRAY) {
Types.ARRAY array = (Types.ARRAY) actual;
return new ExpTy(translate.SubscriptVar(var.exp, index.exp), array.element);
}
error(v.var.pos, "array required");
return new ExpTy(translate.Error(), VOID);
}
ExpTy transExp(Absyn.RecordExp e) {
Types.NAME name = (Types.NAME) env.tenv.get(e.typ);
if (name != null) {
Type actual = name.actual();
if (actual instanceof Types.RECORD) {
Types.RECORD r = (Types.RECORD) actual;
return new ExpTy(translate.RecordExp(transFields(e.pos, r, e.fields)), name);
}
error(e.pos, "record type required");
} else error(e.pos, "undeclared type: " + e.typ);
return new ExpTy(translate.Error(), VOID);
}
ExpTy transVar(Absyn.FieldVar v) {
ExpTy var = transVar(v.var);
Type actual = var.ty.actual();
if (actual instanceof Types.RECORD) {
int count = 0;
for (Types.RECORD field = (Types.RECORD) actual; field != null; field = field.tail) {
if (field.fieldName == v.field)
return new ExpTy(translate.FieldVar(var.exp, count), field.fieldType);
++count;
}
error(v.pos, "undeclared field: " + v.field);
} else error(v.var.pos, "record required");
return new ExpTy(translate.Error(), VOID);
}
ExpTy transExp(Absyn.ArrayExp e) {
Types.NAME name = (Types.NAME) env.tenv.get(e.typ);
ExpTy size = transExp(e.size);
ExpTy init = transExp(e.init);
checkInt(size, e.size.pos);
if (name != null) {
Type actual = name.actual();
if (actual instanceof Types.ARRAY) {
Types.ARRAY array = (Types.ARRAY) actual;
if (!init.ty.coerceTo(array.element)) error(e.init.pos, "element type mismatch");
return new ExpTy(translate.ArrayExp(size.exp, init.exp), name);
} else error(e.pos, "array type required");
} else error(e.pos, "undeclared type: " + e.typ);
return new ExpTy(translate.Error(), VOID);
}
Exp transDec(Absyn.TypeDec d) {
// 1st pass - handles the type headers
// Using a local hashtable, check if there are two types
// with the same name in the same (consecutive) batch
// of mutually recursive types. See test38.tig!
Hashtable hash = new Hashtable();
for (Absyn.TypeDec type = d; type != null; type = type.next) {
if (hash.put(type.name, type.name) != null) error(type.pos, "type redeclared");
type.entry = new Types.NAME(type.name);
env.tenv.put(type.name, type.entry);
}
// 2nd pass - handles the type bodies
for (Absyn.TypeDec type = d; type != null; type = type.next) {
Types.NAME name = (Types.NAME) type.entry;
name.bind(transTy(type.ty));
}
// check for illegal cycle in type declarations
for (Absyn.TypeDec type = d; type != null; type = type.next) {
Types.NAME name = (Types.NAME) type.entry;
if (name.isLoop()) error(type.pos, "illegal type cycle");
}
return translate.TypeDec();
}
ExpTy transExp(Absyn.WhileExp e) {
ExpTy test = transExp(e.test);
checkInt(test, e.test.pos);
LoopSemant loop = new LoopSemant(env, translate, level);
ExpTy body = loop.transExp(e.body);
if (!body.ty.coerceTo(VOID)) error(e.body.pos, "result type mismatch");
return new ExpTy(translate.WhileExp(test.exp, body.exp, loop.done), VOID);
}
ExpTy transExp(Absyn.IfExp e) {
ExpTy test = transExp(e.test);
checkInt(test, e.test.pos);
ExpTy thenclause = transExp(e.thenclause);
ExpTy elseclause = transExp(e.elseclause);
if (!thenclause.ty.coerceTo(elseclause.ty) && !elseclause.ty.coerceTo(thenclause.ty))
error(e.pos, "result type mismatch");
return new ExpTy(translate.IfExp(test.exp, thenclause.exp, elseclause.exp), elseclause.ty);
}
ExpTy transExp(Absyn.SeqExp e) {
Type type = VOID;
ExpList head = new ExpList(null, null), prev = head;
for (Absyn.ExpList exp = e.list; exp != null; exp = exp.tail) {
ExpTy et = transExp(exp.head);
type = et.ty;
prev = prev.tail = new ExpList(et.exp, null);
}
return new ExpTy(translate.SeqExp(head.tail), type);
}
ExpTy transExp(Absyn.LetExp e) {
env.venv.beginScope();
env.tenv.beginScope();
ExpList head = new ExpList(null, null), prev = head;
for (Absyn.DecList d = e.decs; d != null; d = d.tail) {
prev = prev.tail = new ExpList(transDec(d.head), null);
}
ExpTy body = transExp(e.body);
env.venv.endScope();
env.tenv.endScope();
return new ExpTy(translate.LetExp(head.tail, body.exp), body.ty);
}
ExpTy transExp(Absyn.CallExp e) {
Entry x = (Entry) env.venv.get(e.func);
if (x instanceof FunEntry) {
FunEntry f = (FunEntry) x;
ExpList args = transArgs(e.pos, f.formals, e.args);
if (f.level == null)
return new ExpTy(
f.result.coerceTo(VOID)
? translate.ProcExp(e.func, args, level)
: translate.FunExp(e.func, args, level),
f.result);
else
return new ExpTy(
f.result.coerceTo(VOID)
? translate.ProcExp(f.level, args, level)
: translate.FunExp(f.level, args, level),
f.result);
}
error(e.pos, "undeclared function: " + e.func);
return new ExpTy(translate.Error(), VOID);
}
Exp transDec(Absyn.FunctionDec d) {
// 1st pass - handles the function headers
Hashtable hash = new Hashtable();
for (Absyn.FunctionDec f = d; f != null; f = f.next) {
if (hash.put(f.name, f.name) != null) error(f.pos, "function redeclared");
Types.RECORD fields = transTypeFields(new Hashtable(), f.params);
Type type = transTy(f.result);
Level newLevel = new Level(level, f.name, escapes(f.params), f.leaf);
f.entry = new FunEntry(newLevel, fields, type);
env.venv.put(f.name, f.entry);
}
// 2nd pass - handles the function bodies
for (Absyn.FunctionDec f = d; f != null; f = f.next) {
env.venv.beginScope();
putTypeFields(f.entry.formals, f.entry.level.formals);
Semant fun = new Semant(env, translate, f.entry.level);
ExpTy body = fun.transExp(f.body);
if (!body.ty.coerceTo(f.entry.result)) error(f.body.pos, "result type mismatch");
translate.procEntryExit(f.entry.level, body.exp);
env.venv.endScope();
}
return translate.FunctionDec();
}
ExpTy transExp(Absyn.ForExp e) {
ExpTy lo = transExp(e.var.init);
checkInt(lo, e.var.pos);
ExpTy hi = transExp(e.hi);
checkInt(hi, e.hi.pos);
env.venv.beginScope();
Access access = level.allocLocal(e.var.escape);
e.var.entry = new LoopVarEntry(access, INT);
env.venv.put(e.var.name, e.var.entry);
LoopSemant loop = new LoopSemant(env, translate, level);
ExpTy body = loop.transExp(e.body);
env.venv.endScope();
if (!body.ty.coerceTo(VOID)) error(e.body.pos, "result type mismatch");
return new ExpTy(translate.ForExp(access, lo.exp, hi.exp, body.exp, loop.done), VOID);
}
Exp transDec(Absyn.VarDec d) {
ExpTy init = transExp(d.init);
Type type;
if (d.typ == null) {
if (init.ty.coerceTo(NIL)) error(d.pos, "record type required");
type = init.ty;
} else {
type = transTy(d.typ);
if (!init.ty.coerceTo(type)) error(d.pos, "assignment type mismatch");
}
Access access = level.allocLocal(d.escape);
d.entry = new VarEntry(access, type);
env.venv.put(d.name, d.entry);
return translate.VarDec(access, init.exp);
}
ExpTy transExp(Absyn.OpExp e) {
ExpTy left = transExp(e.left);
ExpTy right = transExp(e.right);
switch (e.oper) {
case Absyn.OpExp.PLUS:
case Absyn.OpExp.MINUS:
case Absyn.OpExp.MUL:
case Absyn.OpExp.DIV:
checkInt(left, e.left.pos);
checkInt(right, e.right.pos);
return new ExpTy(translate.OpExp(e.oper, left.exp, right.exp), INT);
case Absyn.OpExp.EQ:
case Absyn.OpExp.NE:
checkComparable(left, e.left.pos);
checkComparable(right, e.right.pos);
if (STRING.coerceTo(left.ty) && STRING.coerceTo(right.ty))
return new ExpTy(translate.StrOpExp(e.oper, left.exp, right.exp), INT);
else if (!left.ty.coerceTo(right.ty) && !right.ty.coerceTo(left.ty))
error(e.pos, "incompatible operands to equality operator");
return new ExpTy(translate.OpExp(e.oper, left.exp, right.exp), INT);
case Absyn.OpExp.LT:
case Absyn.OpExp.LE:
case Absyn.OpExp.GT:
case Absyn.OpExp.GE:
checkOrderable(left, e.left.pos);
checkOrderable(right, e.right.pos);
if (STRING.coerceTo(left.ty) && STRING.coerceTo(right.ty))
return new ExpTy(translate.StrOpExp(e.oper, left.exp, right.exp), INT);
else if (!left.ty.coerceTo(right.ty) && !right.ty.coerceTo(left.ty))
error(e.pos, "incompatible operands to inequality operator");
return new ExpTy(translate.OpExp(e.oper, left.exp, right.exp), INT);
default:
throw new Error("unknown operator");
}
}
ExpTy transExp(Absyn.Exp e) {
ExpTy result;
if (e == null) return new ExpTy(translate.Error(), VOID);
else if (e instanceof Absyn.VarExp) result = transExp((Absyn.VarExp) e);
else if (e instanceof Absyn.NilExp) result = transExp((Absyn.NilExp) e);
else if (e instanceof Absyn.IntExp) result = transExp((Absyn.IntExp) e);
else if (e instanceof Absyn.StringExp) result = transExp((Absyn.StringExp) e);
else if (e instanceof Absyn.CallExp) result = transExp((Absyn.CallExp) e);
else if (e instanceof Absyn.OpExp) result = transExp((Absyn.OpExp) e);
else if (e instanceof Absyn.RecordExp) result = transExp((Absyn.RecordExp) e);
else if (e instanceof Absyn.SeqExp) result = transExp((Absyn.SeqExp) e);
else if (e instanceof Absyn.AssignExp) result = transExp((Absyn.AssignExp) e);
else if (e instanceof Absyn.IfExp) result = transExp((Absyn.IfExp) e);
else if (e instanceof Absyn.WhileExp) result = transExp((Absyn.WhileExp) e);
else if (e instanceof Absyn.ForExp) result = transExp((Absyn.ForExp) e);
else if (e instanceof Absyn.BreakExp) result = transExp((Absyn.BreakExp) e);
else if (e instanceof Absyn.LetExp) result = transExp((Absyn.LetExp) e);
else if (e instanceof Absyn.ArrayExp) result = transExp((Absyn.ArrayExp) e);
else throw new Error("Semant.transExp");
e.type = result.ty;
return result;
}
ExpTy transExp(Absyn.AssignExp e) {
ExpTy var = transVar(e.var, true);
ExpTy exp = transExp(e.exp);
if (!exp.ty.coerceTo(var.ty)) error(e.pos, "assignment type mismatch");
return new ExpTy(translate.AssignExp(var.exp, exp.exp), VOID);
}
ExpTy transExp(Absyn.StringExp e) {
return new ExpTy(translate.StringExp(e.value), STRING);
}
ExpTy transExp(Absyn.IntExp e) {
return new ExpTy(translate.IntExp(e.value), INT);
}
ExpTy transExp(Absyn.NilExp e) {
return new ExpTy(translate.NilExp(), NIL);
}
