From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 4 Jun 2021 11:07:18 +0000 (+1000)
Subject: fix terminating NUL on the captured string
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=7c25292fc7c1f7e83989182540328befb290dfa6;p=rrq%2Frrqforth.git

fix terminating NUL on the captured string
---

diff --git a/stdio.asm b/stdio.asm
index 191e098..3f69cd3 100644
--- a/stdio.asm
+++ b/stdio.asm
@@ -234,9 +234,9 @@ p_double_quote_loop:
 	jmp p_double_quote_loop
 p_double_quote_endquote:
 p_double_quote_endstream:
+	mov qword [rdi],0
 	lea rdi,[p_pad_DFA]
 	add rdi,qword [rsp]
-	stosb
 	;; copy PAD string into new temp object
 	inc qword [rsp]
 	DOFORTH p_str2temp