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

+ Add missing windebug unit dependency for windows

Browse Source 
+ Use using_cygwin_gdb boolean, to convert path

git-svn-id: trunk@29729 -
This commit is contained in:
pierre 2015-02-16 20:50:15 +00:00
parent 95f0791b97
commit 6b1c38537b
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/gdbmicon.pas
View File

@ -57,23 +57,25 @@ type
implementation implementation
{$ifdef Windows}
uses
Windebug;
{$endif Windows}
procedure UnixDir(var s : string); procedure UnixDir(var s : string);
var i : longint; var i : longint;
begin begin
for i:=1 to length(s) do for i:=1 to length(s) do
if s[i]='\' then if s[i]='\' then
{$ifdef win32} {$ifdef windows}
{ Don't touch at '\ ' used to escapes spaces in windows file names PM } { Don't touch at '\ ' used to escapes spaces in windows file names PM }
if (i=length(s)) or (s[i+1]<>' ') then if (i=length(s)) or (s[i+1]<>' ') then
{$endif win32} {$endif windows}
s[i]:='/'; s[i]:='/';
{$ifdef win32} {$ifdef windows}
{$ifndef USE_MINGW_GDB} { if we are using cygwin, we need to convert e:\ into /cygdriveprefix/e/ PM }
{ for win32 we should convert e:\ into //e/ PM } if using_cygwin_gdb and (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 windows}
{$endif win32}
end; end;
constructor TGDBController.Init; constructor TGDBController.Init;