Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-22 07:30:54 +00:00
Code Issues Projects Releases Wiki Activity

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 })

Browse Source
This commit is contained in:
Kelvin Sherlock 2018-02-09 22:11:20 -05:00
parent 44714767e5
commit c11218359f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Symbol.pas
View File

@ -982,6 +982,9 @@ var
begin {ExpandStructType} begin {ExpandStructType}
ip := tp^.fieldList; 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 while ip <> nil do begin
GenSymbol(ip, none); GenSymbol(ip, none);
ip := ip^.next; ip := ip^.next;