paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 14:30:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced TWasmLocal.allocnoreuse

Browse Source 
git-svn-id: branches/wasm@47897 -
This commit is contained in:
nickysn 2020-12-30 03:46:32 +00:00
parent 57b976535f
commit 158da03691
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/wasm32/tgcpu.pas
View File

@ -37,6 +37,7 @@ unit tgcpu;
TWasmLocal = class
inuse : Boolean;
noreuse : Boolean;
index : integer;
typ : TWasmBasicType;
next : TWasmLocal; // next in the same basic type
@ -57,6 +58,7 @@ unit tgcpu;
constructor Create(astartindex: Integer = 0);
destructor Destroy; override;
function alloc(bt: TWasmBasicType): integer;
function allocnoreuse(bt: TWasmBasicType): integer;
procedure dealloc(bt: TWasmBasicType; index: integer);
procedure dealloc(index: integer);
end;
@ -231,7 +233,7 @@ unit tgcpu;
begin
lc := locv[bt];
t := nil;
while Assigned(lc) and (lc.inuse) do begin
while Assigned(lc) and ((lc.inuse) or (lc.noreuse)) do begin
t := lc;
lc := lc.next;
end;
@ -253,6 +255,35 @@ unit tgcpu;
end;
function TWasmLocalVars.allocnoreuse(bt: TWasmBasicType): integer;
var
i : integer;
lc : TWasmLocal;
t : TWasmLocal;
begin
lc := locv[bt];
t := nil;
while Assigned(lc) do
begin
t := lc;
lc := lc.next;
end;
lc := TWasmLocal.Create(bt, varindex);
if Assigned(t) then
t.next := lc
else
locv[bt]:=lc;
lc.inuse:=true;
lc.noreuse:=true;
inc(varindex);
if Assigned(last) then
last.nextseq := lc;
if not Assigned(first) then
first := lc;
last := lc;
allocnoreuse := lc.index;
end;
procedure TWasmLocalVars.dealloc(bt: TWasmBasicType; index: integer);
var
lc : TWasmLocal;