From bd4d73f42bf84d7f99686925528e8caccfed930b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Sat, 15 Jan 2011 01:04:32 +0000
Subject: [PATCH] [INTERPRETER] * BUG: Fix the READ instruction when reading
 null strings.

git-svn-id: svn://localhost/gambas/trunk@3455 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 main/gbx/gbx_stream.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/main/gbx/gbx_stream.c b/main/gbx/gbx_stream.c
index 2b26a37e7..9f2e19b1c 100644
--- a/main/gbx/gbx_stream.c
+++ b/main/gbx/gbx_stream.c
@@ -1041,6 +1041,8 @@ void STREAM_read_type(STREAM *stream, TYPE type, VALUE *value)
 				STRING_new_temp_value(value, NULL, labs(len));
 				STREAM_read(stream, value->_string.addr, len);
 			}
+			else
+				value->type = T_NULL;
 
 			break;