COMPORT – Compilador Portugol - Nilo Menezes

obj = topScope->next;
locblksize = parblksize;
while (obj != guard)
{
obj->lev = curlev;
if (obj->Class == Par)
locblksize -= WordSize;
else
locblksize -= obj->type->size;
obj->val = locblksize;
obj = obj->next;
}
proc->dsc = topScope->next;
if (sym == NOVALINHA)
Get (sym);
else
Mark ("?");
locblksize = 0;
declarations (locblksize);
while (sym == PROCEDIMENTO)
{
ProcedureDecl ();
if (sym == NOVALINHA)
Get (sym);
else
Mark ("?");
}
proc->val = pc;
Enter (locblksize);
// if (sym == BEGIN)
// {
Get (sym);
StatSequence ();
// }
if (sym == FIMPROCEDIMENTO)
Get (sym);
else
Mark ("fimprocedimento?");
if (sym == IDENTIFICADOR)
{
if (procid != id)
Mark ("no match");
Get (sym);
}
Return (parblksize - marksize);
CloseScope ();
IncLevel (-1);
}
}
void
Module (FILE * S)
{
Ident modid;
long varsize;
fprintf (W, " compilando: ");
if (sym == MODULO)
{
Get (sym);
Open ();
ComPort – Compilador Portugol
80