Apple-2gs-SW/ORCA-Pascal
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-Pascal.git synced 2026-04-26 12:19:19 +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
Download Patch File Download Diff File Expand all files Collapse all files
symbols.pas
+2 -2
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;