From 9f6a3eebb78048432f2240922b18cec3ae80a686 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 19 Jul 2024 20:00:21 +0200
Subject: [PATCH]   * handle adress registers properly in
 tcg64f68k.a_op64_reg_ref

---
 compiler/m68k/cgcpu.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/m68k/cgcpu.pas b/compiler/m68k/cgcpu.pas
index bff335b712..83b9035319 100644
--- a/compiler/m68k/cgcpu.pas
+++ b/compiler/m68k/cgcpu.pas
@@ -2587,6 +2587,8 @@ unit cgcpu;
         href: treference;
         hreg: tregister;
       begin
+        reg.reghi:=tcg68k(cg).force_to_dataregister(list,OS_32,reg.reghi);
+        reg.reglo:=tcg68k(cg).force_to_dataregister(list,OS_32,reg.reglo);
         case op of
           OP_AND,OP_OR,OP_XOR:
             begin