fix terminating NUL on the captured string

[rrq/rrqforth.git] / memory.asm

diff --git a/memory.asm b/memory.asm
index 7d5f1440eb53e93fa7a1eeb1625afa2d52ea140b..80ce28075e6c69a6e5523f3336ed7532a0dbe6f3 100644 (file)
--- a/memory.asm
+++ b/memory.asm
@@ -17,11 +17,18 @@
        next
 
        WORD p_tfa2flags_get,'TFA>FLAGS@',fasm
-       ;; ( cfa -- flags )
+       ;; ( tfa -- flags )
        pop rax
        push qword[rax+16]
        next
 
+       WORD p_tfa2namez,'TFA>NAMEZ',fasm
+       ;; (  tfa -- char* )
+       pop rax
+       add rax,32
+       push rax
+       next
+
        WORD p_cfa2flags_get,'CFA>FLAGS@',fasm
        ;; ( cfa -- flags )
        pop rax