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

[PATCH 007/188] convenience functions for leb128

Browse Source 
From b3886efbbefc9c1b569c55bfee80262c560fc25c Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Wed, 25 Sep 2019 16:38:00 -0400

git-svn-id: branches/wasm@46003 -
This commit is contained in:
nickysn 2020-08-03 12:58:49 +00:00
parent a9755e1c28
commit 85267156f5
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
utils/wasmbin/lebutils.pas
View File

@ -10,6 +10,9 @@ function ReadS(src: TStream; bits: Integer): Int64;
procedure WriteU(src: TStream; vl: UInt64; bits: integer; fixedSize: Boolean = false); procedure WriteU(src: TStream; vl: UInt64; bits: integer; fixedSize: Boolean = false);
procedure WriteS(src: TStream; vl: Int64; bits: integer); procedure WriteS(src: TStream; vl: Int64; bits: integer);
procedure WriteU32(src: TStream; vl: UInt32);
procedure WriteU16(src: TStream; vl: UInt16);
procedure WriteU8(src: TStream; vl: UInt8);
implementation implementation
@ -104,4 +107,19 @@ begin
end; end;
end; end;
procedure WriteU32(src: TStream; vl: UInt32);
begin
WriteU(src, vl, sizeof(vl)*8);
end;
procedure WriteU16(src: TStream; vl: UInt16);
begin
WriteU(src, vl, sizeof(vl)*8);
end;
procedure WriteU8(src: TStream; vl: UInt8);
begin
WriteU(src, vl, sizeof(vl)*8);
end;
end. end.