paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 08:43:07 +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 end
else else
begin begin
{ static field -> nothing to do here, except for validity check } { no symbol, no index, just fixed address, e.g. var a: longint absolute 5; }
{if not assigned(ref.symbol) or list.Concat(taicpu.op_const(a_i32_const,0));
(ref.offset<>0) then incstack(list,1);
begin result:=1;
internalerror(2010120525);
end;}
end; end;
end; end;