STR>TEMP to return char*

[rrq/rrqforth.git] / temp.asm

diff --git a/temp.asm b/temp.asm
index 3425c1c53d34951f135750d5681c6ffb84ecbec0..f85cb3375faff34eaea45ea027fde734c36fa31e 100644 (file)
--- a/temp.asm
+++ b/temp.asm
@@ -43,9 +43,9 @@ p_objecthole_from_tail:
        dq p_dup, p_gtR                 ; ( -- char* n ) [ n ]
        dq p_dup, p_literal, 8, p_plus  ; ( -- char* n n+8 )
        dq p_temp                       ; ( -- char* n  addr )
-       dq p_dup, p_gtR                 ; ( -- char* n  addr ) [ n addr ]
        dq p_2dup, p_put
-       dq p_literal, 8, p_plus
-       dq p_swap, p_strncpy
-       dq p_Rgt, p_Rgt
+       dq p_literal, 8, p_plus         ; ( -- char* n  addr+8 ) [ n ]
+       dq p_dup, p_gtR                 ; ( -- char* n  addr+8 ) [ n addr+8 ]
+       dq p_swap, p_strncpy            ; ( -- ) [ n addr+8 ]
+       dq p_Rgt, p_Rgt                 ; ( -- addr+8 n ) [ ]
        dq p_exit