debugger - bad code generated for array symbol tables

Fields are in the wrong order and it returns sizes for the array type rather than the element type.
This commit is contained in:
Kelvin Sherlock 2018-03-15 23:10:49 -04:00
parent cf72a073f8
commit 1a89445ae7

View File

@ -991,10 +991,10 @@ var
CnOut2(count);
end; {else if}
while count <> 0 do begin {write the subscript entries}
CnOut2(0); CnOut2(0);
GetBounds(tp, lmin, lmax);
GetBounds(tp^.inxtype, lmin, lmax);
CnOut2(long(lmin).lsw); CnOut2(long(lmin).msw);
CnOut2(long(lmax).lsw); CnOut2(long(lmax).msw);
CnOut2(0); CnOut2(0);
symLength := symLength+12;
tp := tp^.aeltype;
count := count-1;