From 7c443001362afde8da7686d318ff4d96c945394c Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Mon, 24 Feb 2025 10:48:18 +0200
Subject: [PATCH] * WebAssembly: fixed type conversion from pointer to qword
 (fixes bug #41092)

---
 compiler/wasm32/hlcgcpu.pas |  2 +-
 tests/webtbs/tw41092.pp     | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)
 create mode 100644 tests/webtbs/tw41092.pp

diff --git a/compiler/wasm32/hlcgcpu.pas b/compiler/wasm32/hlcgcpu.pas
index 59f4517aa9..cdbf31e4f9 100644
--- a/compiler/wasm32/hlcgcpu.pas
+++ b/compiler/wasm32/hlcgcpu.pas
@@ -1452,7 +1452,7 @@ implementation
       extra_slots:=prepare_stack_for_ref(list,tmpref,false);
       a_load_ref_stack(list,fromsize,tmpref,extra_slots);
 
-      if def2regtyp(fromsize)=R_INTREGISTER then
+      if def2regtyp(fromsize) in [R_INTREGISTER,R_ADDRESSREGISTER] then
         resize_stack_int_val(list,fromsize,tosize,false);
       a_load_stack_reg(list,tosize,register);
     end;
diff --git a/tests/webtbs/tw41092.pp b/tests/webtbs/tw41092.pp
new file mode 100644
index 0000000000..23ce051283
--- /dev/null
+++ b/tests/webtbs/tw41092.pp
@@ -0,0 +1,10 @@
+{$mode objfpc}
+{$H+}
+
+var
+  A: QWord;
+  B: Pointer;
+
+begin
+  A := QWord(B);
+end.