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

[PATCH 150/188] writing jump vector (for br_table) command

Browse Source 
From 4f9c81a44945b02ff5f735f8ae21aafee8164d51 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Thu, 26 Mar 2020 10:52:20 -0400

git-svn-id: branches/wasm@46146 -
This commit is contained in:
nickysn 2020-08-03 13:01:42 +00:00
parent eff566cc32
commit 7e64176086
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/wasmbin/wasmbinwriter.pas
View File

@ -669,6 +669,7 @@ end;
procedure TBinWriter.WriteInstList(list: TWasmInstrList; ofsAddition: LongWord); procedure TBinWriter.WriteInstList(list: TWasmInstrList; ofsAddition: LongWord);
var var
i : integer; i : integer;
j : integer;
ci : TWasmInstr; ci : TWasmInstr;
idx : integer; idx : integer;
rt : Byte; rt : Byte;
@ -726,6 +727,13 @@ begin
WriteU32(dst, ci.operandNum); WriteU32(dst, ci.operandNum);
end; end;
ipJumpVec: begin
writeU32(dst, ci.vecTableCount);
for j:=0 to ci.vecTableCount-1 do
WriteU32(dst, ci.vecTable[j].idNum);
WriteU32(dst, ci.operandNum);
end;
ipResType: ipResType:
dst.WriteByte(byte(ci.operandNum)); dst.WriteByte(byte(ci.operandNum));
end; end;