gdb/testsuite/gdb.base/exitsignal.exp

   1 # Copyright 2013-2023 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 3 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, see <http://www.gnu.org/licenses/>.
  15
  16 # This test checks both $_exitcode and $_exitsignal variables.  The
  17 # purpose of this checking is to ensure that the variables are
  18 # mutually exclusive, i.e., that when $_exitsignal is set, $_exitcode
  19 # is not, and vice-versa.  This mutual exclusion happens because if an
  20 # inferior exited (either successfuly or not), it certainly was not
  21 # killed by a signal.  However, if it was killed by an uncaught
  22 # signal, then there is no way for it to have exited.
  23
  24 if { [target_info exists gdb,nosignals] } {
  25     verbose "Skipping exitsignal.exp because of nosignals."
  26     return
  27 }
  28
  29 standard_testfile segv.c
  30
  31 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
  32     return -1
  33 }
  34
  35 # Run to main.  But, before, change cwd to get the core into the
  36 # output directory.
  37 set_inferior_cwd_to_output_dir
  38
  39 if { ![runto_main] } {
  40     return -1
  41 }
  42
  43 # Get the inferior's PID for later.
  44 set pid [get_inferior_pid]
  45
  46 # Print $_exitsignal.  It should be void now, because nothing
  47 # happened.
  48 gdb_test "print \$_exitsignal" " = void" \
  49     "\$_exitsignal is void before running"
  50
  51 # Just to guarantee, making sure that $_exitcode is also void.
  52 gdb_test "print \$_exitcode" " = void" \
  53     "\$_exitcode is void before running"
  54
  55 # Trigger SIGSEGV.
  56 gdb_test "continue" "Program received signal SIGSEGV.*" "trigger SIGSEGV"
  57
  58 # Continue until the end.
  59 gdb_test "continue" "Program terminated with signal SIGSEGV.*" \
  60     "program terminated with SIGSEGV"
  61
  62 # We don't need the core file, remove it.
  63 remove_core $pid
  64
  65 # Now, print $_exitsignal again.  It should be 11 (SIGSEGV).
  66 gdb_test "print \$_exitsignal" " = 11" \
  67     "\$_exitsignal is 11 (SIGSEGV) after SIGSEGV."
  68
  69 # And $_exitcode should still be void, since the inferior died because
  70 # of a signal, and did not return.
  71 gdb_test "print \$_exitcode" " = void" \
  72     "\$_exitcode is still void after SIGSEGV"
  73
  74 # Re-run to main, i.e., restart the executable.
  75 rerun_to_main
  76
  77 # Print the $_exitsignal again.  Even in this normal scenario, it
  78 # should still contain the signal triggered in the other run.
  79 gdb_test "print \$_exitsignal" " = 11" \
  80     "\$_exitsignal is 11 (SIGSEGV) after restarting the inferior"
  81
  82 # And, again, print $_exitcode.
  83 gdb_test "print \$_exitcode" " = void" \
  84     "\$_exitcode is still void after restarting the inferior"
  85
  86 # Now we test the behaviour of $_exit{code,signal} during a normal
  87 # inferior execution.
  88 standard_testfile normal.c
  89
  90 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
  91     return -1
  92 }
  93
  94 # Checking $_exitsignal and $_exitcode, both should be void before the
  95 # inferior is executed.
  96 gdb_test "print \$_exitsignal" " = void" \
  97     "\$_exitsignal is void before normal inferior is executed"
  98 gdb_test "print \$_exitcode" " = void" \
  99     "\$_exitcode is void before normal inferior is executed"
 100
 101 # Run the inferior until the end.
 102 if { ![runto_main] } {
 103     return -1
 104 }
 105
 106 gdb_continue_to_end
 107
 108 # Checking $_exitcode.  It should be 0.
 109 gdb_test "print \$_exitcode" " = 0" \
 110     "\$_exitcode is zero after normal inferior is executed"
 111
 112 # Checking $_exitsignal.  It should still be void, since the inferior
 113 # has not received any signal.
 114 gdb_test "print \$_exitsignal" " = void" \
 115     "\$_exitsignal is still void after normal inferior is executed"