paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

[PATCH 156/188] normalizing call_indirect index

Browse Source 
From 1c745e12ed007214835dd1286d51f4dc82b69dc8 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Fri, 27 Mar 2020 09:06:48 -0400

git-svn-id: branches/wasm@46152 -
This commit is contained in:
nickysn 2020-08-03 13:01:48 +00:00
parent 7175dcdfa8
commit 260a3a3061
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/wasmbin/wasmnormalize.pas
View File

@ -104,8 +104,12 @@ begin
INST_call_indirect:
begin
if Assigned(ci.insttype) and (ci.insttype.typeNum<0) then
ci.insttype.typeNum:=RegisterFuncType(m, ci.insttype);
if Assigned(ci.insttype) and (ci.insttype.typeNum<0) then begin
if ci.insttype.typeIdx <> '' then
ci.insttype.typeNum:=FindFuncType(m, ci.insttype.typeIdx)
else
ci.insttype.typeNum:=RegisterFuncType(m, ci.insttype);
end;
end;
INST_br, INST_br_if, INST_br_table: begin