75 	instance_t *ihandle;  in create_ihandle()  local
78 	ihandle = MALLOC(sizeof (instance_t));  in create_ihandle()
81 	ihandle->data[INIT_DATA] = MALLOC(sizeof (fstack_t) * i);  in create_ihandle()
82 	memcpy(ihandle->data[INIT_DATA], phandle->init_data,  in create_ihandle()
86 	ihandle->data[UINIT_DATA] = MALLOC(sizeof (fstack_t) * i);  in create_ihandle()
88 	ihandle->my_space = phandle->my_space;  in create_ihandle()
89 	memcpy(ihandle->my_addr, phandle->my_addr, sizeof (ihandle->my_addr));  in create_ihandle()
90 	ihandle->parent = parent;  in create_ihandle()
91 	ihandle->device = phandle;  in create_ihandle()
92 	return (ihandle);  in create_ihandle()
399 close_instance_chain(fcode_env_t *env, instance_t *ihandle, int exec)  in close_instance_chain()  argument
403 	if (ihandle) {  in close_instance_chain()
404 		parent = ihandle->parent;  in close_instance_chain()
406 		if (ihandle->my_args)  in close_instance_chain()
407 			FREE(ihandle->my_args);  in close_instance_chain()
408 		FREE(ihandle);  in close_instance_chain()
441 	instance_t *ihandle;  in open_package()  local
446 	ihandle = open_instance_chain(env, phandle, 1);  in open_package()
447 	ihandle->my_args = pop_a_duped_string(env, &len);  in open_package()
448 	ihandle->my_args_len = len;  in open_package()
449 	PUSH(DS, (fstack_t)ihandle);  in open_package()
472 	instance_t *ihandle;  in close_package()  local
475 	ihandle = (instance_t *)POP(DS);  in close_package()
476 	close_instance_chain(env, ihandle, 1);  in close_package()
518 	instance_t *ihandle, *saved_myself;  in call_package()  local
521 	ihandle = (instance_t *)POP(DS);  in call_package()
523 	MYSELF = ihandle;  in call_package()
943 	instance_t *ihandle;  in dump_instance()  local
945 	ihandle = (instance_t *)POP(DS);  in dump_instance()
946 	log_message(MSG_DEBUG, "Ihandle:      %p\n", ihandle);  in dump_instance()
948 	    &ihandle->parent, ihandle->parent);  in dump_instance()
950 	    &ihandle->device, ihandle->device);  in dump_instance()
952 	    ((ihandle->my_args) ? ihandle->my_args : ""));  in dump_instance()
953 	log_message(MSG_DEBUG, "  my-space: %x\n", ihandle->my_space);  in dump_instance()
956 		log_message(MSG_DEBUG, " %x", (int)ihandle->my_addr[i]);  in dump_instance()
959 	    ihandle->device->data_size[INIT_DATA],  in dump_instance()
960 	    ihandle->device->data_size[UINIT_DATA]);  in dump_instance()
962 	    ihandle->data, ihandle->data[0], ihandle->data[1]);  in dump_instance()
963 	if (ihandle->device->data_size[INIT_DATA]) {  in dump_instance()
965 		for (i = 0; i < ihandle->device->data_size[INIT_DATA]; i++) {  in dump_instance()
967 			    &ihandle->data[INIT_DATA][i],  in dump_instance()
968 			    ihandle->data[INIT_DATA][i]);  in dump_instance()
971 	if (ihandle->device->data_size[INIT_DATA]) {  in dump_instance()
973 		for (i = 0; i < ihandle->device->data_size[UINIT_DATA]; i++) {  in dump_instance()
975 			    &ihandle->data[UINIT_DATA][i],  in dump_instance()
976 			    ihandle->data[UINIT_DATA][i]);  in dump_instance()