+ added DebugWriteHexWord and DebugWriteHexLongWord

git-svn-id: branches/wasm@48296 -

rtl/wasi/system.pp

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