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

* moved the preparation of the locals asm list in tcpuprocinfo.postprocess_code to a local subroutine

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

52
compiler/wasm32/cpupi.pas
View File

@ -650,32 +650,36 @@ implementation
asmlist:=l2;
end;
var
localslist: TAsmList;
l : TWasmLocal;
first, labels_resolved: Boolean;
local: tai_local;
first_tai_functype: tai_functype;
begin
first_tai_functype:=findfirst_tai_functype(aktproccode);
localslist:=TAsmList.create;
local:=nil;
first:=true;
l:=ttgwasm(tg).localvars.first;
FFirstFreeLocal:=Length(first_tai_functype.functype.params);
while Assigned(l) do
function prepare_locals: TAsmList;
var
local: tai_local;
first: Boolean;
l : TWasmLocal;
begin
local:=tai_local.create(l.typ);
local.first:=first;
first:=false;
localslist.Concat(local);
l:=l.nextseq;
Inc(FFirstFreeLocal);
result:=TAsmList.create;
local:=nil;
first:=true;
l:=ttgwasm(tg).localvars.first;
FFirstFreeLocal:=Length(findfirst_tai_functype(aktproccode).functype.params);
while Assigned(l) do
begin
local:=tai_local.create(l.typ);
local.first:=first;
first:=false;
result.Concat(local);
l:=l.nextseq;
Inc(FFirstFreeLocal);
end;
if assigned(local) then
local.last:=true;
end;
if assigned(local) then
local.last:=true;
aktproccode.insertListAfter(first_tai_functype,localslist);
var
localslist: TAsmList;
labels_resolved: Boolean;
begin
localslist:=prepare_locals;
aktproccode.insertListAfter(findfirst_tai_functype(aktproccode),localslist);
localslist.Free;
replace_local_frame_pointer(aktproccode);