Browse Source

* fixed parameter of DebugWriteHexLongWord

git-svn-id: branches/wasm@48339 -
nickysn 4 years ago
parent
commit
fb29456a0a
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/wasi/system.pp

+ 2 - 2
rtl/wasi/system.pp

@@ -39,7 +39,7 @@ procedure DebugWriteChar(Ch: Char);
 procedure DebugWriteHexDigit(d: Byte);
 procedure DebugWriteHexByte(b: Byte);
 procedure DebugWriteHexWord(w: Word);
-procedure DebugWriteHexLongWord(lw: Word);
+procedure DebugWriteHexLongWord(lw: LongWord);
 
 implementation
 
@@ -325,7 +325,7 @@ begin
   DebugWriteHexByte(Byte(w));
 end;
 
-procedure DebugWriteHexLongWord(lw: Word);
+procedure DebugWriteHexLongWord(lw: LongWord);
 begin
   DebugWriteHexWord(lw shr 16);
   DebugWriteHexWord(Word(lw));