hedgewars/uPhysFSLayer.pas
changeset 10080 ac51bcb534ef
parent 10078 8572d1f8b2f0
child 10101 781f0c19e59b
equal deleted inserted replaced
10079:c88e38a0f478 10080:ac51bcb534ef
   184     hedgewarsMountPackages;
   184     hedgewarsMountPackages;
   185 
   185 
   186     // need access to teams and frontend configs (for bindings)
   186     // need access to teams and frontend configs (for bindings)
   187     pfsMountAtRoot(UserPathPrefix);
   187     pfsMountAtRoot(UserPathPrefix);
   188 
   188 
       
   189     {$IFNDEF PAS2C}
   189     if cTestLua then
   190     if cTestLua then
   190         begin
   191         begin
   191             pfsMountAtRoot(ExtractFileDir(cScriptName));
   192             pfsMountAtRoot(ExtractFileDir(cScriptName));
   192             cScriptName := ExtractFileName(cScriptName);
   193             cScriptName := ExtractFileName(cScriptName);
   193         end;
   194         end;
       
   195     {$ENDIF}
   194 end;
   196 end;
   195 
   197 
   196 procedure freeModule;
   198 procedure freeModule;
   197 begin
   199 begin
   198     PHYSFS_deinit;
   200     PHYSFS_deinit;