COMPORT – Compilador Portugol - Nilo Menezes

}
StatSequence ();
}
if (sym == SENAO)
{
Get (sym);
FJump (L);
FixLink (x.a);
StatSequence ();
}
else
FixLink (x.a);
FixLink (L);
if (sym == FIMSE)
Get (sym);
else
Mark ("Fimse?");
break;
case ENQUANTO:
Get (sym);
L = pc;
expression (x);
CJump (x);
// if (sym == DO)
// Get (sym);
// else
// Mark ("DO?");
StatSequence ();
BJump (L);
FixLink (x.a);
if (sym == FIMENQUANTO)
Get (sym);
else
Mark ("fimenquanto?");
break;
}
if (sym == NOVALINHA)
Get (sym);
else if (PertenceConjunto(fimdecomandos, sym))
break;
else
Mark ("Fim de linha ?");
} while (1);
void
IdentList (int Class, Object & first)
{
Object obj;
if (sym == IDENTIFICADOR)
{
NewObj (first, Class);
Get (sym);
while (sym == VIRGULA)
{
Get (sym);
if (sym == IDENTIFICADOR)
{
NewObj (obj, Class);
Get (sym);
ComPort – Compilador Portugol
74