paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 15:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed support for filenames with spaces in exec

Browse Source 
git-svn-id: trunk@1738 -
This commit is contained in:
olle 2005-11-13 20:56:40 +00:00
parent f29fde8978
commit 0fde736720
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/macos/dos.pp
View File

@ -299,7 +299,7 @@ var
Begin Begin
{Make ToolServers working directory in sync with our working directory} {Make ToolServers working directory in sync with our working directory}
PathArgToFullPath(':', wdpath); PathArgToFullPath(':', wdpath);
wdpath:= 'Directory ' + wdpath; wdpath:= 'Directory ''' + wdpath + '''';
err:= ExecuteToolserverScript(PChar(wdpath), LastDosExitCode); err:= ExecuteToolserverScript(PChar(wdpath), LastDosExitCode);
{TODO Only change path when actually needed. But this requires some {TODO Only change path when actually needed. But this requires some
change counter to be incremented each time wd is changed. } change counter to be incremented each time wd is changed. }