Diff for /gforth/prim between versions 1.88 and 1.89

version 1.88, 2002/01/04 20:31:53 version 1.89, 2002/01/05 20:16:17
Line 2412  a_addr = (Cell *)(up+u); Line 2412  a_addr = (Cell *)(up+u);
 compile-prim ( xt1 -- xt2 )     new     compile_prim  compile-prim ( xt1 -- xt2 )     new     compile_prim
 xt2 = (Xt)compile_prim((Label)xt1);  xt2 = (Xt)compile_prim((Label)xt1);
   
   lit@    ( #a_addr -- w )        new     lit_fetch
   w = *a_addr;
   
   lit-perform     ( #a_addr -- )  new     lit_perform
   ip=IP;
   SUPER_END;
   EXEC(*(Xt *)a_addr);
   
   lit+    ( #n1 n2 -- n3 )        new     lit_plus
   n3 = n1 + n2;
   
   does-exec ( #a_cfa -- R:nest a_pfa )    new     does_exec
   a_pfa = PFA(a_cfa);
   nest = (Cell)ip;
   IF_spTOS(spTOS = sp[0]);
   SUPER_END;
   SET_IP(DOES_CODE1(a_cfa));
   SUPER_END;
   
 include(peeprules.vmg)  include(peeprules.vmg)
   
 \+  \+

Removed from v.1.88  
changed lines
  Added in v.1.89


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