paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* WebAssembly codegen: fixed access to absolute variables, pointing to just a constant address, e.g. var a: longint absolute 5;

Browse Source
This commit is contained in:
Nikolay Nikolov 2025-02-02 16:26:42 +02:00
parent 452c766f04
commit 2e77e1a471
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/wasm32/hlcgcpu.pas
View File

@ -1319,12 +1319,10 @@ implementation
end
else
begin
{ static field -> nothing to do here, except for validity check }
{if not assigned(ref.symbol) or
(ref.offset<>0) then
begin
internalerror(2010120525);
end;}
{ no symbol, no index, just fixed address, e.g. var a: longint absolute 5; }
list.Concat(taicpu.op_const(a_i32_const,0));
incstack(list,1);
result:=1;
end;
end;