From 1781ad707e1278d05f66038a44652a76a02f8567 Mon Sep 17 00:00:00 2001
From: Toomas Soome <tsoome@FreeBSD.org>
Date: Mon, 16 Sep 2019 20:26:53 +0000
Subject: [PATCH] loader_4th: scan_buffer can leave empty string on stack

When the file processing is done, we will have string with lenght 0 in stack and we will attempt to
allocate 0 bytes.
---
 stand/forth/support.4th | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/stand/forth/support.4th b/stand/forth/support.4th
index aa50b3bb3a9d..64c71e12ec26 100644
--- a/stand/forth/support.4th
+++ b/stand/forth/support.4th
@@ -363,6 +363,7 @@ variable fd
 ;
 
 : line_buffer_resize  ( len -- len )
+  dup 0= if exit then
   >r
   line_buffer .len @ if
     line_buffer .addr @
@@ -376,6 +377,7 @@ variable fd
 ;
     
 : append_to_line_buffer  ( addr len -- )
+  dup 0= if 2drop exit then
   line_buffer strget
   2swap strcat
   line_buffer .len !