From af617c57b198d0b1e55e77ed2e67c57365007f29 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Fri, 4 Jun 2021 21:08:04 +1000 Subject: [PATCH] corrected STR>TEMP space allocation --- temp.asm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/temp.asm b/temp.asm index 62ae251..3425c1c 100644 --- a/temp.asm +++ b/temp.asm @@ -7,9 +7,9 @@ WORD p_objectspace,'TEMPSPACE',dovariable ;; Holds size and address of the object space. - dq 104857600 ; Total object space size (request size) - dq 0 ; Object space base address - dq 0 ; Currently used. + dq 104857600 ; [0] Total object space size (request size) + dq 0 ; [8] Object space base address + dq 0 ; [16] Currently used. WORD p_temp,'TEMP',fasm ;; ( size -- addr ) @@ -40,9 +40,10 @@ 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 ; ( -- char* n ) [ n ] - dq p_dup, p_temp ; ( -- char* n addr ) - dq p_dup, p_gtR ; ( -- char* n addr ) [ n addr ] + 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 -- 2.39.2