hedgewars/ArgParsers.pas
changeset 11680 5ce2cf06b531
parent 11515 4dd77731453b
child 11699 83c40c1eb0e7
child 11789 e2de320aaf69
--- a/hedgewars/ArgParsers.pas	Sat Apr 23 13:52:30 2016 -0400
+++ b/hedgewars/ArgParsers.pas	Sat Apr 23 16:17:15 2016 -0400
@@ -23,9 +23,9 @@
 
 procedure GetParams;
 {$IFDEF HWLIBRARY}
-var operatingsystem_parameter_argc: LongInt = 0; export;
-    operatingsystem_parameter_argv: pointer = nil; export;
-    operatingsystem_parameter_envp: pointer = nil; export;
+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}
 
 function ParamCount: LongInt;
 function ParamStr(i: LongInt): shortstring;