--- a/hedgewars/uPhysFSLayer.pas	Tue Aug 18 01:11:17 2015 +0200
+++ b/hedgewars/uPhysFSLayer.pas	Thu Aug 27 23:18:29 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
@@ -162,7 +164,8 @@
 
     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,7 +173,8 @@
             if fp <> nil then
                 pfsMount(ansistring(fp), PChar('/Fonts'));
         end;
-*)
+{$ENDIF MOBILE}
+
     pfsMountAtRoot(PathPrefix);
     pfsMountAtRoot(UserPathPrefix + ansistring('/Data'));