Apple-2gs-SW/ORCA-Pascal
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-Pascal.git synced 2024-11-28 23:49:28 +00:00
Code Issues Projects Releases Wiki Activity

debugger - bad code generated for array symbol tables

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
symbols.pas
View File

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