paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* WebAssembly: also handle dup=true in thlcgwasm.prepare_stack_for_ref for absolute address refs

Browse Source
This commit is contained in:
Nikolay Nikolov 2025-02-02 16:46:44 +02:00
parent 2e77e1a471
commit 6ce57a1625
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/wasm32/hlcgcpu.pas
View File

@ -1322,6 +1322,11 @@ implementation
{ 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);
if dup then
begin
list.Concat(taicpu.op_const(a_i32_const,0));
incstack(list,1);
end;
result:=1;
end;
end;