hedgewars/uPhysFSLayer.pas
changeset 10564 0cb20aa8877a
parent 10129 cd2a64a1f4aa
child 10606 8e95911cb86b
child 11087 99578075df24
equal deleted inserted replaced
10562:3388822b3914 10564:0cb20aa8877a
   177     hedgewarsMountPackages;
   177     hedgewarsMountPackages;
   178 
   178 
   179     // need access to teams and frontend configs (for bindings)
   179     // need access to teams and frontend configs (for bindings)
   180     pfsMountAtRoot(UserPathPrefix);
   180     pfsMountAtRoot(UserPathPrefix);
   181 
   181 
   182     {$IFNDEF PAS2C}
       
   183     if cTestLua then
   182     if cTestLua then
   184         begin
   183         begin
   185             pfsMountAtRoot(ExtractFileDir(cScriptName));
   184             pfsMountAtRoot(ansistring(ExtractFileDir(cScriptName)));
   186             cScriptName := ExtractFileName(cScriptName);
   185             cScriptName := ExtractFileName(cScriptName);
   187         end;
   186         end;
   188     {$ENDIF}
       
   189 end;
   187 end;
   190 
   188 
   191 procedure freeModule;
   189 procedure freeModule;
   192 begin
   190 begin
   193     PHYSFS_deinit;
   191     PHYSFS_deinit;