Diff for /gforth/prim between versions 1.139 and 1.140

version 1.139, 2003/08/20 09:23:45 version 1.140, 2003/08/20 13:29:19
Line 141  undefine(`index') Line 141  undefine(`index')
 undefine(`shift')  undefine(`shift')
 undefine(`symbols')  undefine(`symbols')
   
   \F 0 [if]
   
 \ run-time routines for non-primitives.  They are defined as  \ run-time routines for non-primitives.  They are defined as
 \ primitives, because that simplifies things.  \ primitives, because that simplifies things.
   
Line 180  SET_IP(DOES_CODE1(CFA)); Line 182  SET_IP(DOES_CODE1(CFA));
 ""just a slot to have an encoding for the DOESJUMP,   ""just a slot to have an encoding for the DOESJUMP, 
 which is no longer used anyway (!! eliminate this)""  which is no longer used anyway (!! eliminate this)""
   
   \F [endif]
   
 \g control  \g control
   
 noop    ( -- )          gforth  noop    ( -- )          gforth

Removed from v.1.139  
changed lines
  Added in v.1.140


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