testing ftw
authorkoda
Thu, 25 Mar 2010 23:02:55 +0000
changeset 3064 7458ec3666c3
parent 3063 0092dc37fbd6
child 3065 4afa5e3e27e4
testing ftw
hedgewars/hwengine.pas
--- a/hedgewars/hwengine.pas	Thu Mar 25 23:01:50 2010 +0000
+++ b/hedgewars/hwengine.pas	Thu Mar 25 23:02:55 2010 +0000
@@ -67,10 +67,10 @@
 //       SinTable.inc
 //       proto.inc
 
+var isTerminated: boolean = false;
+    alsoShutdownFrontend: boolean = false;
 {$IFDEF HWLIBRARY}
 type arrayofpchar = array[0..7] of PChar;
-var isTerminated: boolean = false;
-    alsoShutdownFrontend: boolean = false;
 
 procedure initEverything;
 procedure freeEverything;
@@ -223,7 +223,7 @@
 {$IFDEF HWLIBRARY}
 procedure Game(gameArgs: arrayofpchar); cdecl; export;
 {$ELSE}
-procedure Game;cdecl; export;
+procedure Game;
 {$ENDIF}
 var p: TPathType;
     s: shortstring;