paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* preparation for mingw debug info, Mantis 11968 as researched by Mario Mahardhika

Browse Source 
git-svn-id: trunk@13131 -
This commit is contained in:
marco 2009-05-10 19:54:43 +00:00
parent 448b621ff4
commit 6eeab240ba
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/gdbint/src/gdbcon.pp
View File

@ -130,9 +130,11 @@ begin
{$endif win32} {$endif win32}
s[i]:='/'; s[i]:='/';
{$ifdef win32} {$ifdef win32}
{$ifndef USE_MINGW_GDB}
{ for win32 we should convert e:\ into //e/ PM } { for win32 we should convert e:\ into //e/ PM }
if (length(s)>2) and (s[2]=':') and (s[3]='/') then if (length(s)>2) and (s[2]=':') and (s[3]='/') then
s:=CygDrivePrefix+'/'+s[1]+copy(s,3,length(s)); s:=CygDrivePrefix+'/'+s[1]+copy(s,3,length(s));
{$endif USE_MINGW_GDB}
{$endif win32} {$endif win32}
end; end;