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

[PATCH 178/188] update normalization and binary output for the new

Browse Source 
table.id

From 3910ff460510bab5f4ec615abdb6d989cc909b04 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Wed, 8 Apr 2020 11:59:26 -0400

git-svn-id: branches/wasm@46174 -
This commit is contained in:
nickysn 2020-08-03 13:02:09 +00:00
parent cdc7401d91
commit 6a08f41442
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/wasmbin/wasmbinwriter.pas
View File

@ -514,7 +514,7 @@ begin
WriteU32(dst, module.ElementCount);
for i:=0 to module.ElementCount-1 do begin
el := module.GetElement(i);
WriteU32(dst, el.tableIdx);
WriteU32(dst, el.tableId.idNum);
WriteInstList(el.offset, sc.datapos);
WriteU32(dst, el.funcCount);

2
utils/wasmbin/wasmnormalize.pas
View File

@ -220,7 +220,7 @@ begin
if not Assigned(t.elem) then continue;
se:=t.elem;
de := m.AddElement;
de.tableIdx := t.id.idNum;
de.tableId.idNum := t.id.idNum;
de.funcCount:=se.funcCount;
if se.funcCount>0 then begin