// Copyright (c) 1993-1999 Microsoft Corporation

#include "y2.h"

SSIZE_T fdtype( SSIZE_T t )
   {
   /* determine the type of a symbol */
   SSIZE_T 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 );
   }