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 ; |
|
|