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 157/188] writing binary instructions with zero byte

Browse Source 
From 46d2c72dd4d18face193b52397aa0d92215a9dd3 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Fri, 27 Mar 2020 09:12:59 -0400

git-svn-id: branches/wasm@46153 -
This commit is contained in:
nickysn 2020-08-03 13:01:49 +00:00
parent 260a3a3061
commit 3e8efcf249
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
utils/wasmbin/wasmbincode.pas
View File

@ -206,19 +206,20 @@ const
type
TInstParamType = (ipNone,
ipLeb, // label index or function index
ipOfsAlign, // memory arguments, ask for offset + align
ipi32, // signed Leb of maximum 4 bytes
ipi64, // signed Leb of maximum 8 bytes
ipf32, // float point single
ipf64, // float point double
ipJumpVec, // an array of jump labels used for br_table only
ipResType, // result type used for blocks, such as If, block or loop
ipCallType, // used for call_indirect
ipi32OrFunc // use for i32.const. Either a numeric OR function id is accepted.
// numeric is used as an actually value.
// function Id will be replaced with a reference number to the function
// and relocation information would be generated
ipLeb, // label index or function index
ipOfsAlign, // memory arguments, ask for offset + align
ipi32, // signed Leb of maximum 4 bytes
ipi64, // signed Leb of maximum 8 bytes
ipf32, // float point single
ipf64, // float point double
ipJumpVec, // an array of jump labels used for br_table only
ipResType, // result type used for blocks, such as If, block or loop
ipCallType, // used for call_indirect
ipi32OrFunc, // use for i32.const. Either a numeric OR function id is accepted.
// numeric is used as an actually value.
// function Id will be replaced with a reference number to the function
// and relocation information would be generated
ipZero // followed by a single byte zero
);
TInstFlag = record
valid : Boolean;
@ -290,8 +291,8 @@ const
,(valid: true; Param: ipOfsAlign) // 3C i64_store8
,(valid: true; Param: ipOfsAlign) // 3D i64_store16
,(valid: true; Param: ipOfsAlign) // 3E i64_store32
,(valid: true; Param: ipNone) // 3F memory_size
,(valid: true; Param: ipNone) // 40 memory_grow
,(valid: true; Param: ipZero) // 3F memory_size
,(valid: true; Param: ipZero) // 40 memory_grow
,(valid: true; Param: ipi32OrFunc)// 41 i32_const
,(valid: true; Param: ipi64) // 42 i64_const
,(valid: true; Param: ipf32) // 43 f32_const

3
utils/wasmbin/wasmbinwriter.pas
View File

@ -736,6 +736,9 @@ begin
ipResType:
dst.WriteByte(byte(ci.operandNum));
ipZero:
dst.WriteByte(0);
end;
end;
end;