* generic/gdbtk-cmds.c (gdb_clear_file): The global "attach_flag"

        is now per-inferior.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 6d856d9..49f2fd9 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-22  Keith Seitz  <keiths@redhat.com>
+
+       * generic/gdbtk-cmds.c (gdb_clear_file): The global "attach_flag"
+       is now per-inferior.
+
 2008-09-19  Denis Pilat  <denis.pilat@st.com>
 
        * generic/gdbtk-bp.c (gdb_get_breakpoint_info): Manage the case of NULL

diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c
index 3babc8c..b7a3f38 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-cmds.c
+++ b/gdb/gdbtk/generic/gdbtk-cmds.c
@@ -456,7 +456,8 @@ gdb_clear_file (ClientData clientData, Tcl_Interp *interp,
 
   if (! ptid_equal (inferior_ptid, null_ptid) && target_has_execution)
     {
-      if (attach_flag)
+      struct inferior *inf = current_inferior ();
+      if (inf->attach_flag)
        target_detach (NULL, 0);
       else
        target_kill ();