mirror of
https://github.com/byteworksinc/ORCA-Pascal.git
synced 2024-05-27 20:48:33 +00:00
Merge pull request #9 from ksherlock/patch0005
debugger - bad code generated for array symbol tables
This commit is contained in:
commit
33a05bd253
|
@ -994,10 +994,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;
|
||||||
|
|
Loading…
Reference in New Issue
Block a user