corrected STR>TEMP space allocation

[rrq/rrqforth.git] / stdio.asm

diff --git a/stdio.asm b/stdio.asm
index 12c0ed45f46ee3a125704ee09ae52c3e29a9a299..3f69cd3b1c42bcdef0a0dc294902a84b789851d5 100644 (file)
--- 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