paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 03:29:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Use using_cygwin_gdb boolean, to convert path

Browse Source 
git-svn-id: trunk@29730 -
This commit is contained in:
pierre 2015-02-16 20:50:47 +00:00
parent 6b1c38537b
commit d0cfebc351
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/fpdebug.pas
View File

@ -565,7 +565,11 @@ begin
{$ifdef Windows} {$ifdef Windows}
{$ifndef USE_MINGW_GDB} // see mantis 11968 because of mingw build. MvdV {$ifndef 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
{$ifdef GDBMI}
using_cygwin_gdb and
{$endif}
(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} {$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 '\\ ' }