Lines Matching refs:env
43 pop_xforth(fcode_env_t *env)
47 return ((xforth_t)pop_double(env));
51 peek_xforth(fcode_env_t *env)
55 d = pop_xforth(env);
56 push_xforth(env, d);
61 push_xforth(fcode_env_t *env, xforth_t a)
66 push_double(env, (dforth_t)a);
73 bxjoin(fcode_env_t *env)
81 CHECK_DEPTH(env, sizeof (xforth_t), "bxjoin");
84 push_xforth(env, b.b_xf);
91 lsfetch(fcode_env_t *env)
96 CHECK_DEPTH(env, 1, "<l@");
99 push_xforth(env, a);
106 lxjoin(fcode_env_t *env)
114 CHECK_DEPTH(env, LF_PER_XF, "lxjoin");
117 push_xforth(env, b.b_xf);
124 wxjoin(fcode_env_t *env)
132 CHECK_DEPTH(env, WF_PER_XF, "wxjoin");
135 push_xforth(env, b.b_xf);
142 xcomma(fcode_env_t *env)
144 CHECK_DEPTH(env, 1, "x,");
145 DEBUGF(COMMA, dump_comma(env, "x,"));
147 unaligned_xstore(env);
148 set_here(env, HERE + sizeof (xforth_t), "xcomma");
155 xfetch(fcode_env_t *env)
160 CHECK_DEPTH(env, 1, "x@");
163 push_xforth(env, a);
170 xstore(fcode_env_t *env)
175 CHECK_DEPTH(env, 2, "x!");
177 a = pop_xforth(env);
185 slash_x(fcode_env_t *env)
194 slash_x_times(fcode_env_t *env)
196 CHECK_DEPTH(env, 1, "/x*");
204 xa_plus(fcode_env_t *env)
208 CHECK_DEPTH(env, 2, "xa+");
217 xa_one_plus(fcode_env_t *env)
219 CHECK_DEPTH(env, 1, "xa1+");
227 xbflip(fcode_env_t *env)
235 CHECK_DEPTH(env, 1, "xbflip");
236 b.b_xf = pop_xforth(env);
239 push_xforth(env, c.b_xf);
243 unaligned_xfetch(fcode_env_t *env)
248 CHECK_DEPTH(env, 1, "unaligned-x@");
252 cfetch(env);
254 bxjoin(env);
255 xbflip(env);
259 unaligned_xstore(fcode_env_t *env)
264 CHECK_DEPTH(env, 2, "unaligned-x!");
266 xbsplit(env);
269 cstore(env);
277 xbflips(fcode_env_t *env)
282 CHECK_DEPTH(env, 2, "xbflips");
288 unaligned_xfetch(env);
289 xbflip(env);
291 unaligned_xstore(env);
299 xbsplit(fcode_env_t *env)
307 CHECK_DEPTH(env, 1, "xbsplit");
308 b.b_xf = pop_xforth(env);
317 xlflip(fcode_env_t *env)
325 CHECK_DEPTH(env, 1, "xlflip");
326 b.b_xf = pop_xforth(env);
329 push_xforth(env, c.b_xf);
336 xlflips(fcode_env_t *env)
341 CHECK_DEPTH(env, 2, "xlflips");
347 unaligned_xfetch(env);
348 xlflip(env);
350 unaligned_xstore(env);
358 xlsplit(fcode_env_t *env)
366 CHECK_DEPTH(env, 1, "xlsplit");
367 b.b_xf = pop_xforth(env);
377 xwflip(fcode_env_t *env)
385 CHECK_DEPTH(env, 1, "xwflip");
386 b.b_xf = pop_xforth(env);
389 push_xforth(env, c.b_xf);
396 xwflips(fcode_env_t *env)
401 CHECK_DEPTH(env, 2, "xwflips");
407 unaligned_xfetch(env);
408 xwflip(env);
410 unaligned_xstore(env);
418 xwsplit(fcode_env_t *env)
426 CHECK_DEPTH(env, 1, "xwsplit");
427 b.b_xf = pop_xforth(env);
437 fcode_env_t *env = initial_env;
439 ASSERT(env);