gnu/dist/gdb6/gdb/testsuite/gdb.base/freebpcmd.exp

   1 #   Copyright 2003 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 2 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program; if not, write to the Free Software
  15 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  16
  17
  18 # This is a regression test for the following bug, as of 2003-12-12:
  19 #
  20 # Set a breakpoint which will be hit many times.  Attach a complex set
  21 # of commands to it, including a "continue" command.  Run the program,
  22 # so that the breakpoint is hit, its commands get executed, and the
  23 # program continues and hits the breakpoint again.  You will see
  24 # messages like "warning: Invalid control type in command structure.",
  25 # or maybe GDB will crash.
  26 #
  27 # When the breakpoint is hit, bpstat_stop_status copies the
  28 # breakpoint's command tree to the bpstat.  bpstat_do_actions then
  29 # calls execute_control_command to run the commands.  The 'continue'
  30 # command invokes the following chain of calls:
  31 #
  32 #   continue_command
  33 #     -> clear_proceed_status
  34 #       -> bpstat_clear
  35 #         -> free_command_lines
  36 #            -> frees the commands we are currently running.
  37 #
  38 # When control does eventually return to execute_control_command, GDB
  39 # continues to walk the tree of freed command nodes, resulting in the
  40 # error messages and / or crashes.
  41 #
  42 # Since this bug depends on storage being reused between the time that
  43 # we continue and the time that we fall back to bpstat_do_actions, the
  44 # reproduction recipe is more delicate than I would like.  I welcome
  45 # suggestions for improving this.
  46
  47 set prms_id 0
  48 set bug_id 0
  49
  50 set testfile "freebpcmd"
  51 set srcfile ${testfile}.c
  52 set srcfile1 ${testfile}1.c
  53 set binfile ${objdir}/${subdir}/${testfile}
  54
  55 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  56      gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
  57 }
  58
  59 gdb_exit
  60 gdb_start
  61 gdb_reinitialize_dir $srcdir/$subdir
  62 gdb_load ${binfile}
  63
  64 gdb_test "break [gdb_get_line_number "euphonium"]" "" "set breakpoint"
  65
  66 # The goal of all this is to make sure that there's plenty of memory
  67 # churn, and different amounts of it each time the inferior stops;
  68 # this seems to make GDB crash more reliably.
  69 set lines {{if (i%2) == 0}
  70            {echo "even "}
  71            {print i}
  72            {else}
  73            {echo "odd "}
  74            {print i}
  75            {end}
  76            {set variable $foo = 0}
  77            {set variable $j = 0}
  78            {while $j < i}
  79            {set variable $foo += $j}
  80            {set variable $j++}
  81            {end}
  82            {print $foo}
  83            {if i != 40}
  84            {c}
  85            {end}
  86            {end}}
  87
  88 send_gdb "commands\n"
  89 for {set i 0} {$i < [llength $lines]} {incr i} {
  90     gdb_expect {
  91         -re ".*>" {
  92             send_gdb "[lindex $lines $i]\n"
  93         }
  94         -re "$gdb_prompt $" {
  95             set reason "got top-level prompt early"
  96             break
  97         }
  98         timeout {
  99             set reason "timeout"
 100             break
 101         }
 102     }
 103 }
 104 if {$i >= [llength $lines]} {
 105     pass "send breakpoint commands"
 106 } else {
 107     fail "send breakpoint commands ($reason)"
 108 }
 109
 110 gdb_run_cmd
 111
 112 set timeout 120
 113
 114 gdb_test_multiple "" "run program with breakpoint commands" {
 115     -re "warning: Invalid control type in command structure" {
 116         kfail "gdb/1489" "run program with breakpoint commands"
 117     }
 118     -re "$gdb_prompt $" {
 119         pass "run program with breakpoint commands"
 120     }
 121     eof {
 122         kfail "gdb/1489" "run program with breakpoint commands (GDB died)"
 123     }
 124 }