paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 10:10:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added DebugWriteHexByte

Browse Source 
git-svn-id: branches/wasm@47954 -
This commit is contained in:
nickysn 2021-01-02 07:30:21 +00:00
parent 7221e9fe7f
commit 76a3014e3a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/wasi/system.pp
View File

@ -15,6 +15,7 @@ procedure fpc_lib_exit; compilerproc;
procedure DebugWrite(const P: PChar); procedure DebugWrite(const P: PChar);
procedure DebugWriteChar(Ch: Char); procedure DebugWriteChar(Ch: Char);
procedure DebugWriteHexDigit(d: Byte); procedure DebugWriteHexDigit(d: Byte);
procedure DebugWriteHexByte(b: Byte);
implementation implementation
@ -72,6 +73,12 @@ begin
DebugWriteChar(HexDigits[d]); DebugWriteChar(HexDigits[d]);
end; end;
procedure DebugWriteHexByte(b: Byte);
begin
DebugWriteHexDigit(b shr 4);
DebugWriteHexDigit(b and 15);
end;
procedure fpc_lib_exit; compilerproc; procedure fpc_lib_exit; compilerproc;
begin begin
end; end;