gforth/intcomp.fs - diff

Return to intcomp.fs CVS log

Up to [gforth] / gforth

version 1.3, 1996/09/23 08:52:48	version 1.5, 1997/10/27 18:25:16
Line 42 constant no-interpretation-does-code	Line 42 constant no-interpretation-does-code
[ 0 >body ] literal allot ; \ restrict?	[ 0 >body ] literal allot ; \ restrict?

: fix-does-code ( addr ret-addr -- )	: fix-does-code ( addr ret-addr -- )
lastxt [ interpret/compile-struct drop ] literal + >r	lastxt [ interpret/compile-struct %size ] literal + >r
lastxt interpret/compile?	lastxt interpret/compile?
lastxt interpret/compile-int @ r@ >body = and	lastxt interpret/compile-int @ r@ >body = and
lastxt interpret/compile-comp @ r> = and	lastxt interpret/compile-comp @ r> = and
0= abort" not created with create-interpret/compile"	0= abort" not created with create-interpret/compile"
[ /does-handler cell+ cell+ ] literal + \ to does-code	cell+ cell+ maxaligned /does-handler + \ to does-code
swap @ does-code! ;	swap @ does-code! ;

: (interpretation>) ( -- )	: (interpretation>) ( -- )