src/stdlib/generic.c
/*=================================================
 * init_generic_object -- populate gen with object
 * This routine copies object, and frees its copy at destruction
 *===============================================*/
- populate gen with object
This routine copies object, and frees its copy at destruction
- populate gen with object This routine copies object and frees its copy at destruction
void
init_generic_object (GENERIC *gen, VPTR oval)
{
	OBJECT obj = (OBJECT)oval;
	init_generic(gen);
	gen->selector = GENERIC_OBJECT;
	gen->data.oval = obj;
	if (obj)
		addref_object(obj);
}
void init_generic_object ( GENERIC * gen , VPTR oval ) { OBJECT obj = ( OBJECT ) oval ; init_generic ( gen ) ; gen -> selector = GENERIC_OBJECT ; gen -> data . oval = obj ; if ( obj ) addref_object ( obj ) ; }
init_generic_object -- populate gen with object
 This routine copies object, and frees its copy at destruction
init_generic_object -- populate gen with object This routine copies object and frees its copy at destruction