42 value_fetch(fcode_env_t *env)  in value_fetch()  argument
46 	CHECK_DEPTH(env, 1, "value_fetch");  in value_fetch()
52 value_store(fcode_env_t *env)  in value_store()  argument
56 	CHECK_DEPTH(env, 1, "value_store");  in value_store()
62 get_internal_address(fcode_env_t *env)  in get_internal_address()  argument
66 	CHECK_DEPTH(env, 1, "get_internal_address");  in get_internal_address()
69 		return ((uchar_t *)env + *ptr);  in get_internal_address()
74 internal_env_fetch(fcode_env_t *env)  in internal_env_fetch()  argument
78 	CHECK_DEPTH(env, 1, "internal_env_fetch");  in internal_env_fetch()
79 	iptr = (instance_t **)get_internal_address(env);  in internal_env_fetch()
84 internal_env_store(fcode_env_t *env)  in internal_env_store()  argument
88 	CHECK_DEPTH(env, 2, "internal_env_store");  in internal_env_store()
89 	iptr = (instance_t **)get_internal_address(env);  in internal_env_store()
94 internal_env_addr(fcode_env_t *env)  in internal_env_addr()  argument
98 	CHECK_DEPTH(env, 1, "internal_env_addr");  in internal_env_addr()
99 	d = (fstack_t)get_internal_address(env);  in internal_env_addr()
104 do_buffer_data(fcode_env_t *env, token_t *d, int instance)  in do_buffer_data()  argument
113 			buf = alloc_instance_data(env, UINIT_DATA, n, &off);  in do_buffer_data()
117 			set_here(env, HERE + d[1], "do_buffer_data");  in do_buffer_data()
125 ibuffer_init(fcode_env_t *env)  in ibuffer_init()  argument
129 	d = get_instance_address(env);  in ibuffer_init()
130 	do_buffer_data(env, d, 1);  in ibuffer_init()
134 buffer_init(fcode_env_t *env)  in buffer_init()  argument
138 	CHECK_DEPTH(env, 1, "buffer_init");  in buffer_init()
140 	do_buffer_data(env, d, 0);  in buffer_init()
144 do_defer(fcode_env_t *env)  in do_defer()  argument
146 	fetch(env);  in do_defer()
147 	execute(env);  in do_defer()
166 run_action(fcode_env_t *env, acf_t acf, int action)  in run_action()  argument
189 		execute(env);  in run_action()
198 do_default_action(fcode_env_t *env)  in do_default_action()  argument
202 	CHECK_DEPTH(env, 1, "do_default_action");  in do_default_action()
204 	(void) run_action(env, (a-1), 0);  in do_default_action()
208 do_set_action(fcode_env_t *env)  in do_set_action()  argument
212 	CHECK_DEPTH(env, 1, "do_set_action");  in do_set_action()
214 	(void) run_action(env, a, 1);  in do_set_action()
218 action_colon(fcode_env_t *env)  in action_colon()  argument
220 	token_roundup(env, "action_colon");  in action_colon()
221 	env->action_ptr[env->action_count] = (token_t)HERE;  in action_colon()
223 	env->action_count++;  in action_colon()
224 	env->state |= 1;  in action_colon()
228 actions(fcode_env_t *env)  in actions()  argument
233 	token_roundup(env, "actions");  in actions()
238 	env->num_actions = n;  in actions()
239 	env->action_count = 0;  in actions()
240 	env->action_ptr = d;  in actions()
242 	set_here(env, (uchar_t *)d, "actions");  in actions()
246 install_actions(fcode_env_t *env, token_t *table)  in install_actions()  argument
251 	dptr  = (acf_t *)LINK_TO_ACF(env->lastlink);  in install_actions()
258 use_actions(fcode_env_t *env)  in use_actions()  argument
260 	if (env->state) {  in use_actions()
263 		install_actions(env, env->action_ptr);  in use_actions()
268 perform_action(fcode_env_t *env)  in perform_action()  argument
273 	CHECK_DEPTH(env, 2, "perform_action");  in perform_action()
278 	if (run_action(env, a, n)) {  in perform_action()
279 		system_message(env, "Bad Object action");  in perform_action()
284 define_actions(fcode_env_t *env, int n, token_t *array)  in define_actions()  argument
289 	actions(env);  in define_actions()
293 		action_colon(env);  in define_actions()
295 		env->state |= 8;  in define_actions()
296 		semi(env);  in define_actions()
309 set_internal_value_actions(fcode_env_t *env)  in set_internal_value_actions()  argument
312 	install_actions(env, value_actions[2]);  in set_internal_value_actions()
316 set_value_actions(fcode_env_t *env, int which)  in set_value_actions()  argument
320 	install_actions(env, value_actions[which]);  in set_value_actions()
324 set_defer_actions(fcode_env_t *env, int which)  in set_defer_actions()  argument
328 	install_actions(env, value_actions[which+3]);  in set_defer_actions()
332 set_buffer_actions(fcode_env_t *env, int which)  in set_buffer_actions()  argument
336 	install_actions(env, value_actions[which+5]);  in set_buffer_actions()
342 do_get(fcode_env_t *env)  in do_get()  argument
345 	perform_action(env);  in do_get()
349 do_set(fcode_env_t *env)  in do_set()  argument
352 	perform_action(env);  in do_set()
356 do_addr(fcode_env_t *env)  in do_addr()  argument
359 	perform_action(env);  in do_addr()
363 dump_actions(fcode_env_t *env)  in dump_actions()  argument
378 	fcode_env_t *env = initial_env;  in _init()  local
381 	ASSERT(env);  in _init()
385 		define_actions(env, 3, value_defines[i]);  in _init()
386 		value_actions[i] = env->action_ptr;  in _init()