efcode/engine/package.c

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