Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add workaround to force string concatenation in pas2c
authorkoda
Sat, 23 Apr 2016 16:57:20 -0400
changeset 11683 17d102f9515d
parent 11682 2c21bc80c95d
child 11684 cfc3971de8ac
Add workaround to force string concatenation in pas2c
hedgewars/uPhysFSLayer.pas file | annotate | diff | comparison | revisions 
--- 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}
hedgewars