# HG changeset patch
# User koda
# Date 1461445040 14400
# Node ID 17d102f9515dee0dc218c9367565cb512c77bf24
# Parent  2c21bc80c95d2eb9dee4c0a7a7fe6fe4410d1d1e
Add workaround to force string concatenation in pas2c

diff -r 2c21bc80c95d -r 17d102f9515d 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}