--- a/hedgewars/uPhysFSLayer.pas	Thu Sep 10 04:59:02 2015 +0200
+++ b/hedgewars/uPhysFSLayer.pas	Thu Sep 10 18:22:52 2015 +0200
@@ -151,7 +151,9 @@
 procedure initModule;
 var i: LongInt;
     cPhysfsId: shortstring;
+{$IFNDEF MOBILE}
     fp: PChar;
+{$ENDIF MOBILE}
 begin
 {$IFDEF HWLIBRARY}
     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
@@ -163,6 +165,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
@@ -170,6 +173,7 @@
             if fp <> nil then
                 pfsMount(ansistring(fp), PChar('/Fonts'));
         end;
+{$ENDIF MOBILE}
 
     pfsMountAtRoot(PathPrefix);
     pfsMountAtRoot(UserPathPrefix + ansistring('/Data'));