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