From 6a309aed7e1fc1edd61ece4a7a0b10fcf5622ced Mon Sep 17 00:00:00 2001
From: amesgen <amesgen@amesgen.de>
Date: Sat, 8 Jun 2024 19:31:42 +0200
Subject: [PATCH] compiler: handle CmmRegOff in lower_CmmExpr_Ptr
(cherry picked from commit def46c8ccddf036851482172919ec392c05f6cc5)
---
compiler/GHC/CmmToAsm/Wasm/FromCmm.hs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/compiler/GHC/CmmToAsm/Wasm/FromCmm.hs b/compiler/GHC/CmmToAsm/Wasm/FromCmm.hs
index 02f0c976ea0..920fba33bbc 100644
--- a/compiler/GHC/CmmToAsm/Wasm/FromCmm.hs
+++ b/compiler/GHC/CmmToAsm/Wasm/FromCmm.hs
@@ -1002,6 +1002,8 @@ lower_CmmExpr_Ptr lbl ptr = do
let (ptr', o) = case ptr of
CmmLit (CmmLabelOff lbl o)
| o >= 0 -> (CmmLit $ CmmLabel lbl, o)
+ CmmRegOff reg o
+ | o >= 0 -> (CmmReg reg, o)
CmmMachOp (MO_Add _) [base, CmmLit (CmmInt o _)]
| o >= 0 -> (base, fromInteger o)
_ -> (ptr, 0)
--
GitLab