-# ifdef DEBUG
- fprintf( stderr , "[entersymbol] calloc\n" );
-# endif DEBUG
- tablep = ( struct symboltableinfo * )
- calloc( sizeof ( struct symboltableinfo ) , 1 );
- if ( tablep == NIL ) {
- error( FATAL , "ran out of memory (entersymbol)" );
+# ifdef SPACEDEBUG
+ fprintf( stderr ,
+ "[entersymbol] calloc'ing table for %d symbols\n" ,
+ SYMBOLPRIME );
+# endif SPACEDEBUG
+ for ( tablep = &symboltable
+ ; tablep->chain != NIL
+ ; tablep = tablep->chain ) {
+ continue;