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

+ add the extra allocated locals before inserting the locals list in wasm32 tcpuprocinfo.postprocess_code

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-10-18 03:54:37 +03:00
parent d50ef3381f
commit fc9719f5f9
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/wasm32/cpupi.pas
View File

@ -713,6 +713,14 @@ implementation
end;
end;
procedure add_extra_allocated_locals(localslist: TAsmList);
var
t: TWasmBasicType;
begin
for t in FAllocatedLocals do
localslist.Concat(tai_local.create(t));
end;
procedure insert_localslist(destlist,localslist: TAsmList);
begin
if assigned(localslist) then
@ -736,6 +744,7 @@ implementation
{$endif DEBUG_WASM_GOTO}
resolve_labels_complex(aktproccode);
add_extra_allocated_locals(localslist);
insert_localslist(aktproccode,localslist);
localslist.Free;