# Copyright 2015-2016 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # This test checks if dprintf prints correctly when it's resolved from # pending state. # See PR breakpoints/16465. load_lib mi-support.exp if {[skip_shlib_tests]} { return 0 } standard_testfile mi-dprintf-pending.c set libfile1 "mi-dprintf-pendshr" set libsrc1 $srcdir/$subdir/$libfile1.c set lib_sl1 [standard_output_file $libfile1.sl] set lib_opts debug set exec_opts [list debug shlib=$lib_sl1 shlib_load] if {[get_compiler_info]} { return -1 } if {[gdb_compile_shlib $libsrc1 $lib_sl1 $lib_opts] != ""} { untested "Could not compile $libsrc1" return -1 } if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable $exec_opts] != ""} { untested "Could not compile $srcdir/$subdir/$srcfile" return -1 } # Start with a fresh gdb. gdb_exit mi_gdb_start mi_gdb_reinitialize_dir $srcdir/$subdir mi_gdb_load ${binfile} mi_load_shlibs $lib_sl1 set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] # Set pending dprintf via MI. mi_gdb_test "-dprintf-insert -f pendfunc1 \"hello\"" \ ".*\\^done,bkpt={number=\"1\",type=\"dprintf\",disp=\"keep\",enabled=\"y\",addr=\"\",pending=\"pendfunc1\",times=\"0\",original-location=\"pendfunc1\"}" \ "mi set dprintf" mi_create_breakpoint $bp_location1 "mi insert breakpoint bp_location1" \ -type "breakpoint" -line $bp_location1 -file ".*$srcfile" mi_run_cmd set msg "mi dprintf" gdb_expect { -re ".*~\"hello\"" { pass $msg } -re ".*$mi_gdb_prompt$" { fail $msg } timeout { fail $msg } } mi_expect_stop ".*" "main" ".*" ".*$srcfile" "$bp_location1" "" "$msg stop"