From 6169c77e9a3a2948493d7fb8ea7df119712761ba Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sat, 5 Jun 2021 20:50:33 +1000 Subject: [PATCH] STR>TEMP to return char* --- temp.asm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/temp.asm b/temp.asm index 3425c1c..f85cb33 100644 --- 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 -- 2.39.2