+ added DebugWriteHexDigit

git-svn-id: branches/wasm@47953 -

rtl/wasi/system.pp

@@ -14,6 +14,7 @@ type
 procedure fpc_lib_exit; compilerproc;
 procedure DebugWrite(const P: PChar);
 procedure DebugWriteChar(Ch: Char);
+procedure DebugWriteHexDigit(d: Byte);
 
 implementation
 
@@ -64,6 +65,13 @@ begin
   DebugWrite(@CharArr);
 end;
 
+procedure DebugWriteHexDigit(d: Byte);
+const
+  HexDigits: array [0..15] of Char = '0123456789ABCDEF';
+begin
+  DebugWriteChar(HexDigits[d]);
+end;
+
 procedure fpc_lib_exit; compilerproc;
 begin
 end;