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

[PATCH 153/188] update normalizing elements

Browse Source 
From 2e32be10ce985ebd1d3f5eb9fcc4cb4ee34077f6 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Thu, 26 Mar 2020 16:50:48 -0400

git-svn-id: branches/wasm@46149 -
This commit is contained in:
nickysn 2020-08-03 13:01:45 +00:00
parent 1cd222ef30
commit be37f0577e
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/wasmbin/wasmnormalize.pas
View File

@ -196,8 +196,15 @@ end;
procedure NormalizeElems(m: TWasmModule);
var
i : integer;
e : TWasmElement;
l : TWasmInstrList;
begin
//todo: resolve offsets
for i:=0 to m.ElementCount-1 do begin
e := m.GetElement(i);
l := e.AddOffset;
if (l.Count=0) then l.AddInstr(INST_i32_const).operandText:='0';
NormalizeInst( m, nil, l);
end;
end;
@ -211,6 +218,7 @@ var
begin
fnIdx := 0;
NormalizeTable(m);
NormalizeElems(m);
NormalizeImport(m, fnIdx);
for i:=0 to m.FuncCount-1 do begin

3
utils/wasmbin/wattest.lpr
View File

@ -3,7 +3,8 @@ program wattest;
{$mode objfpc}{$H+}
uses
SysUtils, Classes, watparser, watscanner, wasmmodule, wasmbinwriter;
SysUtils, Classes, watparser, watscanner, wasmmodule, wasmbinwriter,
wasmnormalize;
procedure Traverse(p: TWatScanner);
begin