\ local-compiler ( -- addr , variable containing CFA of locals compiler )
\
\ Author: Phil Burk
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
\
-\ The pForth software code is dedicated to the public domain,
-\ and any third party may reproduce, distribute and modify
-\ the pForth software code or any derivative works thereof
-\ without any compensation or license. The pForth software
-\ code is provided on an "as is" basis without any warranty
-\ of any kind, including, without limitation, the implied
-\ warranties of merchantability and fitness for a particular
-\ purpose and their equivalents under the laws of any jurisdiction.
+\ Permission to use, copy, modify, and/or distribute this
+\ software for any purpose with or without fee is hereby granted.
+\
+\ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+\ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+\ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
+\ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+\ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+\ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+\ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+\ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
\
\ 10/27/99 Fixed : foo { -- } 55 ; was entering local frame but not exiting.
THEN
;
-
: VALUE
CREATE ( n <name> )
,
- immediate
DOES>
- state @
- IF
- [compile] aliteral
- compile @
- ELSE
- @
- THEN
+ @
;
: TO ( val <name> -- )
lv.compile.store
ELSE
find
- 1 = 0= abort" TO or -> before non-local or non-value"
+ 0= abort" not found"
>body \ point to data
state @
IF \ compiling ( -- pfa )
[compile] literal compile (local+!)
ELSE
find
- 1 = 0= abort" +-> before non-local or non-value"
+ 0= abort" not found"
>body \ point to data
state @
IF \ compiling ( -- pfa )