hedgewars/uPhysFSLayer.pas
branchphysfslayer
changeset 8052 845b5ae03841
parent 8046 4d3415927d2c
child 8062 abbcdf73327a
--- a/hedgewars/uPhysFSLayer.pas	Sat Nov 17 22:45:30 2012 +0400
+++ b/hedgewars/uPhysFSLayer.pas	Sun Nov 18 00:37:23 2012 +0400
@@ -38,6 +38,8 @@
 function PHYSFS_close(f: PFSFile): LongBool; cdecl; external;
 function PHYSFS_exists(fname: PChar): LongBool; cdecl; external;
 
+procedure hedgewarsMountPackages(); cdecl; external;
+
 function rwopsOpenRead(fname: shortstring): PSDL_RWops;
 begin
     exit(PHYSFSRWOPS_openRead(Str2PChar(fname)));
@@ -103,6 +105,8 @@
     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, true);
     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
+
+    hedgewarsMountPackages;
 end;
 
 procedure freeModule;