hedgewars/ArgParsers.pas
branchqmlfrontend
changeset 12858 0c6fb706f747
parent 11828 a69124eb7ce7
--- a/hedgewars/ArgParsers.pas	Fri Dec 22 23:59:03 2017 +0100
+++ b/hedgewars/ArgParsers.pas	Sun Dec 24 00:44:16 2017 +0100
@@ -322,14 +322,14 @@
 var tmpInt: LongInt;
 begin
 
-    paramIndex:= {$IFDEF HWLIBRARY}0{$ELSE}1{$ENDIF};
-    paramTotal:= ParamCount; //-1 because pascal enumeration is inclusive
+    paramIndex:= 0;
+    paramTotal:= ParamCount;
     
     WriteLn(stdout, 'total parameters: ' + inttostr(paramTotal));
     tmpInt:= 0;
     while (tmpInt <= paramTotal) do
         begin
-        WriteLn(stdout, inttostr(tmpInt) + ': ' + {$IFDEF HWLIBRARY}argv[tmpInt]{$ELSE}paramCount(tmpInt){$ENDIF});
+        WriteLn(stdout, inttostr(tmpInt) + ': ' + argv[tmpInt]);
         inc(tmpInt);
         end;