From c96b0f6ca58d899bee8682eccf5172107952d11a Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Sun, 30 Jun 2024 06:01:12 +0300
Subject: [PATCH] * workaround for WebAssembly resource names possibly residing
 in memory below 64KB

---
 rtl/inc/intres.inc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/rtl/inc/intres.inc b/rtl/inc/intres.inc
index 215f6a7fdb..4624ac70d2 100644
--- a/rtl/inc/intres.inc
+++ b/rtl/inc/intres.inc
@@ -100,7 +100,19 @@ var i : integer;
     s : shortstring;
     code : word;
 begin
+{$if defined(CPUWASM)}
+  { Since WebAssembly is a Harvard architecture, the code is invisible in linear
+    memory and the data section starts at address 0. Resources reside after the
+    initialized data section, just before the bss (uninitialized data) section,
+    therefore it's perfectly possible that their data exist on a relatively low
+    address (less than 64KB). So, for WebAssembly we check whether the pointer
+    resides in the first 4KB of linear memory, instead of the first 64KB. Note
+    that the first 4KB of linear memory in WebAssembly aren't used by Free
+    Pascal. }
+  InternalIsIntResource:=((PtrUInt(aStr) shr 12)=0);
+{$else}
   InternalIsIntResource:=((PtrUInt(aStr) shr 16)=0);
+{$endif}
   if InternalIsIntResource then aInt:=PtrUInt(aStr)
   else
   begin