From 94a2d829c99032b1d7489158f6a6057faa059928 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sun, 3 Jan 2021 07:56:47 +0900
Subject: [PATCH] use statically allocate buffer for s" at immediate mode

---
 bootstrap.fs | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index 91717d2..6ff2054 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1115,6 +1115,14 @@ decimal \ set default to decimal
     2drop
 ;
 
+\ Allocate a buffer for string literal
+bl constant s-buffer-size  \ 1024
+create s-buffer s-buffer-size allot
+
+\ Will define the error message corresponds to this error later
+\ because we can't write string literal yet.
+char 0 char B - constant string-overflow-error \ -18
+
 \ Parse string delimited by "
 \ compile mode: the string is stored as operand of 'string' operator.
 \ immediate mode: the string is stored to temporary buffer.
@@ -1130,8 +1138,11 @@ decimal \ set default to decimal
         swap !      \ back-fill length
         align
     else
-        here dup    \ save start address
+        s-buffer dup    \ save start address
         begin key dup '"' <> while
+            2dup swap - s-buffer-size >= if
+                throw string-overflow-error
+            then
             over c! \ store char
             1+      \ increment address
         repeat drop