From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 29217 invoked by alias); 29 Oct 2003 18:02:40 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 29206 invoked from network); 29 Oct 2003 18:02:39 -0000 Received: from unknown (HELO hub.ott.qnx.com) (209.226.137.76) by sources.redhat.com with SMTP; 29 Oct 2003 18:02:39 -0000 Received: from smtp.ott.qnx.com (smtp.ott.qnx.com [10.0.2.158]) by hub.ott.qnx.com (8.9.3/8.9.3) with ESMTP id MAA03872 for ; Wed, 29 Oct 2003 12:57:15 -0500 Received: from catdog ([10.4.2.2]) by smtp.ott.qnx.com (8.8.8/8.6.12) with SMTP id NAA13131 for ; Wed, 29 Oct 2003 13:02:38 -0500 Message-ID: <0f5701c39e46$f7c1abf0$0202040a@catdog> From: "Kris Warkentin" To: "Gdb-Patches@Sources.Redhat.Com" Subject: [patch] testcases for PRs 1291 and 1431 Date: Wed, 29 Oct 2003 18:02:00 -0000 MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="----=_NextPart_000_0F54_01C39E1D.0ED7CDD0" X-Priority: 3 X-MSMail-Priority: Normal X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 X-SW-Source: 2003-10/txt/msg00840.txt.bz2 This is a multi-part message in MIME format. ------=_NextPart_000_0F54_01C39E1D.0ED7CDD0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Content-length: 5540 In the end I split them up like so. The 1291 testcase now only exhibits the one issue and the 1431 kfails the second. cheers, Kris 2003-10-29 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. ---gdb1291.c--- 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"); ---gdb1291.exp--- # 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" ---gdb1431.c--- 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"); ---gdb1431.exp--- # 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" ------=_NextPart_000_0F54_01C39E1D.0ED7CDD0 Content-Type: application/octet-stream; name="gdb1431.exp" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="gdb1431.exp" Content-length: 2304 # Copyright 2003 Free Software Foundation, Inc.=0A= =0A= # This program is free software; you can redistribute it and/or modify=0A= # it under the terms of the GNU General Public License as published by=0A= # the Free Software Foundation; either version 2 of the License, or=0A= # (at your option) any later version.=0A= #=0A= # This program is distributed in the hope that it will be useful,=0A= # but WITHOUT ANY WARRANTY; without even the implied warranty of=0A= # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the=0A= # GNU General Public License for more details.=0A= #=0A= # You should have received a copy of the GNU General Public License=0A= # along with this program; if not, write to the Free Software=0A= # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA= .=20=20=0A= =0A= # Please email any bugs, comments, and/or additions to this file to:=0A= # bug-gdb@gnu.org=0A= =0A= # This file is part of the gdb testsuite.=0A= =0A= # Tests for PR:1431. Catch gdb not continuing to second function properly.= =0A= =0A= if $tracelevel {=0A= strace $tracelevel=0A= }=0A= =0A= # Observe that the until command doesn't go all the way to sub2.=0A= =0A= set prms_id 0=0A= set bug_id 0=0A= =0A= if ![istarget "sh-*-*"] then {=0A= verbose "Skipping SH backtrace tests."=0A= return=0A= }=0A= =0A= set testfile "gdb1431"=0A= set srcfile ${testfile}.c=0A= set binfile ${objdir}/${subdir}/${testfile}=0A= if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable = {debug}] !=3D "" } {=0A= gdb_suppress_entire_file "Testcase compile failed, so all tests in this= file will automatically fail."=0A= }=0A= =0A= gdb_exit=0A= gdb_start=0A= gdb_reinitialize_dir $srcdir/$subdir=0A= gdb_load ${binfile}=0A= =0A= #=0A= # Run to `main' where we begin our tests.=0A= #=0A= =0A= if ![runto_main] then {=0A= gdb_suppress_tests=0A= }=0A= =0A= gdb_test "u sub1" "sub1*" "get to sub1"=0A= gdb_test "bt" "#0\[ \t\]*$hex \\(\\) at sh-bt.*\r\n#1\[ \t\]*$hex in main.*= " \=0A= "backtrace in gdb1291"=0A= =0A= kfail "gdb/1431" "u sub2"=0A= # This is what we would expect to be able to do:=0A= #gdb_test "u sub2" "sub2*" "get to sub2"=0A= #gdb_test "bt" "#0\[ \t\]*$hex \\(\\) at sh-bt.*\r\n#1\[ \t\]*$hex in main.= *" \=0A= # "backtrace in gdb1291"=0A= ------=_NextPart_000_0F54_01C39E1D.0ED7CDD0 Content-Type: application/octet-stream; name="gdb1291.c" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="gdb1291.c" Content-length: 413 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"); ------=_NextPart_000_0F54_01C39E1D.0ED7CDD0 Content-Type: application/octet-stream; name="gdb1291.exp" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="gdb1291.exp" Content-length: 2134 # Copyright 2003 Free Software Foundation, Inc.=0A= =0A= # This program is free software; you can redistribute it and/or modify=0A= # it under the terms of the GNU General Public License as published by=0A= # the Free Software Foundation; either version 2 of the License, or=0A= # (at your option) any later version.=0A= #=0A= # This program is distributed in the hope that it will be useful,=0A= # but WITHOUT ANY WARRANTY; without even the implied warranty of=0A= # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the=0A= # GNU General Public License for more details.=0A= #=0A= # You should have received a copy of the GNU General Public License=0A= # along with this program; if not, write to the Free Software=0A= # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA= .=20=20=0A= =0A= # Please email any bugs, comments, and/or additions to this file to:=0A= # bug-gdb@gnu.org=0A= =0A= # This file is part of the gdb testsuite.=0A= =0A= # Tests for PR:1291. Ensure that backtrace works properly for stack=0A= # frames greater than 256 bytes.=0A= =0A= if $tracelevel {=0A= strace $tracelevel=0A= }=0A= =0A= # Test SH backtraces with >256 byte frame stack. (PR:1291)=0A= =0A= set prms_id 0=0A= set bug_id 0=0A= =0A= if ![istarget "sh-*-*"] then {=0A= verbose "Skipping SH backtrace tests."=0A= return=0A= }=0A= =0A= set testfile "gdb1291"=0A= set srcfile ${testfile}.c=0A= set binfile ${objdir}/${subdir}/${testfile}=0A= if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable = {debug}] !=3D "" } {=0A= gdb_suppress_entire_file "Testcase compile failed, so all tests in this= file will automatically fail."=0A= }=0A= =0A= gdb_exit=0A= gdb_start=0A= gdb_reinitialize_dir $srcdir/$subdir=0A= gdb_load ${binfile}=0A= =0A= #=0A= # Run to `main' where we begin our tests.=0A= #=0A= =0A= if ![runto_main] then {=0A= gdb_suppress_tests=0A= }=0A= =0A= gdb_test "b sub" "Breakpoint 2*" "set breakpoint"=0A= gdb_test "c" "Breakpoint 2*" "get to sub"=0A= gdb_test "bt" "#0\[ \t\]*$hex \\(\\) at sh-bt.*\r\n#1\[ \t\]*$hex in main.*= " \=0A= "backtrace in gdb1291"=0A= ------=_NextPart_000_0F54_01C39E1D.0ED7CDD0 Content-Type: application/octet-stream; name="gdb1431.c" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="gdb1431.c" Content-length: 822 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"); ------=_NextPart_000_0F54_01C39E1D.0ED7CDD0--