From c11218359f96edccefe4bbcb9a1c8b2fffa87643 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Fri, 9 Feb 2018 22:11:20 -0500
Subject: [PATCH] forward-declared structs have no field list and generate an
 invalid debugger symbol table.  Generate a valid struct entry by re-using the
 default error struct ({ field: int })

---
 Symbol.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Symbol.pas b/Symbol.pas
index 6686a01..69bc0b3 100644
--- a/Symbol.pas
+++ b/Symbol.pas
@@ -982,6 +982,9 @@ var
 
       begin {ExpandStructType}
       ip := tp^.fieldList;
+      { fieldList is nil if this is a forward declared struct. }
+      if ip = nil then ip := defaultStruct^.fieldList;
+
       while ip <> nil do begin
          GenSymbol(ip, none);
          ip := ip^.next;