From f0d827eadef1812522d7ded1db58904f02813552 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Thu, 7 Jul 2022 18:38:41 -0500
Subject: [PATCH] Generate more efficient code for certain subtractions.

This affects 16-bit subtractions where where only the left operand is "complex" (i.e. most things other than constants and simple loads). They were using an unnecessarily complicated code path suitable for the case where both operands are complex.
---
 Gen.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Gen.pas b/Gen.pas
index b8b6011..8d2477a 100644
--- a/Gen.pas
+++ b/Gen.pas
@@ -6998,7 +6998,7 @@ procedure GenTree {op: icptr};
    { Generate code for a pc_sbi					}
    
    begin {GenSbi}
-   if Complex(op^.left) or Complex(op^.right) then begin
+   if Complex(op^.right) then begin
       GenTree(op^.right);
       if Complex(op^.left) then begin
 	 GenImplied(m_pha);