From def46c8ccddf036851482172919ec392c05f6cc5 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
---
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 1ad316eb21b..390ded18e13 100644
--- a/compiler/GHC/CmmToAsm/Wasm/FromCmm.hs
+++ b/compiler/GHC/CmmToAsm/Wasm/FromCmm.hs
@@ -1048,6 +1048,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