Browse Source

+ some system unit debug output

git-svn-id: branches/wasm@48287 -
nickysn 4 years ago
parent
commit
83f3d68537
1 changed files with 4 additions and 0 deletions
  1. 4 0
      rtl/wasi/system.pp

+ 4 - 0
rtl/wasi/system.pp

@@ -83,6 +83,7 @@ End;
 
 procedure System_exit;
 begin
+  DebugWriteLn('System_exit');
 End;
 
 Function ParamCount: Longint;
@@ -160,4 +161,7 @@ begin
   DebugWriteHexDigit(b and 15);
 end;
 
+begin
+  DebugWriteLn('System unit initialization start');
+  DebugWriteLn('System unit initialization end');
 end.