COMPORT – Compilador Portugol - Nilo Menezes

}
while (1);
code[L2] = code[L2] - L3 + L1;
return (L0);
}
else
return (L1);
void
fix (long at, long with)
{
code[at] = code[at] / 0x10000 * 0x10000 + (with % 0x10000);
}
void
FixWith (long L0, long L1)
{
long L2;
while (L0 != 0)
{
L2 = code[L0] % 0x10000;
fix (L0, L1 - L0);
L0 = L2;
}
}
void
FixLink (long L)
{
long L1;
while (L != 0)
{
L1 = code[L] % 0x10000;
fix (L, pc - L);
L = L1;
}
}
void
IncLevel (int n)
{
curlev += n;
}
void
MakeConstItem (Item & x, Type typ, long val)
{
x.mode = Const;
x.type = typ;
x.a = val;
}
void
MakeItem (Item & x, Object y)
{
long r;
x.mode = y->Class;
x.type = y->type;
x.lev = y->lev;
x.a = y->val;
if (y->lev == 0)
ComPort – Compilador Portugol
90