From b80a650c7d2d1e16099b5845ecd0168bfba4c236 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 2 Jan 2021 07:27:13 +0000
Subject: [PATCH] + added DebugWriteChar

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

diff --git a/rtl/wasi/system.pp b/rtl/wasi/system.pp
index 61e74574ed..3d1ce9c58c 100644
--- a/rtl/wasi/system.pp
+++ b/rtl/wasi/system.pp
@@ -13,6 +13,7 @@ type
 
 procedure fpc_lib_exit; compilerproc;
 procedure DebugWrite(const P: PChar);
+procedure DebugWriteChar(Ch: Char);
 
 implementation
 
@@ -54,6 +55,15 @@ begin
   fd_write(1, @our_iov, 1, @our_nwritten);
 end;
 
+procedure DebugWriteChar(Ch: Char);
+var
+  CharArr: array [0..1] of Char;
+begin
+  CharArr[0] := Ch;
+  CharArr[1] := #0;
+  DebugWrite(@CharArr);
+end;
+
 procedure fpc_lib_exit; compilerproc;
 begin
 end;