version 1.6, 1994/08/31 19:42:47
|
version 1.7, 1994/09/12 19:00:30
|
Line 61
|
Line 61
|
\ Currently locals may only be |
\ Currently locals may only be |
\ defined at the outer level and TO is not supported. |
\ defined at the outer level and TO is not supported. |
|
|
include float.fs |
|
include search-order.fs |
include search-order.fs |
|
include float.fs |
|
|
: compile-@local ( n -- ) |
: compile-@local ( n -- ) |
case |
case |
0 of postpone @local0 endof |
0 of postpone @local0 endof |
4 of postpone @local4 endof |
1 cells of postpone @local1 endof |
8 of postpone @local8 endof |
2 cells of postpone @local2 endof |
12 of postpone @local12 endof |
3 cells of postpone @local3 endof |
( otherwise ) dup postpone @local# , |
( otherwise ) dup postpone @local# , |
endcase ; |
endcase ; |
|
|
: compile-f@local ( n -- ) |
: compile-f@local ( n -- ) |
case |
case |
0 of postpone f@local0 endof |
0 of postpone f@local0 endof |
8 of postpone f@local8 endof |
1 floats of postpone f@local1 endof |
( otherwise ) dup postpone f@local# , |
( otherwise ) dup postpone f@local# , |
endcase ; |
endcase ; |
|
|
Line 509 forth definitions
|
Line 509 forth definitions
|
endif ; immediate |
endif ; immediate |
|
|
: locals| |
: locals| |
BEGIN sname 2dup s" |" compare 0= WHILE |
BEGIN name 2dup s" |" compare 0= WHILE |
(local) REPEAT drop 0 (local) ; immediate restrict |
(local) REPEAT drop 0 (local) ; immediate restrict |