1# Copyright 2012-2015 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# Test "set debug expr 1" on c expressions. 17 18standard_testfile .c 19 20if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug}]} { 21 return -1 22} 23 24if ![runto_main] { 25 fail "run to main" 26 return -1 27} 28 29# Test whether the expression debug machinery accepts the expression. 30 31proc test_debug_expr { cmd output } { 32 global gdb_prompt 33 34 gdb_test_multiple $cmd "" { 35 -re ".*Invalid expression.*\r\n$gdb_prompt $" { 36 fail $cmd 37 } 38 -re ".*\[\r\n\]$output\r\n$gdb_prompt $" { 39 pass $cmd 40 } 41 } 42} 43 44for { set i 0 } { $i < 4 } { incr i } { 45 gdb_test_no_output "set variable array\[$i\] = $i" 46} 47 48gdb_test_no_output "set debug expression 1" 49 50# This caused gdb to segfault. 51test_debug_expr "print /x {char\[4\]} array" \ 52 "\[$\]$decimal = \\{0x0, 0x1, 0x2, 0x3\\}" 53 54# This caused gdb to output garbage and possibly segfault 55gdb_test "print \"hello\"" \ 56 ".*OP_STRING\[^\r\n\]*Language-specific string type: 0.*\[\r\n\]\\$$decimal = \"hello\"\[\r\n\].*" \ 57 "String evaluation with debug expr" 58