hedgewars/uPhysFSLayer.pas
changeset 10564 0cb20aa8877a
parent 10129 cd2a64a1f4aa
child 10606 8e95911cb86b
child 11087 99578075df24
--- a/hedgewars/uPhysFSLayer.pas	Sat Nov 29 03:13:06 2014 +0100
+++ b/hedgewars/uPhysFSLayer.pas	Sat Nov 29 05:15:27 2014 +0100
@@ -179,13 +179,11 @@
     // need access to teams and frontend configs (for bindings)
     pfsMountAtRoot(UserPathPrefix);
 
-    {$IFNDEF PAS2C}
     if cTestLua then
         begin
-            pfsMountAtRoot(ExtractFileDir(cScriptName));
+            pfsMountAtRoot(ansistring(ExtractFileDir(cScriptName)));
             cScriptName := ExtractFileName(cScriptName);
         end;
-    {$ENDIF}
 end;
 
 procedure freeModule;