41 push_ds(fcode_env_t *env, fstack_t d)  in push_ds()  argument
47 pop_ds(fcode_env_t *env)  in pop_ds()  argument
53 push_rs(fcode_env_t *env, fstack_t d)  in push_rs()  argument
59 pop_rs(fcode_env_t *env)  in pop_rs()  argument
68 push_a_string(fcode_env_t *env, char *str)  in push_a_string()  argument
83 pop_a_string(fcode_env_t *env, int *lenp)  in pop_a_string()  argument
103 pop_a_duped_string(fcode_env_t *env, int *lenp)  in pop_a_duped_string()  argument
107 	str = pop_a_string(env, lenp);  in pop_a_duped_string()
117 push_double(fcode_env_t *env, dforth_t d)  in push_double()  argument
131 pop_double(fcode_env_t *env)  in pop_double()  argument
144 peek_double(fcode_env_t *env)  in peek_double()  argument
148 	a = pop_double(env);  in peek_double()
149 	push_double(env, a);  in peek_double()
154 run_fcode(fcode_env_t *env, uchar_t *buff, int len)  in run_fcode()  argument
170 		byte_load(env);  in run_fcode()
174 		fevaluate(env);  in run_fcode()
179 run_fcode_from_file(fcode_env_t *env, char *fname, int aout_flag)  in run_fcode_from_file()  argument
184 	push_a_string(env, fname);  in run_fcode_from_file()
185 	load_file(env);  in run_fcode_from_file()
192 	run_fcode(env, p, len);  in run_fcode_from_file()
198 	fcode_env_t *env;  in clone_environment()  local
217 	env = MALLOC(sizeof (fcode_env_t));  in clone_environment()
218 	memcpy(env, src, sizeof (fcode_env_t));  in clone_environment()
221 	env->table = MALLOC((MAX_FCODE + 1) * sizeof (fcode_token));  in clone_environment()
222 	memcpy(env->table, src->table, (MAX_FCODE + 1) * sizeof (fcode_token));  in clone_environment()
228 	env->base = MALLOC(dict_size);  in clone_environment()
229 	memcpy(env->base, src->base, dict_size);  in clone_environment()
231 	env->here = src->base - (uchar_t *)src + env->base;  in clone_environment()
234 	env->ds0 = MALLOC(stack_size * sizeof (fstack_t));  in clone_environment()
235 	memcpy(env->ds0, src->ds0, stack_size * sizeof (fstack_t));  in clone_environment()
236 	env->ds = src->ds - src->ds0 + env->ds0;  in clone_environment()
238 	env->rs0 = MALLOC(stack_size * sizeof (fstack_t));  in clone_environment()
239 	memcpy(env->rs0, src->rs0, stack_size * sizeof (fstack_t));  in clone_environment()
240 	env->rs = src->rs - src->rs0 + env->rs0;  in clone_environment()
242 	env->order = MALLOC(MAX_ORDER * sizeof (token_t));  in clone_environment()
243 	memcpy(env->order, src->order, MAX_ORDER * sizeof (token_t));  in clone_environment()
245 	env->input = MALLOC(sizeof (input_typ));  in clone_environment()
247 	env->catch_frame = 0;  in clone_environment()
251 	return (env);  in clone_environment()
255 destroy_environment(fcode_env_t *env)  in destroy_environment()  argument
257 	FREE(env->input);  in destroy_environment()
258 	FREE(env->order);  in destroy_environment()
259 	FREE(env->ds0);  in destroy_environment()
260 	FREE(env->rs0);  in destroy_environment()
262 	FREE(env->base);  in destroy_environment()
263 	FREE(env->table);  in destroy_environment()
265 	FREE(env);  in destroy_environment()
267 	if (env == initial_env) {  in destroy_environment()