paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:50:42 +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; procedure TDebugController.SetDirectories;
var f,s: string; var f,s: string;
i : longint; i : longint;
Dir : SearchRec;
begin begin
f:=GetSourceDirectories; f:=GetSourceDirectories;
repeat repeat
@ -662,7 +663,24 @@ begin
system.delete(f,1,i); system.delete(f,1,i);
end; end;
DefaultReplacements(s); 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; until i=0;
end; end;
@ -4066,7 +4084,10 @@ end.
{ {
$Log$ $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 * avoid problems for ClassVariable in Watches window
Revision 1.16 2002/04/11 06:41:13 pierre Revision 1.16 2002/04/11 06:41:13 pierre