hedgewars/hwengine.pas
changeset 2803 1f446fc5c8ec
parent 2800 f286d91157b8
child 2825 db7c35a0e9c1
--- a/hedgewars/hwengine.pas	Fri Feb 12 18:40:14 2010 +0000
+++ b/hedgewars/hwengine.pas	Sat Feb 13 01:56:35 2010 +0000
@@ -22,7 +22,7 @@
 {$R hwengine.rc}
 {$ENDIF}
 
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
 unit hwengine;
 interface
 {$ELSE}
@@ -69,7 +69,7 @@
 //       SinTable.inc
 //       proto.inc
 
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
 type arrayofpchar = array[0..5] of PChar;
 procedure DoTimer(Lag: LongInt);
 procedure OnDestroy;
@@ -224,7 +224,7 @@
 end;
 
 ///////////////
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
 procedure Game(gameArgs: arrayofpchar); cdecl; export;
 {$ELSE}
 procedure Game;cdecl; export;
@@ -232,7 +232,7 @@
 var	p: TPathType;
 	s: shortstring;
 begin
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
 	initEverything();
 	Randomize();
 
@@ -386,7 +386,8 @@
 	free_uConsts();		//stub
 	free_uScript();
 end;
-{$IFNDEF IPHONEOS}
+
+{$IFNDEF HWLIBRARY}
 /////////////////////////
 procedure GenLandPreview;
 var Preview: TPreview;