src/interp/alloc.c
/*=================================================
 * rptinfo_destructor -- destructor for rptinfo
 *  (destructor entry in vtable)
 *===============================================*/
- destructor for rptinfo
(destructor entry in vtable)
- destructor for rptinfo ( destructor entry in vtable )
static void
rptinfo_destructor (VTABLE *obj)
{
	RPTINFO rptinfo = (RPTINFO)obj;
	ASSERT(rptinfo->vtable == &vtable_for_rptinfo);
	destroy_table(rptinfo->proctab); 
	destroy_table(rptinfo->functab); 
	strfree(&rptinfo->fullpath);
	strfree(&rptinfo->codeset);
	zs_free(&rptinfo->localpath);
	zs_free(&rptinfo->localepath);
	zs_free(&rptinfo->textdomain);
	stdfree(rptinfo);
}
static void rptinfo_destructor ( VTABLE * obj ) { RPTINFO rptinfo = ( RPTINFO ) obj ; ASSERT ( rptinfo -> vtable == & vtable_for_rptinfo ) ; destroy_table ( rptinfo -> proctab ) ; destroy_table ( rptinfo -> functab ) ; strfree ( & rptinfo -> fullpath ) ; strfree ( & rptinfo -> codeset ) ; zs_free ( & rptinfo -> localpath ) ; zs_free ( & rptinfo -> localepath ) ; zs_free ( & rptinfo -> textdomain ) ; stdfree ( rptinfo ) ; }
rptinfo_destructor -- destructor for rptinfo
  (destructor entry in vtable)
rptinfo_destructor -- destructor for rptinfo ( destructor entry in vtable )
/* values are vptr PNODES */ /* values are vptr PNODES */