From: Ralph Ronnquist Date: Fri, 4 Jun 2021 08:12:59 +0000 (+1000) Subject: remove mistaken swap X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=41f174ae2048c812c337f38ee82bdce51dd74e9c;p=rrq%2Frrqforth.git remove mistaken swap --- 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