|
@@ -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;
|