From f9a7572ae1357fc2038f6be6383f6cdd71dd6821 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Thu, 19 Feb 2004 22:55:50 +0000 Subject: [PATCH] Testcase suggested by ezannoni@redhat.com. 2004-02-19 Fred Fish New testcase for PR breakpoint/1558. * gdb.arch/gdb1558.exp: New file. * gdb.arch/gdb1558.c: New file. --- gdb/testsuite/ChangeLog | 6 +++ gdb/testsuite/gdb.arch/gdb1558.c | 36 +++++++++++++++ gdb/testsuite/gdb.arch/gdb1558.exp | 72 ++++++++++++++++++++++++++++++ 3 files changed, 114 insertions(+) create mode 100644 gdb/testsuite/gdb.arch/gdb1558.c create mode 100644 gdb/testsuite/gdb.arch/gdb1558.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 414d05a9171..0a6d117ca1a 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2004-02-19 Fred Fish + + New testcase for PR breakpoint/1558. + * gdb.arch/gdb1558.exp: New file. + * gdb.arch/gdb1558.c: New file. + 2004-02-19 Elena Zannoni * gdb.base/nodebug.exp: Fix typo. diff --git a/gdb/testsuite/gdb.arch/gdb1558.c b/gdb/testsuite/gdb.arch/gdb1558.c new file mode 100644 index 00000000000..d1051cf79a7 --- /dev/null +++ b/gdb/testsuite/gdb.arch/gdb1558.c @@ -0,0 +1,36 @@ +/* Copyright 2004 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 2 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + + Please email any bugs, comments, and/or additions to this file to: + bug-gdb@gnu.org + + This file is part of the gdb testsuite. */ + +sub1 () +{ + printf ("In sub1\n"); +} + +sub2 () +{ + printf ("In sub2\n"); +} + +main () +{ + sub1 (); + sub2 (); +} diff --git a/gdb/testsuite/gdb.arch/gdb1558.exp b/gdb/testsuite/gdb.arch/gdb1558.exp new file mode 100644 index 00000000000..1ad21694854 --- /dev/null +++ b/gdb/testsuite/gdb.arch/gdb1558.exp @@ -0,0 +1,72 @@ +# Copyright 2004 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 2 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, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@gnu.org + +# This file is part of the gdb testsuite. + +# Tests for PR:1558. Hits breakpoint at main after function called +# from main. + +if $tracelevel { + strace $tracelevel +} + +set prms_id 0 +set bug_id 0 + +if ![istarget "sh-*-*"] then { + verbose "Skipping SH breakpoint test." + return +} + +set testfile "gdb1558" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +# Note we have to compile WITH optimization and WITHOUT debugging information to expose the bug. +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {"additional_flags=-O2"}] != "" } { + gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +gdb_test "b main" "Breakpoint 1.*" "set breakpoint at main" +gdb_test "b sub1" "Breakpoint 2.*" "set breakpoint at sub1" +gdb_test "b sub2" "Breakpoint 3.*" "set breakpoint at sub2" + +# We can't use "runto_main" because that is exactly the problem +# we are trying to detect, stopping somewhere before main. + +gdb_run_cmd + +gdb_expect 30 { + -re "Breakpoint 1.*main .*$gdb_prompt $" { + pass "Hits breakpoint at main after function called from main" + } + -re "Breakpoint 2.*sub1 .*$gdb_prompt $" { + kfail "gdb/1558" "Hits breakpoint at main after function called from main" + } + -re "$gdb_prompt $" { + fail "Hits breakpoint at main after function called from main" + } + timeout { + fail "Hits breakpoint at main after function called from main (timeout)" + } +} -- 2.30.2