COMPORT – Compilador Portugol - Nilo Menezes

lista
ComPort – Compilador Portugol
}
break;
}
case DECLARE:
{
Get (sym);
while (sym == IDENTIFICADOR)
{
IdentList (Var, first);
fType (tp);
//atualiza a informação de tipo do primeiro ao ultimo da
obj = first;
while (obj != guard)
{
obj->type = tp;
obj->lev = curlev;
varsize = varsize + obj->type->size;
obj->val = -varsize;
fprintf(stderr, "Variável %s criada sendo do tipo %s\n",
obj->name , id);
obj = obj->next;
}
if (sym == NOVALINHA)
Get (sym);
else
Mark (" ?");
}
break;
}
}
}
while (sym == DECLARE || sym == DEFINA);
}
void
FPSection (long &parblksize)
{
Object obj, first;
Type tp;
long parsize;
if (sym == VARIAVEL)
{
Get (sym);
IdentList (Par, first);
}
else
IdentList (VARIAVEL, first);
if (sym == IDENTIFICADOR)
{
find (obj);
Get (sym);
if (obj->Class == Typ)
tp = obj->type;
else
{
Mark ("type?");
tp = intType;
}
}
else
78