Browse Source

+ added argc and argv (not yet initialized), so that unit objpas compiles

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

+ 4 - 0
rtl/wasi/system.pp

@@ -33,6 +33,10 @@ const
   sLineBreak = LineEnding;
   sLineBreak = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
 
 
+var
+  argc: longint;
+  argv: PPChar;
+
 procedure DebugWrite(const P: PChar);
 procedure DebugWrite(const P: PChar);
 procedure DebugWriteLn(const P: PChar);
 procedure DebugWriteLn(const P: PChar);
 procedure DebugWriteChar(Ch: Char);
 procedure DebugWriteChar(Ch: Char);