hedgewars/ArgParsers.pas
branchqmlfrontend
changeset 11458 8318e841648f
parent 11457 55a8322e307d
child 11544 b69f5f22a3ba
--- a/hedgewars/ArgParsers.pas	Tue Dec 15 20:38:51 2015 +0300
+++ b/hedgewars/ArgParsers.pas	Wed Dec 16 00:20:56 2015 +0300
@@ -23,9 +23,15 @@
 
 procedure GetParams;
 {$IFDEF HWLIBRARY}
+{$IFNDEF BSD}
 var operatingsystem_parameter_argc: NativeInt; external;
     operatingsystem_parameter_argv: pointer; external;
     operatingsystem_parameter_envp: pointer; external;
+{$ELSE}
+var operatingsystem_parameter_argc: LongInt; export;
+    operatingsystem_parameter_argv: pointer; export;
+    operatingsystem_parameter_envp: pointer; export;
+{$ENDIF}
 function ParamCount: LongInt;
 function ParamStr(i: LongInt): shortstring;
 {$ENDIF}