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

[PATCH 167/188] binary writing for alignment

Browse Source 
From ae1bf5c39b7258fe244391400a65cfd84c1ef12f Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Fri, 27 Mar 2020 11:34:02 -0400

git-svn-id: branches/wasm@46163 -
This commit is contained in:
nickysn 2020-08-03 13:01:58 +00:00
parent 41d67dc630
commit 8030e5f439
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
utils/wasmbin/wasmbinwriter.pas
View File

@ -624,6 +624,21 @@ begin
if Result then WriteU32(dst, u32);
end;
procedure WriteAlign(dst: TStream; const operand: string);
var
m : Integer;
begin
m := 0;
if (length(operand)=1) then
case operand[1] of
'1': m := 0;
'2': m := 1;
'4': m := 2;
'8': m := 3;
end;
WriteU32(dst, m);
end;
function WriteI64Operand(dst: TStream; const operand: string): Boolean;
var
err : integer;
@ -675,6 +690,8 @@ var
ci : TWasmInstr;
idx : integer;
rt : Byte;
mm : Integer;
err : Integer;
begin
for i:=0 to list.Count-1 do begin
ci :=list[i];
@ -741,6 +758,13 @@ begin
ipZero:
dst.WriteByte(0);
ipOfsAlign: begin
// align
WriteAlign(dst, ci.alignText);
// offset
WriteI32Operand(dst, ci.offsetText);
end;
end;
end;
end;