projects
/
debian
/
pforth
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
146f755
)
test the compile time behavior of a VALUE
author
Phil Burk
<philburk@mobileer.com>
Sun, 13 Sep 2020 00:47:13 +0000
(17:47 -0700)
committer
Phil Burk
<philburk@mobileer.com>
Sun, 13 Sep 2020 00:47:13 +0000
(17:47 -0700)
From 2012 test suite.
fth/t_locals.fth
patch
|
blob
|
history
diff --git
a/fth/t_locals.fth
b/fth/t_locals.fth
index 5cec9e042f280a9883a3ab56128bd5b5a2bec6c8..0384ee2325f5cb8c7bec8b17462841538fbc9d7e 100644
(file)
--- a/
fth/t_locals.fth
+++ b/
fth/t_locals.fth
@@
-14,6
+14,7
@@
test{
T{ 333 value my-value my-value }T{ 333 }T
T{ 1000 -> my-value my-value }T{ 1000 }T
T{ 35 +-> my-value my-value }T{ 1035 }T
+T{ 987 to my-value my-value }T{ 987 }T
: test.value ( -- ok )
100 -> my-value
my-value 100 =
@@
-22,6
+23,11
@@
T{ 35 +-> my-value my-value }T{ 1035 }T
;
T{ test.value }T{ TRUE }T
+\ test compile time behavior of a VALUE
+567 value VAL3 immediate
+: VD3 val3 literal ;
+T{ vd3 }T{ 567 }T
+
\ test locals in a word
: test.locs { aa bb | cc -- ok }
cc 0=