From 0fde736720c2b6e63e0f1c4b037d4b645fdfbc60 Mon Sep 17 00:00:00 2001
From: olle <olle@idefix.freepascal.org>
Date: Sun, 13 Nov 2005 20:56:40 +0000
Subject: [PATCH] fixed support for filenames with spaces in exec
git-svn-id: trunk@1738 -
---
rtl/macos/dos.pp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rtl/macos/dos.pp b/rtl/macos/dos.pp
index 537c2a31a2..b80f6e1b7e 100644
--- a/rtl/macos/dos.pp
+++ b/rtl/macos/dos.pp
@@ -299,7 +299,7 @@ var
Begin
{Make ToolServers working directory in sync with our working directory}
PathArgToFullPath(':', wdpath);
- wdpath:= 'Directory ' + wdpath;
+ wdpath:= 'Directory ''' + wdpath + '''';
err:= ExecuteToolserverScript(PChar(wdpath), LastDosExitCode);
{TODO Only change path when actually needed. But this requires some
change counter to be incremented each time wd is changed. }