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

* Local var templist renamed localslist. No functional changes.

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-10-18 01:41:25 +03:00
parent edabca1447
commit db23f54f8c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/wasm32/cpupi.pas
View File

@ -651,7 +651,7 @@ implementation
end;
var
templist: TAsmList;
localslist: TAsmList;
l : TWasmLocal;
first, labels_resolved: Boolean;
local: tai_local;
@ -659,7 +659,7 @@ implementation
begin
first_tai_functype:=findfirst_tai_functype(aktproccode);
templist:=TAsmList.create;
localslist:=TAsmList.create;
local:=nil;
first:=true;
l:=ttgwasm(tg).localvars.first;
@ -669,14 +669,14 @@ implementation
local:=tai_local.create(l.typ);
local.first:=first;
first:=false;
templist.Concat(local);
localslist.Concat(local);
l:=l.nextseq;
Inc(FFirstFreeLocal);
end;
if assigned(local) then
local.last:=true;
aktproccode.insertListAfter(first_tai_functype,templist);
templist.Free;
aktproccode.insertListAfter(first_tai_functype,localslist);
localslist.Free;
replace_local_frame_pointer(aktproccode);