COMPORT – Compilador Portugol - Nilo Menezes

{
}
long r;
if (x.type == ftyp)
{
if (Class == Par)
{
if (x.mode == Var)
{
if (x.a != 0)
{
if (x.lev != 0)
{
rel[relx] = SHORT (pc);
relx++;
}
GetReg (r);
Put (ADDI, r, x.r, x.a);
}
else
r = x.r;
}
else
Mark ("illegal parameter mode");
Put (PSH, r, SP, 4);
EXCL (regs, r);
}
else
{
if (x.mode != Reg)
load (x);
Put (PSH, x.r, SP, 4);
EXCL (regs, x.r);
}
}
else
Mark ("bad parameter type");
void
CJump (Item & x)
{
if (x.type->form == Boolean)
{
if (x.mode != Cond)
loadBool (x);
Put (BEQ + negated (x.c), x.r, 0, x.a);
EXCL (regs, x.r);
FixLink (x.b);
x.a = pc - 1;
}
else
{
Mark ("Boolean?");
x.a = pc;
}
}
void
BJump (long L)
{
Put (BEQ, 0, 0, L - pc);
ComPort – Compilador Portugol
95