+ added DebugWriteLn

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

rtl/wasi/system.pp

@@ -22,6 +22,7 @@ procedure fpc_lib_exit; compilerproc;
 {$endif FULL_RTL}
 
 procedure DebugWrite(const P: PChar);
+procedure DebugWriteLn(const P: PChar);
 procedure DebugWriteChar(Ch: Char);
 procedure DebugWriteHexDigit(d: Byte);
 procedure DebugWriteHexByte(b: Byte);
@@ -73,6 +74,12 @@ begin
   fd_write(1, @our_iov, 1, @our_nwritten);
 end;
 
+procedure DebugWriteLn(const P: PChar);
+begin
+  DebugWrite(P);
+  DebugWriteChar(#10);
+end;
+
 procedure DebugWriteChar(Ch: Char);
 var
   CharArr: array [0..1] of Char;