From 607211d38e1f71f3b54de6c1285bdbe40792dd3c Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Mon, 11 Jul 2022 18:39:00 -0500
Subject: [PATCH] Rearrange some labels to facilitate branch-shortening
 optimization.

---
 Gen.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Gen.pas b/Gen.pas
index 34a17ff..8d92111 100644
--- a/Gen.pas
+++ b/Gen.pas
@@ -1111,12 +1111,13 @@ if (op^.optype in [cgByte,cgUByte,cgWord,cgUWord]) and
             if num > 0 then begin
                GenLab(lab1);
                GenNative(m_brl, longrelative, lb, nil, 0);
+               GenLab(lab2);
                end {if}
             else begin
                GenNative(m_brl, longrelative, lb, nil, 0);
+               GenLab(lab2);
                GenLab(lab1);
                end; {else}
-            GenLab(lab2);
             end; {else if}
          end {if}
       else {if optype in [cgUByte,cgUWord] then} begin
@@ -1273,9 +1274,9 @@ else
             else
                GenNative(m_bcc, relative, lab2, nil, 0);
             GenNative(m_brl, longrelative, lb, nil, 0);
+            GenLab(lab2);
             if op^.opcode = pc_grt then
                GenLab(lab3);
-            GenLab(lab2);
             end {else if}
          else begin
             lab2 := GenLabel;