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

+ added DebugWriteChar

Browse Source 
git-svn-id: branches/wasm@47952 -
This commit is contained in:
nickysn 2021-01-02 07:27:13 +00:00
parent 017b7903cf
commit b80a650c7d
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/wasi/system.pp
View File

@ -13,6 +13,7 @@ type
procedure fpc_lib_exit; compilerproc; procedure fpc_lib_exit; compilerproc;
procedure DebugWrite(const P: PChar); procedure DebugWrite(const P: PChar);
procedure DebugWriteChar(Ch: Char);
implementation implementation
@ -54,6 +55,15 @@ begin
fd_write(1, @our_iov, 1, @our_nwritten); fd_write(1, @our_iov, 1, @our_nwritten);
end; 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; procedure fpc_lib_exit; compilerproc;
begin begin
end; end;