hedgewars/ArgParsers.pas
branchqmlfrontend
changeset 11704 83c40c1eb0e7
parent 11549 b69f5f22a3ba
parent 11685 5ce2cf06b531
child 11833 a69124eb7ce7
--- a/hedgewars/ArgParsers.pas	Tue Mar 29 22:36:59 2016 +0300
+++ b/hedgewars/ArgParsers.pas	Mon Apr 25 22:10:06 2016 +0300
@@ -22,7 +22,6 @@
 interface
 
 procedure GetParams;
-{$IFDEF HWLIBRARY}
 {$IFNDEF BSD}
 var operatingsystem_parameter_argc: NativeInt; external;
     operatingsystem_parameter_argv: pointer; external;
@@ -32,16 +31,14 @@
     operatingsystem_parameter_argv: pointer; export;
     operatingsystem_parameter_envp: pointer; export;
 {$ENDIF}
+
 function ParamCount: LongInt;
 function ParamStr(i: LongInt): shortstring;
-{$ENDIF}
 
 implementation
 uses uVariables, uTypes, uUtils, uSound, uConsts;
 var isInternal: Boolean;
 
-{$IFDEF HWLIBRARY}
-
 type PCharArray = array[0..255] of PChar;
      PPCharArray = ^PCharArray;
 
@@ -55,8 +52,6 @@
     ParamStr:= StrPas(PPCharArray(operatingsystem_parameter_argv)^[i])
 end;
 
-{$ENDIF}
-
 procedure GciEasterEgg;
 begin
     WriteLn(stdout, '                                                                ');