|
@@ -543,9 +543,11 @@ begin
|
|
{$endif Windows}
|
|
{$endif Windows}
|
|
st[i]:='/';
|
|
st[i]:='/';
|
|
{$ifdef Windows}
|
|
{$ifdef Windows}
|
|
|
|
+ {$ifdef USE_MINGW_GDB} // see mantis 11968 because of mingw build. MvdV
|
|
{ for Windows we should convert e:\ into //e/ PM }
|
|
{ for Windows we should convert e:\ into //e/ PM }
|
|
if (length(st)>2) and (st[2]=':') and (st[3]='/') then
|
|
if (length(st)>2) and (st[2]=':') and (st[3]='/') then
|
|
st:=CygDrivePrefix+'/'+st[1]+copy(st,3,length(st));
|
|
st:=CygDrivePrefix+'/'+st[1]+copy(st,3,length(st));
|
|
|
|
+ {$endif}
|
|
{ support spaces in the name by escaping them but without changing '\ ' into '\\ ' }
|
|
{ support spaces in the name by escaping them but without changing '\ ' into '\\ ' }
|
|
for i:=Length(st) downto 1 do
|
|
for i:=Length(st) downto 1 do
|
|
if (st[i]=' ') and ((i=1) or (st[i-1]<>'\')) then
|
|
if (st[i]=' ') and ((i=1) or (st[i-1]<>'\')) then
|