Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-06-09 16:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Generate better code for long long >= comparisons.

Browse Source
This commit is contained in:
Stephen Heumann 2022-07-11 19:20:55 -05:00
parent 687a5eaa45
commit 312a3a09b9
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Gen.pas
View File

@ -1420,14 +1420,17 @@ else
GenLab(lab1);
end {if}
else begin
lab1 := GenLabel;
GenNative(m_lda_imm, immediate, 1, nil, 0);
if op^.opcode = pc_geq then
GenNative(m_bcs, relative, lab1, nil, 0)
else
if op^.opcode = pc_geq then begin
GenNative(m_lda_imm, immediate, 0, nil, 0);
GenImplied(m_rol_a);
end {if}
else {if op^.opcode = pc_grt then} begin
lab1 := GenLabel;
GenNative(m_lda_imm, immediate, 1, nil, 0);
GenNative(m_bcc, relative, lab1, nil, 0);
GenImplied(m_dea);
GenLab(lab1);
GenImplied(m_dea);
GenLab(lab1);
end; {else}
end; {else}
end; {case optype of cgQuad}