* breakpoint.c (bpstat_do_actions): To ensure that

clear_proceed_status doesn't free the command tree we're
evaluating out from under us, zero the bpstat's pointer to it, and
take care of freeing it ourselves.
* cli/cli-script.c (make_cleanup_free_command_lines): Make this
function externally visible.
* cli/cli-script.h (make_cleanup_free_command_lines): New
declaration.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a7c08e954a7ab728a23bb9a3998251d512006e34..985ec69a42ab8d02c70ef8fc8442065da6d9e33d 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,14 @@
+2003-12-21  Jim Blandy  <jimb@redhat.com>
+
+       * breakpoint.c (bpstat_do_actions): To ensure that
+       clear_proceed_status doesn't free the command tree we're
+       evaluating out from under us, zero the bpstat's pointer to it, and
+       take care of freeing it ourselves.
+       * cli/cli-script.c (make_cleanup_free_command_lines): Make this
+       function externally visible.
+       * cli/cli-script.h (make_cleanup_free_command_lines): New
+       declaration.
+
 2003-12-20  Mark Kettenis  <kettenis@gnu.org>
 
        * x86-64-tdep.c (x86_64_dwarf_regmap): Map the Return Address to

diff --git a/gdb/breakpoint.c b/gdb/breakpoint.c
index c535adddc1ea82bad12c613189fa5ed3ab6b6b41..6a17368b642f1de53d87602ce1e1e804ad746607 100644 (file)
--- a/gdb/breakpoint.c
+++ b/gdb/breakpoint.c
@@ -1992,7 +1992,6 @@ bpstat_do_actions (bpstat *bsp)
 {
   bpstat bs;
   struct cleanup *old_chain;
-  struct command_line *cmd;
 
   /* Avoid endless recursion if a `source' command is contained
      in bs->commands.  */
@@ -2017,7 +2016,23 @@ top:
   breakpoint_proceeded = 0;
   for (; bs != NULL; bs = bs->next)
     {
+      struct command_line *cmd;
+      struct cleanup *this_cmd_tree_chain;
+
+      /* Take ownership of the BSP's command tree, if it has one.
+
+         The command tree could legitimately contain commands like
+         'step' and 'next', which call clear_proceed_status, which
+         frees stop_bpstat's command tree.  To make sure this doesn't
+         free the tree we're executing out from under us, we need to
+         take ownership of the tree ourselves.  Since a given bpstat's
+         commands are only executed once, we don't need to copy it; we
+         can clear the pointer in the bpstat, and make sure we free
+         the tree when we're done.  */
       cmd = bs->commands;
+      bs->commands = 0;
+      this_cmd_tree_chain = make_cleanup_free_command_lines (&cmd);
+
       while (cmd != NULL)
        {
          execute_control_command (cmd);
@@ -2027,14 +2042,16 @@ top:
          else
            cmd = cmd->next;
        }
+
+      /* We can free this command tree now.  */
+      do_cleanups (this_cmd_tree_chain);
+
       if (breakpoint_proceeded)
        /* The inferior is proceeded by the command; bomb out now.
           The bpstat chain has been blown away by wait_for_inferior.
           But since execution has stopped again, there is a new bpstat
           to look at, so start over.  */
        goto top;
-      else
-       free_command_lines (&bs->commands);
     }
   do_cleanups (old_chain);
 }

diff --git a/gdb/cli/cli-script.c b/gdb/cli/cli-script.c
index cac5408893d8348f8f1ece28ef8574b609602576..a8375a38f5fedb99370c27c89a92518a7040eb31 100644 (file)
--- a/gdb/cli/cli-script.c
+++ b/gdb/cli/cli-script.c
@@ -36,9 +36,6 @@
 
 /* Prototypes for local functions */
 
-static struct cleanup *
-       make_cleanup_free_command_lines (struct command_line **arg);
-
 static enum command_control_type
        recurse_read_control_structure (struct command_line *current_cmd);
 
@@ -1001,7 +998,7 @@ do_free_command_lines_cleanup (void *arg)
   free_command_lines (arg);
 }
 
-static struct cleanup *
+struct cleanup *
 make_cleanup_free_command_lines (struct command_line **arg)
 {
   return make_cleanup (do_free_command_lines_cleanup, arg);

diff --git a/gdb/cli/cli-script.h b/gdb/cli/cli-script.h
index 03cb84137e543e247fedde561dd606ca7df62bf8..fc5c20301e8f6c5ea8ed110840f7f43fc23932ed 100644 (file)
--- a/gdb/cli/cli-script.h
+++ b/gdb/cli/cli-script.h
@@ -47,6 +47,8 @@ extern void print_command_lines (struct ui_out *,
 
 extern struct command_line * copy_command_lines (struct command_line *cmds);
 
+struct cleanup *make_cleanup_free_command_lines (struct command_line **arg);
+
 /* Exported to gdb/infrun.c */
 
 extern void execute_user_command (struct cmd_list_element *c, char *args);