From fd74c26707e47ea8f1989941d05b02d92fd04598 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 7 Jul 2024 15:41:13 +0200
Subject: [PATCH]   * TARMAsmOptimizer.USxtOp2Op sets register size if needed

---
 compiler/armgen/aoptarm.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/armgen/aoptarm.pas b/compiler/armgen/aoptarm.pas
index 570a69c0d9..1c1575b741 100644
--- a/compiler/armgen/aoptarm.pas
+++ b/compiler/armgen/aoptarm.pas
@@ -231,6 +231,8 @@ Implementation
           else
             opoffset:=1;
           taicpu(hp1).loadReg(opoffset+1,taicpu(p).oper[1]^.reg);
+          if not(shiftmode in [SM_SXTX,SM_UXTX,SM_LSL]) then
+            setsubreg(taicpu(hp1).oper[opoffset+1]^.reg,R_SUBD);
           taicpu(hp1).ops:=opoffset+3;
           shifterop_reset(so);
           so.shiftmode:=shiftmode;