gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.62, 2011/12/27 16:38:08	version 1.65, 2012/02/07 16:48:55
Line 1	Line 1
\ A powerful locals implementation	\ A powerful locals implementation

\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2007 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2007,2011 Free Software Foundation, Inc.

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

Line 88 require search.fs	Line 88 require search.fs
require float.fs	require float.fs
require extend.fs \ for case	require extend.fs \ for case

: save-mem-dict ( addr1 u -- addr2 u )
here swap dup allot ( addr1 addr2 u )
2dup 2>r move 2r> ;

: compile-@local ( n -- ) \ gforth compile-fetch-local	: compile-@local ( n -- ) \ gforth compile-fetch-local
case	case
0 of postpone @local0 endof	0 of postpone @local0 endof
Line 217 variable locals-mem-list \ linked list o	Line 213 variable locals-mem-list \ linked list o
\ warn if list is not a sublist of locals-list	\ warn if list is not a sublist of locals-list
locals-list @ sub-list? 0= if	locals-list @ sub-list? 0= if
\ !! print current position	\ !! print current position
." compiler was overly optimistic about locals at a BEGIN" cr	>stderr ." compiler was overly optimistic about locals at a BEGIN" cr
\ !! print assumption and reality	\ !! print assumption and reality
then ;	then ;