From d2869c34dd2b18de3bbafa9062394f8f8b484a59 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 3 Apr 2002 06:18:30 +0000
Subject: [PATCH]  * fix some win32 GDB filename problems

---
 ide/fpdebug.pas | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/ide/fpdebug.pas b/ide/fpdebug.pas
index c91665c2b6..cf7235f31c 100644
--- a/ide/fpdebug.pas
+++ b/ide/fpdebug.pas
@@ -389,7 +389,7 @@ uses
     Unix,
   {$endif}
 {$endif Unix}
-  Systems,
+  Systems,Globals,
   FPString,FPVars,FPUtils,FPConst,FPSwitch,
   FPIntf,FPCompil,FPIde,FPHelp,
   Validate,WEditor,WUtils;
@@ -611,7 +611,7 @@ end;
 procedure TDebugController.SetExe(const exefn:string);
   var f : string;
 begin
-  f := GetShortName(GDBFileName(exefn));
+  f := GDBFileName(GetShortName(exefn));
   if (f<>'') and ExistsFile(exefn) then
     begin
       LoadFile(f);
@@ -659,7 +659,8 @@ begin
         s:=copy(f,1,i-1);
         system.delete(f,1,i);
       end;
-    Command('dir '+s);
+    DefaultReplacements(s);
+    Command('dir '+GDBFileName(GetShortName(s)));
   until i=0;
 end;
 
@@ -4056,7 +4057,10 @@ end.
 
 {
   $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
 
   Revision 1.13  2002/04/02 13:23:54  pierre