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

* moved the insertion of the wasm locals asmlist to a local subroutine

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-10-18 01:50:31 +03:00
parent 0e39e7c12d
commit e81cff0408
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/wasm32/cpupi.pas
View File

@ -674,12 +674,17 @@ implementation
local.last:=true; local.last:=true;
end; end;
procedure insert_localslist(destlist,localslist: TAsmList);
begin
destlist.insertListAfter(findfirst_tai_functype(destlist),localslist);
end;
var var
localslist: TAsmList; localslist: TAsmList;
labels_resolved: Boolean; labels_resolved: Boolean;
begin begin
localslist:=prepare_locals; localslist:=prepare_locals;
aktproccode.insertListAfter(findfirst_tai_functype(aktproccode),localslist); insert_localslist(aktproccode,localslist);
localslist.Free; localslist.Free;
replace_local_frame_pointer(aktproccode); replace_local_frame_pointer(aktproccode);