X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stdio.asm;h=3f69cd3b1c42bcdef0a0dc294902a84b789851d5;hb=af617c57b198d0b1e55e77ed2e67c57365007f29;hp=12c0ed45f46ee3a125704ee09ae52c3e29a9a299;hpb=42844a6fe395162a374bd7bb6e8ed9a04b8d580c;p=rrq%2Frrqforth.git

diff --git a/stdio.asm b/stdio.asm
index 12c0ed4..3f69cd3 100644
--- a/stdio.asm
+++ b/stdio.asm
@@ -11,7 +11,7 @@
 	push qword 0		; address of mapping (suggestion)
 	push rax		; length of mapping
 	push qword 3		; protection mode PROT_READ | PROT_WRITE
-	push qword 8226		; flags PRIVATE | ANONYMOUS | LOCKED
+	push qword 34		; flags PRIVATE | ANONYMOUS 
 	push qword -1		; fd -1
 	push qword 0		; offset
 	jmp sys_mmap_asm	; exit via sys_mmap
@@ -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