From 41f174ae2048c812c337f38ee82bdce51dd74e9c Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Fri, 4 Jun 2021 18:12:59 +1000 Subject: [PATCH] remove mistaken swap --- temp.asm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/temp.asm b/temp.asm index 9759f54..62ae251 100644 --- a/temp.asm +++ b/temp.asm @@ -40,11 +40,11 @@ p_objecthole_from_tail: ;; ( char* n -- char* n ) ;; Capture a given [n:char*] string as a new temp object with ;; leading size cell. - dq p_dup, p_gtR ; size - dq p_dup, p_temp - dq p_dup, p_gtR ; address + dq p_dup, p_gtR ; ( -- char* n ) [ n ] + dq p_dup, 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, p_swap + dq p_Rgt, p_Rgt dq p_exit -- 2.39.2