gdb/testsuite/gdb.mi/mi2-amd64-entry-value.exp

   1 # Copyright (C) 2011-2024 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 load_lib mi-support.exp
  17 set MIFLAGS "-i=mi2"
  18
  19 standard_testfile .s
  20 set opts {}
  21
  22 if [info exists COMPILE] {
  23     # make check RUNTESTFLAGS="gdb.mi/mi2-amd64-entry-value.exp COMPILE=1"
  24     set srcfile ${testfile}.c
  25     lappend opts debug optimize=-O2
  26 } else {
  27     require is_x86_64_m64_target
  28 }
  29
  30 if [build_executable ${testfile}.exp ${binfile} ${srcfile} $opts] {
  31     return -1
  32 }
  33
  34 if {[mi_clean_restart $binfile]} {
  35     return
  36 }
  37
  38 foreach name {different breakhere_different breakhere_validity breakhere_invalid} {
  39     mi_create_breakpoint $name "break $name"
  40 }
  41
  42
  43 # Test various kinds of `set print entry-values'.
  44
  45 with_test_prefix "entry-values=no" {
  46     if {[mi_runto_main] == -1} {
  47         return -1
  48     }
  49     mi_gdb_test "-gdb-set print entry-values no" {\^done} "no: set print entry-values"
  50     mi_send_resuming_command "exec-continue" "no: entry_equal: continue"
  51     mi_expect_stop "breakpoint-hit" .* {{name="val",value="5"}} .* .* {.* disp="keep"} "no: entry_equal: stop"
  52     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="5"}\]} "no: entry_equal: -stack-list-variables"
  53     mi_send_resuming_command "exec-continue" "no: entry_different: continue"
  54     mi_expect_stop "breakpoint-hit" .* {{name="val",value="6"}} .* .* {.* disp="keep"} "no: entry_different: stop"
  55     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="6"}\]} "no: entry_different: -stack-list-variables"
  56     mi_send_resuming_command "exec-continue" "no: validity: continue"
  57     mi_expect_stop "breakpoint-hit" .* {{name="lost",value="<optimized out>"},{name="born",value="10"}} .* .* {.* disp="keep"} "no: validity: stop"
  58     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="lost",arg="1",value="<optimized out>"},{name="born",arg="1",value="10"}\]} "no: validity: -stack-list-variables"
  59     mi_send_resuming_command "exec-continue" "no: invalid: continue"
  60     mi_expect_stop "breakpoint-hit" .* {{name="inv",value="<optimized out>"}} .* .* {.* disp="keep"} "no: invalid: stop"
  61     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="inv",arg="1",value="<optimized out>"}\]} "no: invalid: -stack-list-variables"
  62 }
  63
  64 with_test_prefix "entry-values=only" {
  65     if {[mi_runto_main] == -1} {
  66         return -1
  67     }
  68     mi_gdb_test "-gdb-set print entry-values only" {\^done} "only: set print entry-values"
  69     mi_send_resuming_command "exec-continue" "only: entry_equal: continue"
  70     mi_expect_stop "breakpoint-hit" .* {{name="val@entry",value="5"}} .* .* {.* disp="keep"} "only: entry_equal: stop"
  71     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val@entry",arg="1",value="5"}\]} "only: entry_equal: -stack-list-variables"
  72     mi_send_resuming_command "exec-continue" "only: entry_different: continue"
  73     mi_expect_stop "breakpoint-hit" .* {{name="val@entry",value="5"}} .* .* {.* disp="keep"} "only: entry_different: stop"
  74     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val@entry",arg="1",value="5"}\]} "only: entry_different: -stack-list-variables"
  75     mi_send_resuming_command "exec-continue" "only: validity: continue"
  76     mi_expect_stop "breakpoint-hit" .* {{name="lost@entry",value="5"},{name="born@entry",value="<optimized out>"}} .* .* {.* disp="keep"} "only: validity: stop"
  77     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="lost@entry",arg="1",value="5"},{name="born@entry",arg="1",value="<optimized out>"}\]} "only: validity: -stack-list-variables"
  78     mi_send_resuming_command "exec-continue" "only: invalid: continue"
  79     mi_expect_stop "breakpoint-hit" .* {{name="inv@entry",value="<optimized out>"}} .* .* {.* disp="keep"} "only: invalid: stop"
  80     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="inv@entry",arg="1",value="<optimized out>"}\]} "only: invalid: -stack-list-variables"
  81 }
  82
  83 with_test_prefix "entry-values=preferred" {
  84     if {[mi_runto_main] == -1} {
  85         return -1
  86     }
  87     mi_gdb_test "-gdb-set print entry-values preferred" {\^done} "preferred: set print entry-values"
  88     mi_send_resuming_command "exec-continue" "preferred: entry_equal: continue"
  89     mi_expect_stop "breakpoint-hit" .* {{name="val@entry",value="5"}} .* .* {.* disp="keep"} "preferred: entry_equal: stop"
  90     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val@entry",arg="1",value="5"}\]} "preferred: entry_equal: -stack-list-variables"
  91     mi_send_resuming_command "exec-continue" "preferred: entry_different: continue"
  92     mi_expect_stop "breakpoint-hit" .* {{name="val@entry",value="5"}} .* .* {.* disp="keep"} "preferred: entry_different: stop"
  93     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val@entry",arg="1",value="5"}\]} "preferred: entry_different: -stack-list-variables"
  94     mi_send_resuming_command "exec-continue" "preferred: validity: continue"
  95     mi_expect_stop "breakpoint-hit" .* {{name="lost@entry",value="5"},{name="born",value="10"}} .* .* {.* disp="keep"} "preferred: validity: stop"
  96     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="lost@entry",arg="1",value="5"},{name="born",arg="1",value="10"}\]} "preferred: validity: -stack-list-variables"
  97     mi_send_resuming_command "exec-continue" "preferred: invalid: continue"
  98     mi_expect_stop "breakpoint-hit" .* {{name="inv@entry",value="<optimized out>"}} .* .* {.* disp="keep"} "preferred: invalid: stop"
  99     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="inv@entry",arg="1",value="<optimized out>"}\]} "preferred: invalid: -stack-list-variables"
 100 }
 101
 102 with_test_prefix "entry-values=if-needed" {
 103     if {[mi_runto_main] == -1} {
 104         return -1
 105     }
 106     mi_gdb_test "-gdb-set print entry-values if-needed" {\^done} "if-needed: set print entry-values"
 107     mi_send_resuming_command "exec-continue" "if-needed: entry_equal: continue"
 108     mi_expect_stop "breakpoint-hit" .* {{name="val",value="5"}} .* .* {.* disp="keep"} "if-needed: entry_equal: stop"
 109     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="5"}\]} "if-needed: entry_equal: -stack-list-variables"
 110     mi_send_resuming_command "exec-continue" "if-needed: entry_different: continue"
 111     mi_expect_stop "breakpoint-hit" .* {{name="val",value="6"}} .* .* {.* disp="keep"} "if-needed: entry_different: stop"
 112     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="6"}\]} "if-needed: entry_different: -stack-list-variables"
 113     mi_send_resuming_command "exec-continue" "if-needed: validity: continue"
 114     mi_expect_stop "breakpoint-hit" .* {{name="lost@entry",value="5"},{name="born",value="10"}} .* .* {.* disp="keep"} "if-needed: validity: stop"
 115     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="lost@entry",arg="1",value="5"},{name="born",arg="1",value="10"}\]} "if-needed: validity: -stack-list-variables"
 116     mi_send_resuming_command "exec-continue" "if-needed: invalid: continue"
 117     mi_expect_stop "breakpoint-hit" .* {{name="inv",value="<optimized out>"}} .* .* {.* disp="keep"} "if-needed: invalid: stop"
 118     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="inv",arg="1",value="<optimized out>"}\]} "if-needed: invalid: -stack-list-variables"
 119 }
 120
 121 with_test_prefix "entry-values=both" {
 122     if {[mi_runto_main] == -1} {
 123         return -1
 124     }
 125     mi_gdb_test "-gdb-set print entry-values both" {\^done} "both: set print entry-values"
 126     mi_send_resuming_command "exec-continue" "both: entry_equal: continue"
 127     mi_expect_stop "breakpoint-hit" .* {{name="val",value="5"},{name="val@entry",value="5"}} .* .* {.* disp="keep"} "both: entry_equal: stop"
 128     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="5"},{name="val@entry",arg="1",value="5"}\]} "both: entry_equal: -stack-list-variables"
 129     mi_send_resuming_command "exec-continue" "both: entry_different: continue"
 130     mi_expect_stop "breakpoint-hit" .* {{name="val",value="6"},{name="val@entry",value="5"}} .* .* {.* disp="keep"} "both: entry_different: stop"
 131     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="6"},{name="val@entry",arg="1",value="5"}\]} "both: entry_different: -stack-list-variables"
 132     mi_send_resuming_command "exec-continue" "both: validity: continue"
 133     mi_expect_stop "breakpoint-hit" .* {{name="lost",value="<optimized out>"},{name="lost@entry",value="5"},{name="born",value="10"},{name="born@entry",value="<optimized out>"}} .* .* {.* disp="keep"} "both: validity: stop"
 134     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="lost",arg="1",value="<optimized out>"},{name="lost@entry",arg="1",value="5"},{name="born",arg="1",value="10"},{name="born@entry",arg="1",value="<optimized out>"}\]} "both: validity: -stack-list-variables"
 135     mi_send_resuming_command "exec-continue" "both: invalid: continue"
 136     mi_expect_stop "breakpoint-hit" .* {{name="inv",value="<optimized out>"},{name="inv@entry",value="<optimized out>"}} .* .* {.* disp="keep"} "both: invalid: stop"
 137     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="inv",arg="1",value="<optimized out>"},{name="inv@entry",arg="1",value="<optimized out>"}\]} "both: invalid: -stack-list-variables"
 138 }
 139
 140 with_test_prefix "entry-values=compact" {
 141     if {[mi_runto_main] == -1} {
 142         return -1
 143     }
 144     mi_gdb_test "-gdb-set print entry-values compact" {\^done} "compact: set print entry-values"
 145     mi_send_resuming_command "exec-continue" "compact: entry_equal: continue"
 146     mi_expect_stop "breakpoint-hit" .* {{name="val",value="5"},{name="val@entry",value="5"}} .* .* {.* disp="keep"} "compact: entry_equal: stop"
 147     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="5"},{name="val@entry",arg="1",value="5"}\]} "compact: entry_equal: -stack-list-variables"
 148     mi_send_resuming_command "exec-continue" "compact: entry_different: continue"
 149     mi_expect_stop "breakpoint-hit" .* {{name="val",value="6"},{name="val@entry",value="5"}} .* .* {.* disp="keep"} "compact: entry_different: stop"
 150     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="6"},{name="val@entry",arg="1",value="5"}\]} "compact: entry_different: -stack-list-variables"
 151     mi_send_resuming_command "exec-continue" "compact: validity: continue"
 152     mi_expect_stop "breakpoint-hit" .* {{name="lost@entry",value="5"},{name="born",value="10"}} .* .* {.* disp="keep"} "compact: validity: stop"
 153     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="lost@entry",arg="1",value="5"},{name="born",arg="1",value="10"}\]} "compact: validity: -stack-list-variables"
 154     mi_send_resuming_command "exec-continue" "compact: invalid: continue"
 155     mi_expect_stop "breakpoint-hit" .* {{name="inv",value="<optimized out>"}} .* .* {.* disp="keep"} "compact: invalid: stop"
 156     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="inv",arg="1",value="<optimized out>"}\]} "compact: invalid: -stack-list-variables"
 157 }
 158
 159 with_test_prefix "entry-values=default" {
 160     if {[mi_runto_main] == -1} {
 161         return -1
 162     }
 163     mi_gdb_test "-gdb-set print entry-values default" {\^done} "default: set print entry-values"
 164     mi_send_resuming_command "exec-continue" "default: entry_equal: continue"
 165     mi_expect_stop "breakpoint-hit" .* {{name="val",value="5"},{name="val@entry",value="5"}} .* .* {.* disp="keep"} "default: entry_equal: stop"
 166     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="5"},{name="val@entry",arg="1",value="5"}\]} "default: entry_equal: -stack-list-variables"
 167     mi_send_resuming_command "exec-continue" "default: entry_different: continue"
 168     mi_expect_stop "breakpoint-hit" .* {{name="val",value="6"},{name="val@entry",value="5"}} .* .* {.* disp="keep"} "default: entry_different: stop"
 169     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="val",arg="1",value="6"},{name="val@entry",arg="1",value="5"}\]} "default: entry_different: -stack-list-variables"
 170     mi_send_resuming_command "exec-continue" "default: validity: continue"
 171     mi_expect_stop "breakpoint-hit" .* {{name="lost",value="<optimized out>"},{name="lost@entry",value="5"},{name="born",value="10"}} .* .* {.* disp="keep"} "default: validity: stop"
 172     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="lost",arg="1",value="<optimized out>"},{name="lost@entry",arg="1",value="5"},{name="born",arg="1",value="10"}\]} "default: validity: -stack-list-variables"
 173     mi_send_resuming_command "exec-continue" "default: invalid: continue"
 174     mi_expect_stop "breakpoint-hit" .* {{name="inv",value="<optimized out>"}} .* .* {.* disp="keep"} "default: invalid: stop"
 175     mi_gdb_test "-stack-list-variables --all-values" {\^done,variables=\[{name="inv",arg="1",value="<optimized out>"}\]} "default: invalid: -stack-list-variables"
 176 }