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

+ added DebugWriteHexWord and DebugWriteHexLongWord

Browse Source 
git-svn-id: branches/wasm@48296 -
This commit is contained in:
nickysn 2021-01-22 00:03:55 +00:00
parent 61ba4869ae
commit bc0d510ee2
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/wasi/system.pp
View File

@ -53,6 +53,8 @@ procedure DebugWriteLn(const P: PChar);
procedure DebugWriteChar(Ch: Char); procedure DebugWriteChar(Ch: Char);
procedure DebugWriteHexDigit(d: Byte); procedure DebugWriteHexDigit(d: Byte);
procedure DebugWriteHexByte(b: Byte); procedure DebugWriteHexByte(b: Byte);
procedure DebugWriteHexWord(w: Word);
procedure DebugWriteHexLongWord(lw: Word);
implementation implementation
@ -168,6 +170,18 @@ begin
DebugWriteHexDigit(b and 15); DebugWriteHexDigit(b and 15);
end; end;
procedure DebugWriteHexWord(w: Word);
begin
DebugWriteHexByte(w shr 8);
DebugWriteHexByte(Byte(w));
end;
procedure DebugWriteHexLongWord(lw: Word);
begin
DebugWriteHexWord(lw shr 16);
DebugWriteHexWord(Word(lw));
end;
begin begin
DebugWriteLn('System unit initialization start'); DebugWriteLn('System unit initialization start');
{ To be set if this is a GUI or console application } { To be set if this is a GUI or console application }