[BACK]Return to locals.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/locals.fs between versions 1.6 and 1.7

version 1.6, 2003/03/09 15:16:50 version 1.7, 2003/03/22 10:04:07
Line 35  Variable locals  here locals !  100 ( so Line 35  Variable locals  here locals !  100 ( so
   
 : <local ( -- sys1 )  current @ @ loffset @ locals @  : <local ( -- sys1 )  current @ @ loffset @ locals @
   over 0= IF  postpone  ralign  THEN  ;                 immediate    over 0= IF  postpone  ralign  THEN  ;                 immediate
 : local: ( -- )  postpone >r  last @ lastcfa @ here locals @ dp !  : local: ( -- )  postpone >r  latest latestxt here locals @ dp !
   cell loffset +! Create  loffset @ , immediate (local    cell loffset +! Create  loffset @ , immediate (local
   here locals !  dp !  lastcfa ! last ! ;               immediate    here locals !  dp !  lastcfa ! last ! ;               immediate
 : flocal: ( -- )  last @ lastcfa @ here locals @ dp !  : flocal: ( -- )  latest latestxt here locals @ dp !
   BEGIN  loffset @ 0 1 floats fm/mod drop  WHILE    BEGIN  loffset @ 0 1 floats fm/mod drop  WHILE
          0 postpone Literal postpone >r  1 cells  loffset +!  REPEAT           0 postpone Literal postpone >r  1 cells  loffset +!  REPEAT
   postpone f>r  Create  loffset @ , immediate (flocal    postpone f>r  Create  loffset @ , immediate (flocal
Removed from v.1.6  
changed lines
  Added in v.1.7

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