From 6ef88553ef3726b3080f967e099617c58c084c96 Mon Sep 17 00:00:00 2001 From: Kris Warkentin Date: Mon, 3 Nov 2003 17:42:52 +0000 Subject: [PATCH] Added new SH4 testcases --- gdb/testsuite/ChangeLog | 7 ++++ gdb/testsuite/gdb.arch/gdb1291.c | 44 ++++++++++++++++++++ gdb/testsuite/gdb.arch/gdb1291.exp | 62 ++++++++++++++++++++++++++++ gdb/testsuite/gdb.arch/gdb1431.c | 63 ++++++++++++++++++++++++++++ gdb/testsuite/gdb.arch/gdb1431.exp | 66 ++++++++++++++++++++++++++++++ 5 files changed, 242 insertions(+) create mode 100755 gdb/testsuite/gdb.arch/gdb1291.c create mode 100644 gdb/testsuite/gdb.arch/gdb1291.exp create mode 100755 gdb/testsuite/gdb.arch/gdb1431.c create mode 100644 gdb/testsuite/gdb.arch/gdb1431.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index ac41dcf59e2..637d09109ef 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2003-11-03 Kris Warkentin + + * gdb.arch/gdb1291.c: New test file. + * gdb.arch/gdb1291.exp: New test script. + * gdb.arch/gdb1431.c: New test file. + * gdb.arch/gdb1431.exp: New test script. + 2003-10-22 Michael Chastain * gdb.mi/pthreads.c: Add copyright notice. diff --git a/gdb/testsuite/gdb.arch/gdb1291.c b/gdb/testsuite/gdb.arch/gdb1291.c new file mode 100755 index 00000000000..2178f7031bf --- /dev/null +++ b/gdb/testsuite/gdb.arch/gdb1291.c @@ -0,0 +1,44 @@ +/* Copyright 2003 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. */ + +void sub (void); + +main() +{ + sub(); +} + +asm(".text\n" + " .align 5\n" + "sub:\n" + " mov.l r14,@-r15\n" + " mov.w .STACK2,r3\n" + " sub r3,r15\n" + " mov r15,r14\n" + " mov.w .STACK2,r7\n" + " add r7,r14\n" + " mov r14,r15\n" + " mov.l @r15+,r14\n" + " rts\n" + " nop\n" + " .align 1\n" + ".STACK2:\n" + " .short 260\n"); diff --git a/gdb/testsuite/gdb.arch/gdb1291.exp b/gdb/testsuite/gdb.arch/gdb1291.exp new file mode 100644 index 00000000000..2c1f4cc41e6 --- /dev/null +++ b/gdb/testsuite/gdb.arch/gdb1291.exp @@ -0,0 +1,62 @@ +# Copyright 2003 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:1291. Ensure that backtrace works properly for stack +# frames greater than 256 bytes. + +if $tracelevel { + strace $tracelevel +} + +# Test SH backtraces with >256 byte frame stack. (PR:1291) + +set prms_id 0 +set bug_id 0 + +if ![istarget "sh-*-*"] then { + verbose "Skipping SH backtrace tests." + return +} + +set testfile "gdb1291" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + 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} + +# +# Run to `main' where we begin our tests. +# + +if ![runto_main] then { + gdb_suppress_tests +} + +gdb_test "b sub" "Breakpoint 2*" "set breakpoint" +gdb_test "c" "Breakpoint 2*" "get to sub" +gdb_test "bt" "#0\[ \t\]*$hex \\(\\) at sh-bt.*\r\n#1\[ \t\]*$hex in main.*" \ + "backtrace in gdb1291" diff --git a/gdb/testsuite/gdb.arch/gdb1431.c b/gdb/testsuite/gdb.arch/gdb1431.c new file mode 100755 index 00000000000..00410424913 --- /dev/null +++ b/gdb/testsuite/gdb.arch/gdb1431.c @@ -0,0 +1,63 @@ +/* Copyright 2003 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. */ + +void sub1 (void); +void sub2 (void); + +main() +{ + sub1(); + sub2(); +} + +asm(".text\n" + " .align 5\n" + "sub1:\n" + " mov.l r14,@-r15\n" + " add #-128,r15\n" + " add #-128,r15\n" + " mov r15,r14\n" + " mov.w .STACK1,r7\n" + " add r7,r14\n" + " mov r14,r15\n" + " mov.l @r15+,r14\n" + " rts\n" + " nop\n" + " .align 1\n" + ".STACK1:\n" + " .short 256\n"); + +asm(".text\n" + " .align 5\n" + "sub2:\n" + " mov.l r14,@-r15\n" + " mov.w .STACK2,r3\n" + " sub r3,r15\n" + " mov r15,r14\n" + " mov.w .STACK2,r7\n" + " add r7,r14\n" + " mov r14,r15\n" + " mov.l @r15+,r14\n" + " rts\n" + " nop\n" + " .align 1\n" + ".STACK2:\n" + " .short 260\n"); diff --git a/gdb/testsuite/gdb.arch/gdb1431.exp b/gdb/testsuite/gdb.arch/gdb1431.exp new file mode 100644 index 00000000000..15bff46c774 --- /dev/null +++ b/gdb/testsuite/gdb.arch/gdb1431.exp @@ -0,0 +1,66 @@ +# Copyright 2003 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:1431. Catch gdb not continuing to second function properly. + +if $tracelevel { + strace $tracelevel +} + +# Observe that the until command doesn't go all the way to sub2. + +set prms_id 0 +set bug_id 0 + +if ![istarget "sh-*-*"] then { + verbose "Skipping SH backtrace tests." + return +} + +set testfile "gdb1431" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + 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} + +# +# Run to `main' where we begin our tests. +# + +if ![runto_main] then { + gdb_suppress_tests +} + +gdb_test "u sub1" "sub1*" "get to sub1" +gdb_test "bt" "#0\[ \t\]*$hex \\(\\) at sh-bt.*\r\n#1\[ \t\]*$hex in main.*" \ + "backtrace in gdb1291" + +kfail "gdb/1431" "u sub2" +# This is what we would expect to be able to do: +#gdb_test "u sub2" "sub2*" "get to sub2" +#gdb_test "bt" "#0\[ \t\]*$hex \\(\\) at sh-bt.*\r\n#1\[ \t\]*$hex in main.*" \ +# "backtrace in gdb1291" -- 2.30.2