--- a/hedgewars/uPhysFSLayer.pas	Tue Sep 08 19:20:58 2015 +0300
+++ b/hedgewars/uPhysFSLayer.pas	Mon Nov 16 22:57:24 2015 +0300
@@ -171,7 +171,9 @@
 procedure initModule(localPrefix, userPrefix: PChar);
 var i: LongInt;
     cPhysfsId: shortstring;
+{$IFNDEF MOBILE}
     fp: PChar;
+{$ENDIF}
 begin
     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
     cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
@@ -179,6 +181,7 @@
     i:= PHYSFS_init(Str2PChar(cPhysfsId));
     //AddFileLog('[PhysFS] init: ' + inttostr(i));
 
+{$IFNDEF MOBILE}
     // mount system fonts paths first
     for i:= low(cFontsPaths) to high(cFontsPaths) do
         begin
@@ -186,6 +189,7 @@
             if fp <> nil then
                 pfsMount(ansistring(fp), PChar('/Fonts'));
         end;
+{$ENDIF}
 
     pfsMountAtRoot(localPrefix);
     pfsMountAtRoot(userPrefix + ansistring('/Data'));