old/dbx/symbols.c
/*
 * Free all the symbols currently allocated.
 */
Free all the symbols currently allocated.
Free all the symbols currently allocated .
public symbol_free()
{
    Sympool s, t;
    register Integer i;
    s = sympool;
    while (s != nil) {
	t = s->prevpool;
	dispose(s);
	s = t;
    }
    for (i = 0; i < HASHTABLESIZE; i++) {
	hashtab[i] = nil;
    }
    sympool = nil;
    nleft = 0;
}
public symbol_free ( ) { Sympool s , t ; register Integer i ; s = sympool ; while ( s != nil ) { t = s -> prevpool ; dispose ( s ) ; s = t ; } for ( i = 0 ; i < HASHTABLESIZE ; i ++ ) { hashtab [ i ] = nil ; } sympool = nil ; nleft = 0 ; }
Free all the symbols currently allocated.
Free all the symbols currently allocated .