pas2c doesn't like {$ENDIF} with argument
authorsheepluva
Fri, 11 Sep 2015 07:39:01 +0200
changeset 11155 a10143c3d87d
parent 11154 1d08386a7c0f
child 11156 efea685933ae
pas2c doesn't like {$ENDIF} with argument
hedgewars/hwengine.pas
hedgewars/uPhysFSLayer.pas
--- a/hedgewars/hwengine.pas	Fri Sep 11 05:54:17 2015 +0200
+++ b/hedgewars/hwengine.pas	Fri Sep 11 07:39:01 2015 +0200
@@ -545,7 +545,7 @@
 var Preview: TPreview;
 {$ELSE}
 var Preview: TPreviewAlpha;
-{$ENDIF MOBILE}
+{$ENDIF}
 begin
     initEverything(false);
 
@@ -558,7 +558,7 @@
     GenPreview(Preview);
 {$ELSE}
     GenPreviewAlpha(Preview);
-{$ENDIF MOBILE}
+{$ENDIF}
     WriteLnToConsole('Sending preview...');
     SendIPCRaw(@Preview, sizeof(Preview));
     SendIPCRaw(@MaxHedgehogs, sizeof(byte));
--- a/hedgewars/uPhysFSLayer.pas	Fri Sep 11 05:54:17 2015 +0200
+++ b/hedgewars/uPhysFSLayer.pas	Fri Sep 11 07:39:01 2015 +0200
@@ -153,7 +153,7 @@
     cPhysfsId: shortstring;
 {$IFNDEF MOBILE}
     fp: PChar;
-{$ENDIF MOBILE}
+{$ENDIF}
 begin
 {$IFDEF HWLIBRARY}
     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
@@ -173,7 +173,7 @@
             if fp <> nil then
                 pfsMount(ansistring(fp), PChar('/Fonts'));
         end;
-{$ENDIF MOBILE}
+{$ENDIF}
 
     pfsMountAtRoot(PathPrefix);
     pfsMountAtRoot(UserPathPrefix + ansistring('/Data'));