# Copyright 2012-2015 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 <http://www.gnu.org/licenses/>. if ![supports_process_record] { return } standard_testfile basics.c if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \ executable {debug nowarnings}] != "" } { untested mi-record-changed.exp return -1 } load_lib mi-support.exp if [mi_gdb_start] { return } mi_run_to_main mi_gdb_test "record" ".*=record-started,thread-group=\"i${decimal}\".*\\^done" \ "record" mi_gdb_test "record stop" \ ".*=record-stopped,thread-group=\"i${decimal}\".*\\^done" \ "record end" mi_gdb_test "target record" \ ".*=record-started,thread-group=\"i${decimal}\".*\\^done" \ "target record" return 0