paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:10:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* workaround for WebAssembly resource names possibly residing in memory below 64KB

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-06-30 06:01:12 +03:00
parent 3180c985ed
commit c96b0f6ca5
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/intres.inc
View File

@ -100,7 +100,19 @@ var i : integer;
s : shortstring; s : shortstring;
code : word; code : word;
begin 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); InternalIsIntResource:=((PtrUInt(aStr) shr 16)=0);
{$endif}
if InternalIsIntResource then aInt:=PtrUInt(aStr) if InternalIsIntResource then aInt:=PtrUInt(aStr)
else else
begin begin