COMPORT – Compilador Portugol - Nilo Menezes

}
x.r = 0;
else if (y->lev == curlev)
x.r = FP;
else
{
Mark ("level!");
x.r = 0;
}
if (y->Class == Par)
{
GetReg (r);
Put (LDW, r, x.r, x.a);
x.mode = Var;
x.r = r;
x.a = 0;
}
void
Field (Item & x, Object & y)
{
x.a += y->val;
x.type = y->type;
}
void
Index (Item & x, Item & y)
{
if (y.type != intType)
Mark ("index not integer");
if (y.mode == Const)
{
if (y.a < 0 || y.a >= x.type->len)
Mark ("bad index");
x.a += y.a * x.type->base->size;
}
else
{
if (y.mode != Reg)
load (y);
Put (CHKI, y.r, 0, x.type->len);
Put (MULI, y.r, y.r, x.type->base->size);
if (x.r != 0)
{
Put (ADD, y.r, x.r, y.r);
EXCL (regs, x.r);
}
x.r = y.r;
}
x.type = x.type->base;
}
void
Op1 (int op, Item & x)
{
long t;
if (op == MENOS)
{
if (x.type->form != Integer)
Mark ("bad type");
else
ComPort – Compilador Portugol
91