Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-08-07 17:24:58 +00:00
Code Issues Projects Releases Wiki Activity

Generate better code for equality comparisons against -1/0xFFFF.

Browse Source
This commit is contained in:
Stephen Heumann
2024-07-04 12:47:16 -05:00
parent 69320cd4d8
commit 6cf573a87c
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Gen.pas
View File

@@ -2259,6 +2259,8 @@ if (op^.optype in [cgByte,cgUByte,cgWord,cgUWord]) and
end {if} end {if}
else if num = 1 then else if num = 1 then
GenImplied(m_dea) GenImplied(m_dea)
else if num = -1 then
GenImplied(m_ina)
else else
GenNative(m_cmp_imm, immediate, num, nil, 0); GenNative(m_cmp_imm, immediate, num, nil, 0);
if opcode = pc_fjp then if opcode = pc_fjp then