110 int destructor = 0;	/* =1 if at least one %destructor */  variable
2122 	    destructor = 1;  in read_declarations()
3422 		if (bp->destructor != NULL)  in copy_destructor()
3426 		    bp->destructor = process_destructor_XX(code_text, NULL);  in copy_destructor()
3438 		if (bp->destructor != NULL)  in copy_destructor()
3443 		    bp->destructor = TMALLOC(char, strlen(code_text) + 1);  in copy_destructor()
3444 		    NO_SPACE(bp->destructor);  in copy_destructor()
3445 		    strcpy(bp->destructor, code_text);  in copy_destructor()
3452 		if (bp->destructor != NULL)  in copy_destructor()
3456 		    bp->destructor = process_destructor_XX(code_text, tag);  in copy_destructor()
3462 	    if (bp->destructor != NULL)  in copy_destructor()
3467 		bp->destructor = TMALLOC(char, strlen(code_text) + 1);  in copy_destructor()
3468 		NO_SPACE(bp->destructor);  in copy_destructor()
3469 		strcpy(bp->destructor, code_text);  in copy_destructor()
3802     if (destructor)  in pack_symbols()
3904 	if (destructor)  in pack_symbols()
3906 	    symbol_destructor[i] = v[i]->destructor;  in pack_symbols()
3927 	if (destructor)  in pack_symbols()
3929 	    symbol_destructor[k] = v[i]->destructor;  in pack_symbols()
4088 						   strlen(bp->destructor) + 1);  in finalize_destructors()
4090 		    strcpy(symbol_destructor[i], bp->destructor);  in finalize_destructors()
4096 		if (bp->destructor != NULL)  in finalize_destructors()
4099 						   strlen(bp->destructor) + 1);  in finalize_destructors()
4101 		    strcpy(symbol_destructor[i], bp->destructor);  in finalize_destructors()
4108 			    = process_destructor_XX(bp->destructor, tag);  in finalize_destructors()
4126 	FREE(bp->destructor);  in finalize_destructors()
4133 	FREE(bp->destructor);  in finalize_destructors()
4144 	    FREE(bp->destructor);  in finalize_destructors()
4166     if (destructor)  in reader()