paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 19:57:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added DebugWriteHexDigit

Browse Source 
git-svn-id: branches/wasm@47953 -
This commit is contained in:
nickysn 2021-01-02 07:28:56 +00:00
parent b80a650c7d
commit 7221e9fe7f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/wasi/system.pp
View File

@ -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;