1 # Copyright (C) 1992, 1997, 2007 Free Software Foundation, Inc.
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.
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.
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/>.
16 # Please email any bugs, comments, and/or additions to this file to:
17 # bug-gdb@prep.ai.mit.edu
19 # This file was written by Fred Fish. (fnf@cygnus.com)
28 proc test_convenience_variables {} {
31 gdb_test "set \$foo = 101" "" \
32 "Set a new convenience variable"
34 gdb_test "print \$foo" " = 101" \
35 "Print contents of new convenience variable"
37 gdb_test "set \$foo = 301" "" \
38 "Set convenience variable to a new value"
40 gdb_test "print \$foo" " = 301" \
41 "Print new contents of convenience variable"
43 gdb_test "set \$_ = 11" "" \
44 "Set convenience variable \$_"
46 gdb_test "print \$_" " = 11" \
47 "Print contents of convenience variable \$_"
49 gdb_test "print \$foo + 10" " = 311" \
50 "Use convenience variable in arithmetic expression"
52 gdb_test "print (\$foo = 32) + 4" " = 36" \
53 "Use convenience variable assignment in arithmetic expression"
55 gdb_test "print \$bar" " = void" \
56 "Print contents of uninitialized convenience variable"
59 proc test_value_history {} {
62 gdb_test "print 101" "\\\$1 = 101" \
63 "Set value-history\[1\] using \$1"
65 gdb_test "print 102" "\\\$2 = 102" \
66 "Set value-history\[2\] using \$2"
68 gdb_test "print 103" "\\\$3 = 103" \
69 "Set value-history\[3\] using \$3"
71 gdb_test "print \$\$" "\\\$4 = 102" \
72 "Print value-history\[MAX-1\] using inplicit index \$\$"
74 gdb_test "print \$\$" "\\\$5 = 103" \
75 "Print value-history\[MAX-1\] again using implicit index \$\$"
77 gdb_test "print \$" "\\\$6 = 103" \
78 "Print value-history\[MAX\] using implicit index \$"
80 gdb_test "print \$\$2" "\\\$7 = 102" \
81 "Print value-history\[MAX-2\] using explicit index \$\$2"
83 gdb_test "print \$0" "\\\$8 = 102" \
84 "Print value-history\[MAX\] using explicit index \$0"
86 gdb_test "print 108" "\\\$9 = 108"
88 gdb_test "print \$\$0" "\\\$10 = 108" \
89 "Print value-history\[MAX\] using explicit index \$\$0"
91 gdb_test "print \$1" "\\\$11 = 101" \
92 "Print value-history\[1\] using explicit index \$1"
94 gdb_test "print \$2" "\\\$12 = 102" \
95 "Print value-history\[2\] using explicit index \$2"
97 gdb_test "print \$3" "\\\$13 = 103" \
98 "Print value-history\[3\] using explicit index \$3"
100 gdb_test "print \$-3" "\\\$14 = 100" \
101 "Print (value-history\[MAX\] - 3) using implicit index \$"
103 gdb_test "print \$1 + 3" "\\\$15 = 104" \
104 "Use value-history element in arithmetic expression"
107 # Start with a fresh gdb.
111 gdb_reinitialize_dir $srcdir/$subdir
113 send_gdb "set print sevenbit-strings\n" ; gdb_expect -re ".*$gdb_prompt $"
116 test_convenience_variables