hedgewars/uPhysFSLayer.pas
branchwebgl
changeset 9521 8054d9d775fd
parent 9264 21df1a0ec9ed
parent 9466 8b48c27201af
child 9950 2759212a27de
--- a/hedgewars/uPhysFSLayer.pas	Fri Oct 11 11:55:31 2013 +0200
+++ b/hedgewars/uPhysFSLayer.pas	Fri Oct 11 17:43:13 2013 +0200
@@ -139,7 +139,7 @@
 begin
 {$IFDEF HWLIBRARY}
     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
-    cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF} ' hedgewars';
+    cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
 {$ELSE}
     cPhysfsId:= ParamStr(0);
 {$ENDIF}
@@ -149,8 +149,8 @@
 
     i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, false);
     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
-    i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, false);
-    AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
+    i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/'), '/', false);
+    AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/: ' + inttostr(i));
 
     hedgewarsMountPackages;
 end;