X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stdio.asm;h=658e42f1364f40f49a83e0de708bdc357fca9b2d;hb=69f36d333521b482b3b92349c1dccb654f43b65b;hp=865b7f0d6dcf462743d5284b197063e4d0953009;hpb=d5a8f559318ac57934871a48e964bac18557b601;p=rrq%2Frrqforth.git

diff --git a/stdio.asm b/stdio.asm
index 865b7f0..658e42f 100644
--- a/stdio.asm
+++ b/stdio.asm
@@ -2,9 +2,9 @@
 ;;; Dynamic memory management. Allocated with MALLOC and released with
 ;;; MUNMAP (see below)
 
-	;; ( size -- addr )
-	;; Allocates memory (using brk)
 	WORD p_malloc,'MALLOC',fasm
+	;; ( size -- addr )
+	;; Allocates memory (using mmap)
 	pushr rsi		; pretend it's a FORTH word since it
 				; ends via sys_mmap_asm
 	pop rax
@@ -16,6 +16,15 @@
 	push qword 0		; offset
 	jmp sys_mmap_asm	; exit via sys_mmap
 
+	WORD p_realloc,'REALLOC',fasm
+	;; ( addr old new -- )
+	;; Try remapping a given MMAP region of old size to a new size
+	;; mremap(void *old_address, size_t old_size,
+        ;;        size_t new_size, int flags, ... /* void *new_address */);
+	pushr rsi
+	push 1			; MREMAP_MAYMOVE
+	jmp sys_mmap_asm        ; exit via sys_mmap
+
 ;;; ========================================
 ;;; Input stream handling.
 ;;;
@@ -262,7 +271,7 @@ p_double_quote_endstream:
 	WORD p_sp,'SP',dovalue
 	;; ( -- c )
 	;; Pushes a space character on the stack
-	dq 10
+	dq 32
 
 	WORD p_digits,'DIGITS',dovariable
 	db '0123456789abcdef'