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))  in pop_xforth()
47 	return ((xforth_t)pop_double(env));  in pop_xforth()
50 xforth_t
53 	xforth_t d;  in peek_xforth()
61 push_xforth(fcode_env_t *env, xforth_t a)  in push_xforth()
63 	if (sizeof (xforth_t) == sizeof (fstack_t))  in push_xforth()
76 		uchar_t b_bytes[sizeof (xforth_t)];  in bxjoin()
77 		xforth_t b_xf;  in bxjoin()
81 	CHECK_DEPTH(env, sizeof (xforth_t), "bxjoin");  in bxjoin()
82 	for (i = 0; i < sizeof (xforth_t); i++)  in bxjoin()
94 	xforth_t a;  in lsfetch()
110 		xforth_t b_xf;  in lxjoin()
128 		xforth_t b_xf;  in wxjoin()
148 	set_here(env, HERE + sizeof (xforth_t), "xcomma");  in xcomma()
157 	xforth_t *addr;  in xfetch()
158 	xforth_t a;  in xfetch()
161 	addr = (xforth_t *)POP(DS);  in xfetch()
172 	xforth_t *addr;  in xstore()
173 	xforth_t a;  in xstore()
176 	addr = (xforth_t *)POP(DS);  in xstore()
187 	PUSH(DS, sizeof (xforth_t));  in slash_x()
197 	TOS *= sizeof (xforth_t);  in slash_x_times()
210 	TOS += index * sizeof (xforth_t);  in xa_plus()
220 	TOS += sizeof (xforth_t);  in xa_one_plus()
230 		uchar_t b_bytes[sizeof (xforth_t)];  in xbflip()
231 		xforth_t b_xf;  in xbflip()
237 	for (i = 0; i < sizeof (xforth_t); i++)  in xbflip()
238 		c.b_bytes[i] = b.b_bytes[(sizeof (xforth_t) - 1) - i];  in xbflip()
250 	for (i = 0; i < sizeof (xforth_t); i++, addr++) {  in unaligned_xfetch()
267 	for (i = 0; i < sizeof (xforth_t); i++, addr++) {  in unaligned_xstore()
285 	for (i = 0; i < len; i += sizeof (xforth_t),  in xbflips()
286 	    addr += sizeof (xforth_t)) {  in xbflips()
302 		uchar_t b_bytes[sizeof (xforth_t)];  in xbsplit()
303 		xforth_t b_xf;  in xbsplit()
309 	for (i = 0; i < sizeof (xforth_t); i++)  in xbsplit()
310 		PUSH(DS, b.b_bytes[(sizeof (xforth_t) - 1) - i]);  in xbsplit()
321 		xforth_t b_xf;  in xlflip()
344 	for (i = 0; i < len; i += sizeof (xforth_t),  in xlflips()
345 	    addr += sizeof (xforth_t)) {  in xlflips()
362 		xforth_t b_xf;  in xlsplit()
381 		xforth_t b_xf;  in xwflip()
404 	for (i = 0; i < len; i += sizeof (xforth_t),  in xwflips()
405 	    addr += sizeof (xforth_t)) {  in xwflips()
422 		xforth_t b_xf;  in xwsplit()