Просмотр исходного кода

* put expansion of pathname for debugging purposes under ifdef to ease mingw use.

git-svn-id: trunk@11928 -
marco 17 лет назад
Родитель
Сommit
87eaa3c12b
1 измененных файлов с 2 добавлено и 0 удалено
  1. 2 0
      ide/fpdebug.pas

+ 2 - 0
ide/fpdebug.pas

@@ -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