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

* fix some win32 GDB filename problems

Browse Source
This commit is contained in:
pierre 2002-04-03 06:18:30 +00:00
parent adb8b9eabf
commit d2869c34dd
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/fpdebug.pas
View File

@ -389,7 +389,7 @@ uses
Unix, Unix,
{$endif} {$endif}
{$endif Unix} {$endif Unix}
Systems, Systems,Globals,
FPString,FPVars,FPUtils,FPConst,FPSwitch, FPString,FPVars,FPUtils,FPConst,FPSwitch,
FPIntf,FPCompil,FPIde,FPHelp, FPIntf,FPCompil,FPIde,FPHelp,
Validate,WEditor,WUtils; Validate,WEditor,WUtils;
@ -611,7 +611,7 @@ end;
procedure TDebugController.SetExe(const exefn:string); procedure TDebugController.SetExe(const exefn:string);
var f : string; var f : string;
begin begin
f := GetShortName(GDBFileName(exefn)); f := GDBFileName(GetShortName(exefn));
if (f<>'') and ExistsFile(exefn) then if (f<>'') and ExistsFile(exefn) then
begin begin
LoadFile(f); LoadFile(f);
@ -659,7 +659,8 @@ begin
s:=copy(f,1,i-1); s:=copy(f,1,i-1);
system.delete(f,1,i); system.delete(f,1,i);
end; end;
Command('dir '+s); DefaultReplacements(s);
Command('dir '+GDBFileName(GetShortName(s)));
until i=0; until i=0;
end; end;
@ -4056,7 +4057,10 @@ end.
{ {
$Log$ $Log$
Revision 1.14 2002-04-02 15:09:38 pierre Revision 1.15 2002-04-03 06:18:30 pierre
* fix some win32 GDB filename problems
Revision 1.14 2002/04/02 15:09:38 pierre
* fixed wrong exit without unlock * fixed wrong exit without unlock
Revision 1.13 2002/04/02 13:23:54 pierre Revision 1.13 2002/04/02 13:23:54 pierre