- More ugly ifdefs for the ifdef god
authorantonc27 <antonc27@mail.ru>
Tue, 03 May 2016 01:09:36 +0200
changeset 11789 e2de320aaf69
parent 11788 0327d20fa4a1
child 11790 ac93cfc17365
- More ugly ifdefs for the ifdef god
hedgewars/ArgParsers.pas
--- a/hedgewars/ArgParsers.pas	Tue May 03 00:59:38 2016 +0200
+++ b/hedgewars/ArgParsers.pas	Tue May 03 01:09:36 2016 +0200
@@ -23,9 +23,9 @@
 
 procedure GetParams;
 {$IFDEF HWLIBRARY}
-var operatingsystem_parameter_argc: LongInt = 0; {$IFNDEF PAS2C}cdecl; export;{$ENDIF}
-    operatingsystem_parameter_argv: pointer = nil; {$IFNDEF PAS2C}cdecl; export;{$ENDIF}
-    operatingsystem_parameter_envp: pointer = nil; {$IFNDEF PAS2C}cdecl; export;{$ENDIF}
+var operatingsystem_parameter_argc: LongInt = 0; {$IFNDEF PAS2C}{$IFNDEF IPHONEOS}cdecl;{$ENDIF} export;{$ENDIF}
+    operatingsystem_parameter_argv: pointer = nil; {$IFNDEF PAS2C}{$IFNDEF IPHONEOS}cdecl;{$ENDIF} export;{$ENDIF}
+    operatingsystem_parameter_envp: pointer = nil; {$IFNDEF PAS2C}{$IFNDEF IPHONEOS}cdecl;{$ENDIF} export;{$ENDIF}
 
 function ParamCount: LongInt;
 function ParamStr(i: LongInt): shortstring;