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

* fixed parameter of DebugWriteHexLongWord

Browse Source 
git-svn-id: branches/wasm@48339 -
This commit is contained in:
nickysn 2021-01-23 05:00:21 +00:00
parent b35d3c5f3a
commit fb29456a0a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/wasi/system.pp
View File

@ -39,7 +39,7 @@ 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 DebugWriteHexWord(w: Word);
procedure DebugWriteHexLongWord(lw: Word); procedure DebugWriteHexLongWord(lw: LongWord);
implementation implementation
@ -325,7 +325,7 @@ begin
DebugWriteHexByte(Byte(w)); DebugWriteHexByte(Byte(w));
end; end;
procedure DebugWriteHexLongWord(lw: Word); procedure DebugWriteHexLongWord(lw: LongWord);
begin begin
DebugWriteHexWord(lw shr 16); DebugWriteHexWord(lw shr 16);
DebugWriteHexWord(Word(lw)); DebugWriteHexWord(Word(lw));