# HG changeset patch
# User antonc27 <antonc27@mail.ru>
# Date 1440710309 -7200
# Node ID 4f4e97eb52fd5a69e1f4dff7aa7ff0461d393106
# Parent  05853b1df2a2741a2818928a833b6b6d29bddb05
- Load fonts on init if not 'mobile'

diff -r 05853b1df2a2 -r 4f4e97eb52fd hedgewars/uPhysFSLayer.pas
--- 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'));