version 1.76, 2001/02/27 21:17:10
|
version 1.80, 2001/03/18 22:20:27
|
Line 74
|
Line 74
|
\ xt.* XT |
\ xt.* XT |
\ f83name.* F83Name * |
\ f83name.* F83Name * |
|
|
|
\E stack data-stack sp Cell |
|
\E stack fp-stack fp Float |
|
\E stack return-stack rp Cell |
|
\E |
\E get-current prefixes set-current |
\E get-current prefixes set-current |
\E |
\E |
\E s" Bool" single data-stack type-prefix f |
\E s" Bool" single data-stack type-prefix f |
Line 126
|
Line 130
|
\ these m4 macros would collide with identifiers |
\ these m4 macros would collide with identifiers |
undefine(`index') |
undefine(`index') |
undefine(`shift') |
undefine(`shift') |
|
undefine(`symbols') |
|
|
noop ( -- ) gforth |
noop ( -- ) gforth |
: |
: |
Line 1424 cache.""
|
Line 1429 cache.""
|
FLUSH_ICACHE(c_addr,u); |
FLUSH_ICACHE(c_addr,u); |
|
|
(bye) ( n -- ) gforth paren_bye |
(bye) ( n -- ) gforth paren_bye |
|
SUPER_END; |
return (Label *)n; |
return (Label *)n; |
|
|
(system) ( c_addr u -- wretval wior ) gforth peren_system |
(system) ( c_addr u -- wretval wior ) gforth peren_system |
Line 2345 while(a_addr != NULL)
|
Line 2351 while(a_addr != NULL)
|
|
|
\+ |
\+ |
|
|
|
\+peephole |
|
|
primtable ( -- wprimtable ) new |
primtable ( -- wprimtable ) new |
""wprimtable is a table containing the xts of the primitives indexed |
""wprimtable is a table containing the xts of the primitives indexed |
by sequence-number in prim (for use in prepare-peephole-table)."" |
by sequence-number in prim (for use in prepare-peephole-table)."" |
Line 2371 SET_IP((Xt *)a_callee);
|
Line 2379 SET_IP((Xt *)a_callee);
|
useraddr ( #u -- a_addr ) |
useraddr ( #u -- a_addr ) |
a_addr = (Cell *)(up+u); |
a_addr = (Cell *)(up+u); |
|
|
|
\+ |
|
|