Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-02 19:29:21 +00:00
Code Issues Projects Releases Wiki Activity

Generate better code for pc_not on boolean operands.

Browse Source
This commit is contained in:
Stephen Heumann 2022-07-11 18:54:39 -05:00
parent b5b76b624c
commit 687a5eaa45
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Gen.pas
View File

@ -5422,8 +5422,12 @@ procedure GenTree {op: icptr};
var
lab1: integer;
operandIsBoolean: boolean;
begin {GenntNgiNot}
if op^.opcode = pc_not then
operandIsBoolean := op^.left^.opcode in
[pc_and,pc_ior,pc_neq,pc_equ,pc_geq,pc_leq,pc_les,pc_grt,pc_not];
GenTree(op^.left);
case op^.opcode of
pc_bnt:
@ -5435,11 +5439,13 @@ procedure GenTree {op: icptr};
end; {case pc_ngi}
pc_not: begin
lab1 := GenLabel;
GenImpliedForFlags(m_tax);
GenNative(m_beq, relative, lab1, nil, 0);
GenNative(m_lda_imm, immediate, 1, nil, 0);
GenLab(lab1);
if not operandIsBoolean then begin
lab1 := GenLabel;
GenImpliedForFlags(m_tax);
GenNative(m_beq, relative, lab1, nil, 0);
GenNative(m_lda_imm, immediate, 1, nil, 0);
GenLab(lab1);
end; {if}
GenNative(m_eor_imm, immediate, 1, nil, 0);
end; {if}
end; {case}