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

* fix the problem with dirs containing asterisks

Browse Source
This commit is contained in:
pierre 2002-04-25 13:33:31 +00:00
parent b0948c6122
commit df5420c0ae
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/fpdebug.pas
View File

@ -650,6 +650,7 @@ end;
procedure TDebugController.SetDirectories;
var f,s: string;
i : longint;
Dir : SearchRec;
begin
f:=GetSourceDirectories;
repeat
@ -662,7 +663,24 @@ begin
system.delete(f,1,i);
end;
DefaultReplacements(s);
Command('dir '+GDBFileName(GetShortName(s)));
if (pos('*',s)=0) and ExistsDir(s) then
Command('dir '+GDBFileName(GetShortName(s)))
{ we should also handle the /* cases of -Fu option }
else if pos('*',s)>0 then
begin
Dos.FindFirst(s,Directory,Dir);
{ the '*' can only be in the last dir level }
s:=DirOf(s);
while Dos.DosError=0 do
begin
if ((Dir.attr and Directory) <> 0) and ExistsDir(s+Dir.Name) then
Command('dir '+GDBFileName(GetShortName(s+Dir.Name)));
Dos.FindNext(Dir);
end;
{$ifdef FPC}
Dos.FindClose(Dir);
{$endif def FPC}
end;
until i=0;
end;
@ -4066,7 +4084,10 @@ end.
{
$Log$
Revision 1.17 2002-04-17 11:11:54 pierre
Revision 1.18 2002-04-25 13:33:31 pierre
* fix the problem with dirs containing asterisks
Revision 1.17 2002/04/17 11:11:54 pierre
* avoid problems for ClassVariable in Watches window
Revision 1.16 2002/04/11 06:41:13 pierre