From d2d871181a679181dd21883205edbe097c992a23 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Mon, 15 Feb 2021 14:43:26 -0600
Subject: [PATCH] Implement comparisons (>, >=, <, <=) for unsigned long long.

---
 Gen.pas | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/Gen.pas b/Gen.pas
index 1c4f3be..5574239 100644
--- a/Gen.pas
+++ b/Gen.pas
@@ -1160,6 +1160,57 @@ else
             end; {if}
          end; {case optype of cgLong}
 
+      cgUQuad: begin
+         GenTree(op^.left);
+         GenTree(op^.right);
+         if op^.opcode = pc_geq then
+            GenNative(m_ldx_imm, immediate, 1, nil, 0)
+         else {if op^.opcode = pc_grt then}
+            GenNative(m_ldx_imm, immediate, 0, nil, 0);
+         lab1 := GenLabel;
+         lab2 := GenLabel;
+         GenNative(m_lda_s, direct, 15, nil, 0);
+         GenNative(m_cmp_s, direct, 7, nil, 0);
+         GenNative(m_bne, relative, lab1, nil, 0);
+         GenNative(m_lda_s, direct, 13, nil, 0);
+         GenNative(m_cmp_s, direct, 5, nil, 0);
+         GenNative(m_bne, relative, lab1, nil, 0);
+         GenNative(m_lda_s, direct, 11, nil, 0);
+         GenNative(m_cmp_s, direct, 3, nil, 0);
+         GenNative(m_bne, relative, lab1, nil, 0);
+         GenNative(m_lda_s, direct, 9, nil, 0);
+         GenNative(m_cmp_s, direct, 1, nil, 0);
+         GenNative(m_bne, relative, lab1, nil, 0);
+         GenLab(lab1);
+         if op^.opcode = pc_geq then begin
+            GenNative(m_bcs, relative, lab2, nil, 0);
+            GenImplied(m_dex);
+            end {if}
+         else begin {if op^.opcode = pc_grt then}
+            GenNative(m_bcc, relative, lab2, nil, 0);
+            GenNative(m_beq, relative, lab2, nil, 0);
+            GenImplied(m_inx);
+            end; {else}
+         GenLab(lab2);
+         GenImplied(m_tsc);
+         GenImplied(m_clc);
+         GenNative(m_adc_imm, immediate, 16, nil, 0);
+         GenImplied(m_tcs);
+         GenImplied(m_txa);
+         if rOpcode = pc_fjp then begin
+            lab3 := GenLabel;
+            GenNative(m_bne, relative, lab3, nil, 0);
+            GenNative(m_brl, longrelative, lb, nil, 0);
+            GenLab(lab3);
+            end {if}
+         else if rOpcode = pc_tjp then begin
+            lab3 := GenLabel;
+            GenNative(m_beq, relative, lab3, nil, 0);
+            GenNative(m_brl, longrelative, lb, nil, 0);
+            GenLab(lab3);
+            end; {else if}
+         end; {case optype of cgUQuad}
+
       otherwise:
          Error(cge1);
       end; {case}