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

[PATCH 114/188] update end instruction processing

Browse Source 
From 25c3284d093b3fac230101e8579bcc986b3a1cce Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Wed, 18 Mar 2020 13:19:23 -0400

git-svn-id: branches/wasm@46110 -
This commit is contained in:
nickysn 2020-08-03 13:01:05 +00:00
parent efc23d23fd
commit f6705f03a6
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/wasmbin/wasmmodule.pas
View File

@ -770,9 +770,15 @@ var
i : integer;
j : integer;
ci : TWasmInstr;
endNeed : Integer;
begin
endNeed := 1;
for i:=0 to l.Count-1 do begin
ci:=l[i];
if INST_FLAGS[ci.code].Param = ipResType then
inc(endNeed);
case ci.code of
INST_local_get, INST_local_set, INST_local_tee:
begin
@ -797,13 +803,15 @@ begin
if Assigned(ci.insttype) and (ci.insttype.typeNum<0) then
ci.insttype.typeNum:=RegisterFuncType(m, ci.insttype);
end;
INST_END: dec(endNeed);
end;
PopulateRelocData(m, ci);
end;
// adding end instruction
if checkEnd and (l.Count>0) and (l[l.Count-1].code<>INST_END) then
if checkEnd and (endNeed>0) then
l.AddInstr(INST_END);
end;