Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed a bug

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-08 04:28:53 +09:00
parent 9608f4f540
commit 6b6a2ed057
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
bootstrap.fs
View file

@ -1159,7 +1159,7 @@ decimal \ set default to decimal
;
\ Allocate a buffer for string literal
bl constant s-buffer-size \ 1024
bl bl * constant s-buffer-size \ 1024
create s-buffer s-buffer-size allot drop
\ Will define the error message corresponds to this error later
@ -1185,8 +1185,9 @@ char 0 char B - constant STRING-OVERFLOW-ERROR \ -18
else
s-buffer dup \ save start address
begin key dup '"' <> while
2dup swap - s-buffer-size >= if
throw STRING-OVERFLOW-ERROR
( buf pos c pos-buf )
over 3 pick - s-buffer-size 1- >= if
STRING-OVERFLOW-ERROR throw
then
over c! \ store char
1+ \ increment address