boot: fix S interpret-mode — copy string out of TIB
`S name` in interpret mode used to leave (c-addr u) pointing into the input buffer, so the next REFILL clobbered the bytes. Typing `s test` then `type` on a fresh line printed "pest" because the new input overwrote the first chars of the old TIB content. Move `S` from boot.fth to the Rust outer interpreter alongside `S"` / `C"`: both interpret and compile modes now copy the token to HERE-space (stable across REFILL). Compile-mode output is still bit-identical to writing `S" name"` inline. Adds `test_s_interpret_survives_refill` regression.
This commit is contained in:
+4
-15
@@ -306,18 +306,7 @@
|
||||
|
||||
\ .S keeps its Rust host function (complex stack introspection).
|
||||
|
||||
\ ---------------------------------------------------------------
|
||||
\ Phase 8: Parse-ahead sugar
|
||||
\ ---------------------------------------------------------------
|
||||
|
||||
\ S ( "<spaces>name<space>" -- ) ( -- c-addr u at run time )
|
||||
\
|
||||
\ State-smart "quote the next whitespace-delimited token as a string".
|
||||
\ Interpret-mode: leave ( c-addr u ) pointing into the input buffer.
|
||||
\ Compile-mode: append run-time semantics that push the copied string
|
||||
\ (identical to writing S" name" inline).
|
||||
\
|
||||
\ This is the string analogue of [CHAR] (for chars) and ['] (for xts).
|
||||
\ Comparable to Lisp's quote: S foo is to a string what ' foo is to an xt.
|
||||
\ Inside a : definition the compiled code is bit-identical to S" foo".
|
||||
: S PARSE-NAME STATE @ IF SLITERAL THEN ; IMMEDIATE
|
||||
\ S ( "<spaces>name<space>" -- c-addr u )
|
||||
\ State-smart string literal for the next whitespace-delimited token.
|
||||
\ Handled in Rust (outer.rs interpret_token_immediate / compile_token)
|
||||
\ so the string survives REFILL in interpret mode.
|
||||
|
||||
Reference in New Issue
Block a user