From 85267156f50e502d0eac2e2dc01b907e7409cdb8 Mon Sep 17 00:00:00 2001 From: nickysn Date: Mon, 3 Aug 2020 12:58:49 +0000 Subject: [PATCH] [PATCH 007/188] convenience functions for leb128 From b3886efbbefc9c1b569c55bfee80262c560fc25c Mon Sep 17 00:00:00 2001 From: Dmitry Boyarintsev Date: Wed, 25 Sep 2019 16:38:00 -0400 git-svn-id: branches/wasm@46003 - --- utils/wasmbin/lebutils.pas | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/utils/wasmbin/lebutils.pas b/utils/wasmbin/lebutils.pas index a0cf910634..25a3bacf8c 100644 --- a/utils/wasmbin/lebutils.pas +++ b/utils/wasmbin/lebutils.pas @@ -10,6 +10,9 @@ function ReadS(src: TStream; bits: Integer): Int64; procedure WriteU(src: TStream; vl: UInt64; bits: integer; fixedSize: Boolean = false); 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 @@ -104,4 +107,19 @@ begin 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.