gforth/locals.fs - diff

Return to locals.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/locals.fs between versions 1.2 and 1.5

version 1.2, 1994/04/20 17:12:04	version 1.5, 2000/09/23 15:46:57
Line 1	Line 1
\ Local primitives 17jan92py	\ Local primitives 17jan92py

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

	\ This file is part of Gforth.

	\ Gforth is free software; you can redistribute it and/or
	\ modify it under the terms of the GNU General Public License
	\ as published by the Free Software Foundation; either version 2
	\ of the License, or (at your option) any later version.

	\ This program is distributed in the hope that it will be useful,
	\ but WITHOUT ANY WARRANTY; without even the implied warranty of
	\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	\ GNU General Public License for more details.

	\ You should have received a copy of the GNU General Public License
	\ along with this program; if not, write to the Free Software
	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

Variable loffset 0 loffset !	Variable loffset 0 loffset !
Variable locals here locals ! 100 ( some) cells allot	Variable locals here locals ! 100 ( some) cells allot
: local, ( offset -- ) postpone rp@ loffset @ swap -	: local, ( offset -- ) postpone rp@ loffset @ swap -
Line 65 Create inlocal 5 cells allot inlocal o	Line 83 Create inlocal 5 cells allot inlocal o
: (local) ( addr u -- ) inlocal @ 0=	: (local) ( addr u -- ) inlocal @ 0=
IF postpone <local inlocal on	IF postpone <local inlocal on
inlocal 3 cells + 2! inlocal cell+ 2! THEN	inlocal 3 cells + 2! inlocal cell+ 2! THEN
dup IF linestart @ >r loadline @ >r loadfile @ >r	dup IF linestart @ >r sourceline# >r loadfile @ >r
blk @ >r >tib @ >r #tib @ dup >r >in @ >r	blk @ >r >tib @ >r #tib @ dup >r >in @ >r

>tib +! dup #tib ! >tib @ swap move	>tib +! dup #tib ! >tib @ swap move

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

Removed from v.1.2
changed lines
	Added in v.1.5