Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-02-06 20:30:15 +00:00
Code Issues Projects Releases Wiki Activity

Generate more efficient code for some indexing operations affected by the previous commit.

Browse Source
This commit is contained in:
Stephen Heumann 2017-11-11 20:23:08 -06:00
parent 3aed2eb8ac
commit 103af4c4a4
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Gen.pas
View File

@ -2533,11 +2533,19 @@ if smallMemoryModel then begin
end; {else}
if gLong.where = globalLabel then
if IndexCanBeNegative then begin
GenImplied(m_txa);
GenImplied(m_clc);
GenNative(m_adc_imm, immediate, gLong.disp, nil, 0);
GenImplied(m_tax);
gLong.disp := 0;
if (gLong.disp >= 0) and (gLong.disp <= 2) then begin
while gLong.disp > 0 do begin
GenImplied(m_inx);
gLong.disp := gLong.disp - 1;
end; {while}
end {if}
else begin
GenImplied(m_txa);
GenImplied(m_clc);
GenNative(m_adc_imm, immediate, gLong.disp, nil, 0);
GenImplied(m_tax);
gLong.disp := 0;
end; {else}
end; {if}
if (lLong.preference & gLong.where) = 0 then begin
if (lLong.preference & inPointer) <> 0 then begin