Browse Source

+ debug output in the WASM directory functions

git-svn-id: branches/wasm@48345 -
nickysn 4 năm trước cách đây
mục cha
commit
6350401d4c
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  1. 4 0
      rtl/wasi/sysdir.inc

+ 4 - 0
rtl/wasi/sysdir.inc

@@ -20,16 +20,20 @@
 
 
 procedure Do_MkDir(s: rawbytestring);
 procedure Do_MkDir(s: rawbytestring);
 begin
 begin
+  DebugWriteLn('Do_MkDir');
 end;
 end;
 
 
 procedure Do_RmDir(s: rawbytestring);
 procedure Do_RmDir(s: rawbytestring);
 begin
 begin
+  DebugWriteLn('Do_RmDir');
 end;
 end;
 
 
 procedure do_ChDir(s: rawbytestring);
 procedure do_ChDir(s: rawbytestring);
 begin
 begin
+  DebugWriteLn('do_ChDir');
 end;
 end;
 
 
 procedure do_getdir(drivenr : byte;var dir : rawbytestring);
 procedure do_getdir(drivenr : byte;var dir : rawbytestring);
 begin
 begin
+  DebugWriteLn('do_getdir');
 end;
 end;