From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 27461 invoked by alias); 24 Sep 2004 22:38:38 -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 27281 invoked from network); 24 Sep 2004 22:38:19 -0000 Received: from unknown (HELO mx1.redhat.com) (66.187.233.31) by sourceware.org with SMTP; 24 Sep 2004 22:38:19 -0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.12.11/8.12.10) with ESMTP id i8OMcFEY027919 for ; Fri, 24 Sep 2004 18:38:15 -0400 Received: from localhost.redhat.com (porkchop.devel.redhat.com [172.16.58.2]) by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id i8OMc3r00932; Fri, 24 Sep 2004 18:38:08 -0400 Received: from gnu.org (localhost [127.0.0.1]) by localhost.redhat.com (Postfix) with ESMTP id 022F628D2; Fri, 24 Sep 2004 18:35:46 -0400 (EDT) Message-ID: <4154A142.2030605@gnu.org> Date: Fri, 24 Sep 2004 22:38:00 -0000 From: Andrew Cagney User-Agent: Mozilla/5.0 (X11; U; NetBSD macppc; en-GB; rv:1.4.1) Gecko/20040831 MIME-Version: 1.0 To: pgilliam@us.ibm.com, David Lecomber Cc: gdb-patches@sources.redhat.com, Michael Chastain Subject: Test "set backtrace ..."; [PATCH] Fixes testsuit/gdb.base/annota1.exp References: <200409211441.33901.pgilliam@us.ibm.com> <200409220953.53052.pgilliam@us.ibm.com> <4151D7B4.1080306@gnu.org> <200409221910.41605.pgilliam@us.ibm.com> In-Reply-To: <200409221910.41605.pgilliam@us.ibm.com> Content-Type: multipart/mixed; boundary="------------060900070207040904010809" X-SW-Source: 2004-09/txt/msg00425.txt.bz2 This is a multi-part message in MIME format. --------------060900070207040904010809 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit Content-length: 243 I've attached the startings of a new test. The intent is to confirm that all of backtrace to main, past main, with limit et.al. actually work. Paul, David, perhaphs see what you can do with this (I've yet to even try running it). Andrew --------------060900070207040904010809 Content-Type: text/plain; name="diffs" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="diffs" Content-length: 3793 ? diffs Index: setbacktrace.c =================================================================== RCS file: setbacktrace.c diff -N setbacktrace.c --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ setbacktrace.c 24 Sep 2004 22:29:35 -0000 @@ -0,0 +1,33 @@ +/* This testcase is part of GDB, the GNU debugger. + + 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. */ + +int +factorial (int n) +{ + if (n > 0) + return factorial (n - 1) * n; + else + return 1; +} + +int +main () +{ + return factorial (3); +} Index: setbacktrace.exp =================================================================== RCS file: setbacktrace.exp diff -N setbacktrace.exp --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ setbacktrace.exp 24 Sep 2004 22:29:35 -0000 @@ -0,0 +1,82 @@ +# This file is part of the gdb testsuite. + +# 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. + +# Check GDB's ability to control the backtrace using the set/show +# backtrace settings. + +if $tracelevel { + strace $tracelevel +} + +set prms_id 0 +set bug_id 0 + +set testfile setbacktrace +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + untested "Couldn't compile ${testfile}.c" + return -1 +} + +# get things started +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +# Advance to main +if { ![runto_main] } then { + gdb_suppress_tests; +} + +proc gdb_test_list { command name tests } { + global gdb_prompt + + send_gdb "${command\n" + gdb_expect_list "$name" ".*$gdb_prompt " $tests +} + +# Check that someone has not snuck in an extra backtrace option, if +# they do they will need to fix this and any such fix should also be +# accompanied by a corresponding SET test. +set test "show backtrace" +gdb_test_list "set backtrace" { + "limit: The upper bound on the number of bactrace levels is unlimited." + "past-main: Whether backtraces should continue past \"main\" is off. +} + + +# create a simple stack +gdb_test "break factorial if n == 0" +gdb_continue + + +# check a backtrace to main + + +# check a backtrace past main, specify a backtrace limit so it does not fall off the end of the stack + + +# re-check that bactrace to main + + +# set the backtrace limit + + +# re-set limit to unlimited --------------060900070207040904010809--