Преглед изворни кода

* fix problem with breakpoints in subdirs

pierre пре 23 година
родитељ
комит
21b9bab119
1 измењених фајлова са 6 додато и 3 уклоњено
  1. 6 3
      ide/fpdebug.pas

+ 6 - 3
ide/fpdebug.pas

@@ -1398,7 +1398,7 @@ begin
   if (GDBState=bs_deleted) and (state=bs_enabled) then
   if (GDBState=bs_deleted) and (state=bs_enabled) then
     begin
     begin
       if (typ=bt_file_line) and assigned(FileName) then
       if (typ=bt_file_line) and assigned(FileName) then
-        Debugger^.Command('break '+GDBFileName(GetStr(FileName))+':'+IntToStr(Line))
+        Debugger^.Command('break '+GDBFileName(NameAndExtOf(GetStr(FileName)))+':'+IntToStr(Line))
       else if (typ=bt_function) and assigned(name) then
       else if (typ=bt_function) and assigned(name) then
         Debugger^.Command('break '+name^)
         Debugger^.Command('break '+name^)
       else if (typ=bt_address) and assigned(name) then
       else if (typ=bt_address) and assigned(name) then
@@ -1507,7 +1507,7 @@ var W: PSourceWindow;
 begin
 begin
   if typ=bt_file_line then
   if typ=bt_file_line then
     begin
     begin
-      W:=SearchOnDesktop(OSFileName(GetStr(FileName)),false);
+      W:=SearchOnDesktop(FExpand(OSFileName(GetStr(FileName))),false);
       If assigned(W) then
       If assigned(W) then
         begin
         begin
           if state=bs_enabled then
           if state=bs_enabled then
@@ -4055,7 +4055,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.11  2002-04-02 11:10:29  pierre
+  Revision 1.12  2002-04-02 12:20:58  pierre
+   * fix problem with breakpoints in subdirs
+
+  Revision 1.11  2002/04/02 11:10:29  pierre
    * fix FPC_BREAK_ERROR problem and avoid blinking J
    * fix FPC_BREAK_ERROR problem and avoid blinking J
 
 
   Revision 1.10  2002/03/27 11:24:09  pierre
   Revision 1.10  2002/03/27 11:24:09  pierre