gforth/locals.fs - diff

Return to locals.fs CVS log

Up to [gforth] / gforth

version 1.5, 2000/09/23 15:46:57	version 1.8, 2003/08/25 14:17:45
Line 1	Line 1
\ Local primitives 17jan92py	\ Local primitives 17jan92py

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,2000,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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