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

Implement comparisons for signed long long.

Browse Source 
These use a library function to perform the comparison.
This commit is contained in:
Stephen Heumann 2021-02-15 18:10:10 -06:00
parent d2d871181a
commit e38be489df
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Gen.pas
View File

@ -1160,6 +1160,37 @@ else
end; {if} end; {if}
end; {case optype of cgLong} end; {case optype of cgLong}
cgQuad: begin
if op^.opcode = pc_geq then begin
GenTree(op^.left);
GenTree(op^.right);
end {if}
else {if op^.opcode = pc_grt then} begin
GenTree(op^.right);
GenTree(op^.left);
end; {else}
GenCall(88);
if (rOpcode = pc_fjp) or (rOpcode = pc_tjp) then begin
lab1 := GenLabel;
if (rOpcode = pc_fjp) <> (op^.opcode = pc_grt) then
GenNative(m_bcs, relative, lab1, nil, 0)
else
GenNative(m_bcc, relative, lab1, nil, 0);
GenNative(m_brl, longrelative, lb, nil, 0);
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
GenNative(m_bcc, relative, lab1, nil, 0);
GenImplied(m_dea);
GenLab(lab1);
end; {else}
end; {case optype of cgQuad}
cgUQuad: begin cgUQuad: begin
GenTree(op^.left); GenTree(op^.left);
GenTree(op^.right); GenTree(op^.right);

1
Native.pas
View File

@ -2042,6 +2042,7 @@ case callNum of
85: sp := @'~SHL8'; 85: sp := @'~SHL8';
86: sp := @'~ASHR8'; 86: sp := @'~ASHR8';
87: sp := @'~LSHR8'; 87: sp := @'~LSHR8';
88: sp := @'~SCMP8';
otherwise: otherwise:
Error(cge1); Error(cge1);
end; {case} end; {case}