From 63839d81a02d938a8a3012689cd04b6f4f49976c Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Tue, 13 Mar 2018 15:42:58 -0400
Subject: [PATCH] Uninitialized field when declaring objects without any data
 fields causes spurious "assignment of files not allowed" error.

---
 parser.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/parser.pas b/parser.pas
index c395057..038b236 100644
--- a/parser.pas
+++ b/parser.pas
@@ -1003,6 +1003,7 @@ end; {DoConstant}
           objlevel := 1;
           objparent := nil;
 	  size := ptrsize;
+          hasSFile := false;
 	  end; {with}
 
         {handle inheritance}