From 76a3014e3a6b370a4e4e4bedc61a99e8bff40f4e Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 2 Jan 2021 07:30:21 +0000
Subject: [PATCH] + added DebugWriteHexByte

git-svn-id: branches/wasm@47954 -
---
 rtl/wasi/system.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/rtl/wasi/system.pp b/rtl/wasi/system.pp
index 3e1ccdba24..6edca3f5e0 100644
--- a/rtl/wasi/system.pp
+++ b/rtl/wasi/system.pp
@@ -15,6 +15,7 @@ procedure fpc_lib_exit; compilerproc;
 procedure DebugWrite(const P: PChar);
 procedure DebugWriteChar(Ch: Char);
 procedure DebugWriteHexDigit(d: Byte);
+procedure DebugWriteHexByte(b: Byte);
 
 implementation
 
@@ -72,6 +73,12 @@ begin
   DebugWriteChar(HexDigits[d]);
 end;
 
+procedure DebugWriteHexByte(b: Byte);
+begin
+  DebugWriteHexDigit(b shr 4);
+  DebugWriteHexDigit(b and 15);
+end;
+
 procedure fpc_lib_exit; compilerproc;
 begin
 end;