1# Copyright (C) 1992-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 file was written by Fred Fish. (fnf@cygnus.com) 17 18 19standard_testfile 20 21if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} { 22 return -1 23} 24 25proc test_convenience_variables {} { 26 global gdb_prompt 27 28 gdb_test_no_output "set \$foo = 101" \ 29 "Set a new convenience variable" 30 31 gdb_test "print \$foo" " = 101" \ 32 "Print contents of new convenience variable" 33 34 gdb_test_no_output "set \$foo = 301" \ 35 "Set convenience variable to a new value" 36 37 gdb_test "print \$foo" " = 301" \ 38 "Print new contents of convenience variable" 39 40 gdb_test_no_output "set \$_ = 11" \ 41 "Set convenience variable \$_" 42 43 gdb_test "print \$_" " = 11" \ 44 "Print contents of convenience variable \$_" 45 46 gdb_test "print \$foo + 10" " = 311" \ 47 "Use convenience variable in arithmetic expression" 48 49 gdb_test "print (\$foo = 32) + 4" " = 36" \ 50 "Use convenience variable assignment in arithmetic expression" 51 52 gdb_test "print \$bar" " = void" \ 53 "Print contents of uninitialized convenience variable" 54 55 56 gdb_test "print \$str = \"some string\"" \ 57 " = \"some string\"" \ 58 "Set convenience variable to string value" 59 gdb_test "print \$str = \"some other string\"" \ 60 " = \"some other string\"" \ 61 "Change convenience variable to different string value" 62 63 gdb_test "print \$arr = {1, 2, 3}" \ 64 " = \\{1, 2, 3\\}" \ 65 "Set convenience variable to array value" 66 gdb_test "print \$arr = {0, 1, 2, 3}" \ 67 " = \\{0, 1, 2, 3\\}" \ 68 "Set convenience variable to different array value" 69} 70 71proc test_convenience_functions {} { 72 gdb_test "print \$_isvoid" " = <internal function _isvoid>" \ 73 "Print internal function \$_isvoid" 74 75 gdb_test "print \$isvoid_foo" " = void" \ 76 "Print void convenience variable" 77 78 gdb_test "print \$_isvoid (\$isvoid_foo)" " = 1" \ 79 "Check whether void convenience variable is void" 80 81 gdb_test_no_output "set \$isvoid_foo = 1" \ 82 "Set void convenience variable to 1" 83 84 gdb_test "print \$_isvoid (\$isvoid_foo)" " = 0" \ 85 "Check whether non-void convenience variable is void" 86 87 # For the next test, we need the inferior to be running. 88 if { ![runto_main] } { 89 return -1 90 } 91 92 gdb_test "print \$_isvoid (foo_void ())" " = 1" \ 93 "Check whether void function is void" 94 95 gdb_test "print \$_isvoid (foo_int ())" " = 0" \ 96 "Check whether non-void function is void" 97} 98 99proc test_value_history {} { 100 global gdb_prompt 101 102 gdb_test "print 101" "\\\$1 = 101" \ 103 "Set value-history\[1\] using \$1" 104 105 gdb_test "print 102" "\\\$2 = 102" \ 106 "Set value-history\[2\] using \$2" 107 108 gdb_test "print 103" "\\\$3 = 103" \ 109 "Set value-history\[3\] using \$3" 110 111 gdb_test "print \$\$" "\\\$4 = 102" \ 112 "Print value-history\[MAX-1\] using inplicit index \$\$" 113 114 gdb_test "print \$\$" "\\\$5 = 103" \ 115 "Print value-history\[MAX-1\] again using implicit index \$\$" 116 117 gdb_test "print \$" "\\\$6 = 103" \ 118 "Print value-history\[MAX\] using implicit index \$" 119 120 gdb_test "print \$\$2" "\\\$7 = 102" \ 121 "Print value-history\[MAX-2\] using explicit index \$\$2" 122 123 gdb_test "print \$0" "\\\$8 = 102" \ 124 "Print value-history\[MAX\] using explicit index \$0" 125 126 gdb_test "print 108" "\\\$9 = 108" 127 128 gdb_test "print \$\$0" "\\\$10 = 108" \ 129 "Print value-history\[MAX\] using explicit index \$\$0" 130 131 gdb_test "print \$1" "\\\$11 = 101" \ 132 "Print value-history\[1\] using explicit index \$1" 133 134 gdb_test "print \$2" "\\\$12 = 102" \ 135 "Print value-history\[2\] using explicit index \$2" 136 137 gdb_test "print \$3" "\\\$13 = 103" \ 138 "Print value-history\[3\] using explicit index \$3" 139 140 gdb_test "print \$-3" "\\\$14 = 100" \ 141 "Print (value-history\[MAX\] - 3) using implicit index \$" 142 143 gdb_test "print \$1 + 3" "\\\$15 = 104" \ 144 "Use value-history element in arithmetic expression" 145} 146 147proc test_with_program {} { 148 global hex 149 gdb_test_no_output "set \$prog_var = p" \ 150 "Set a new convenience variable to a program variable" 151 gdb_test "print /x \$prog_var" " = $hex" \ 152 "Print contents of new convenience variable of program variable" 153} 154 155gdb_test_no_output "set print sevenbit-strings" 156 157test_value_history 158test_convenience_variables 159test_convenience_functions 160test_with_program 161