Lines Matching refs:xforth_t
35 #define LF_PER_XF (sizeof (xforth_t)/sizeof (lforth_t))
36 #define WF_PER_XF (sizeof (xforth_t)/sizeof (wforth_t))
42 xforth_t
45 if (sizeof (xforth_t) == sizeof (fstack_t))
47 return ((xforth_t)pop_double(env));
50 xforth_t
53 xforth_t d;
61 push_xforth(fcode_env_t *env, xforth_t a)
63 if (sizeof (xforth_t) == sizeof (fstack_t))
76 uchar_t b_bytes[sizeof (xforth_t)];
77 xforth_t b_xf;
81 CHECK_DEPTH(env, sizeof (xforth_t), "bxjoin");
82 for (i = 0; i < sizeof (xforth_t); i++)
94 xforth_t a;
110 xforth_t b_xf;
128 xforth_t b_xf;
148 set_here(env, HERE + sizeof (xforth_t), "xcomma");
157 xforth_t *addr;
158 xforth_t a;
161 addr = (xforth_t *)POP(DS);
172 xforth_t *addr;
173 xforth_t a;
176 addr = (xforth_t *)POP(DS);
187 PUSH(DS, sizeof (xforth_t));
197 TOS *= sizeof (xforth_t);
210 TOS += index * sizeof (xforth_t);
220 TOS += sizeof (xforth_t);
230 uchar_t b_bytes[sizeof (xforth_t)];
231 xforth_t b_xf;
237 for (i = 0; i < sizeof (xforth_t); i++)
238 c.b_bytes[i] = b.b_bytes[(sizeof (xforth_t) - 1) - i];
250 for (i = 0; i < sizeof (xforth_t); i++, addr++) {
267 for (i = 0; i < sizeof (xforth_t); i++, addr++) {
285 for (i = 0; i < len; i += sizeof (xforth_t),
286 addr += sizeof (xforth_t)) {
302 uchar_t b_bytes[sizeof (xforth_t)];
303 xforth_t b_xf;
309 for (i = 0; i < sizeof (xforth_t); i++)
310 PUSH(DS, b.b_bytes[(sizeof (xforth_t) - 1) - i]);
321 xforth_t b_xf;
344 for (i = 0; i < len; i += sizeof (xforth_t),
345 addr += sizeof (xforth_t)) {
362 xforth_t b_xf;
381 xforth_t b_xf;
404 for (i = 0; i < len; i += sizeof (xforth_t),
405 addr += sizeof (xforth_t)) {
422 xforth_t b_xf;