Add $Variable and $[]Variable to cross.fs

parent 7ae0c4e5
......@@ -3112,6 +3112,17 @@ End-Struct vtable-struct
: comp: ( -- colon-sys ) gstart-xt set-optimizer ;
: lit,: ( -- colon-sys ) gstart-xt set-lit, ;
\ T 0 cell+ cfalign# here vtsize cell+ H + [T'] post, T >vtable :noname H drop ;
variable cross-boot$[]
variable cross-boot[][]
>TARGET
: boot$[], ( -- )
cross-boot$[] $@ dup T , H bounds ?DO I @ T A, H cell +LOOP ;
: boot[][], ( -- )
cross-boot[][] $@ dup T , H bounds ?DO I @ T A, H cell +LOOP ;
>CROSS
\ instantiate deferred extra, now
......@@ -3227,6 +3238,14 @@ Build: T 0 A, H ;Build
by Create
[THEN]
Builder $Variable
Build: T here 0 A, H cross-boot$[] >stack ;Build
by Create
Builder $[]Variable
Build: T here 0 A, H cross-boot[][] >stack ;Build
by Create
\ User variables 04may94py
: tup@ user-region >rstart @ ;
......
......@@ -33,16 +33,12 @@ dup forth-wordlist has? ec 0= [IF] wordlist-id [THEN] ! Last !
unlock vt, tvtable-list @ lock vtable-list !
\ list of arrays to restore at boot
align here boot[][] !
1 cells ,
included-files A,
align here boot[][] ! boot[][],
\ list of strings to resture at boot
align here boot$[] !
1 cells ,
default-recognizer A,
align here boot$[] ! boot$[],
unlock included-files, lock included-files !
included-files, included-files !
align here default-recognizer !
2 cells , ' rec:num A, ' rec:word A,
......
......@@ -97,7 +97,7 @@ AConstant r:dnum
>r r@ $@ ?dup IF + cell- @ r@ $@len cell- r> $!len
ELSE drop rdrop THEN ;
AVariable default-recognizer
$Variable default-recognizer
\G The system recognizer
default-recognizer AValue forth-recognizer
......
......@@ -19,7 +19,7 @@
\ Now: Kernel Module, Reloadable
AVariable included-files
$[]Variable included-files
: sourcefilename ( -- c-addr u ) \ gforth
\G The name of the source file which is currently the input
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment