X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=stdio.asm;h=3f69cd3b1c42bcdef0a0dc294902a84b789851d5;hb=4dcbbfcdec1f956b9fe016b4e742f8c57837ab2c;hp=191e09893e2226146f1ee1d0b92a0650d66ec06d;hpb=2b1882f00a5b60b003891ce0e9d3440732538a1a;p=rrq%2Frrqforth.git

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