Add workaround to force string concatenation in pas2c
authorkoda
Sat, 23 Apr 2016 16:57:20 -0400
changeset 11688 17d102f9515d
parent 11687 2c21bc80c95d
child 11689 cfc3971de8ac
Add workaround to force string concatenation in pas2c
hedgewars/uPhysFSLayer.pas
--- a/hedgewars/uPhysFSLayer.pas	Sat Apr 23 16:32:18 2016 -0400
+++ b/hedgewars/uPhysFSLayer.pas	Sat Apr 23 16:57:20 2016 -0400
@@ -198,7 +198,7 @@
 begin
 {$IFDEF HWLIBRARY}
     //TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
-    cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
+    cPhysfsId:= shortstring(GetCurrentDir()) + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
 {$ELSE}
     cPhysfsId:= ParamStr(0);
 {$ENDIF}