Diff for /gforth/prim between versions 1.108 and 1.110

version 1.108, 2002/12/24 23:40:29 version 1.110, 2002/12/28 17:18:27
Line 105 Line 105
\E   \E
\E set-current  \E set-current
\E store-optimization on  \E store-optimization on
\E ' noop tail-nextp2 ! \ now INST_TAIL just stores, but does not jump

\   \
\   \
Line 817  lshift ( u1 n -- u2 )  core l_shift Line 818  lshift ( u1 n -- u2 )  core l_shift
:  :
0 ?DO 2* LOOP ;      0 ?DO 2* LOOP ;

\g compare

\ comparisons(prefix, args, prefix, arg1, arg2, wordsets...)  \ comparisons(prefix, args, prefix, arg1, arg2, wordsets...)
define(comparisons,  define(comparisons,
\$1=     ( \$2 -- f )             \$6      \$3equals  \$1=     ( \$2 -- f )             \$6      \$3equals
Line 938  f = FLAG(u1-u2 < u3-u2); Line 941  f = FLAG(u1-u2 < u3-u2);
:  :
over - >r - r> u< ;   over - >r - r> u< ;

\g internal

sp@     ( -- a_addr )           gforth          sp_fetch  sp@     ( -- a_addr )           gforth          sp_fetch

Line 1090  w = sp[u+1]; Line 1091  w = sp[u+1];

\ toggle is high-level: 0.11/0.42%  \ toggle is high-level: 0.11/0.42%

\g memory

@       ( a_addr -- w )         core    fetch  @       ( a_addr -- w )         core    fetch
""@i{w} is the cell stored at @i{a_addr}.""  ""@i{w} is the cell stored at @i{a_addr}.""
:  :
dup 1+ swap c@ ;   dup 1+ swap c@ ;

\g compiler

(f83find)       ( c_addr u f83name1 -- f83name2 )       new     paren_f83find  (f83find)       ( c_addr u f83name1 -- f83name2 )       new     paren_f83find
for (; f83name1 != NULL; f83name1 = (struct F83Name *)(f83name1->next))  for (; f83name1 != NULL; f83name1 = (struct F83Name *)(f83name1->next))
if ((UCell)F83NAME_COUNT(f83name1)==u &&    if ((UCell)F83NAME_COUNT(f83name1)==u &&
\+  \+
\+glocals  \+glocals

\g locals

@local# ( #noffset -- w )       gforth  fetch_local_number  @local# ( #noffset -- w )       gforth  fetch_local_number
w = *(Cell *)(lp+noffset);  w = *(Cell *)(lp+noffset);

Line 2093  r = fp[u+1]; /* +1, because update of fp Line 2100  r = fp[u+1]; /* +1, because update of fp

\+OS  \+OS

\g syslib

define(`uploop',  define(`uploop',
`pushdef(`\$1', `\$2')_uploop(`\$1', `\$2', `\$3', `\$4', `\$5')`'popdef(`\$1')')         `pushdef(`\$1', `\$2')_uploop(`\$1', `\$2', `\$3', `\$4', `\$5')`'popdef(`\$1')')
define(`_uploop',  define(`_uploop',
Line 2782  a_prim = decompile_code(a_code); Line 2791  a_prim = decompile_code(a_code);

include(peeprules.vmg)  include(peeprules.vmg)

\g end

\+  \+

 Removed from v.1.108 changed lines Added in v.1.110

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>