2020-09-30 17:12:29 +02:00

13 lines
300 B
C

#include "y2.h"
int fdtype(int t)
{
/* determine the type of a symbol */
register v;
if( t >= NTBASE ) v = nontrst[t-NTBASE].tvalue;
else v = TYPE( toklev[t] );
if( v <= 0 ) error( "must specify type for %s", (t>=NTBASE)?nontrst[t-NTBASE].name:
tokset[t].name );
return( v );
}