Apple-2gs-SW
/
ORCA-Pascal
mirror of https://github.com/byteworksinc/ORCA-Pascal.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge pull request #9 from ksherlock/patch0005 

debugger - bad code generated for array symbol tables
This commit is contained in:
MikeW50 2018-03-25 15:15:46 -06:00 committed by GitHub
parent 1c91c2f1d1 1a89445ae7
commit 33a05bd253
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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

@ -994,10 +994,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;