paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-25 21:40:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@11928 -
This commit is contained in:
marco 2008-10-18 18:28:56 +00:00
parent 7ecb64fc15
commit 87eaa3c12b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpdebug.pas
View File

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