hedgewars/uPhysFSLayer.pas
branchphysfslayer
changeset 8046 4d3415927d2c
parent 8034 fc032c0f7b23
child 8052 845b5ae03841
equal deleted inserted replaced
8043:da083f8d95e6 8046:4d3415927d2c
   100     AddFileLog('[PhysFS] init: ' + inttostr(i));
   100     AddFileLog('[PhysFS] init: ' + inttostr(i));
   101 
   101 
   102     i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, true);
   102     i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, true);
   103     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
   103     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
   104     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, true);
   104     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, true);
   105     AddFileLog('[PhysFS] mount ' + UserPathPrefix + ': ' + inttostr(i));
   105     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
   106 end;
   106 end;
   107 
   107 
   108 procedure freeModule;
   108 procedure freeModule;
   109 begin
   109 begin
   110     PHYSFS_deinit;
   110     PHYSFS_deinit;