From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 4866 invoked by alias); 30 Dec 2011 21:54:25 -0000 Received: (qmail 4858 invoked by uid 22791); 30 Dec 2011 21:54:24 -0000 X-SWARE-Spam-Status: No, hits=-2.6 required=5.0 tests=AWL,BAYES_00,RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from rock.gnat.com (HELO rock.gnat.com) (205.232.38.15) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 30 Dec 2011 21:54:08 +0000 Received: from localhost (localhost.localdomain [127.0.0.1]) by filtered-rock.gnat.com (Postfix) with ESMTP id DFC9A2BB255 for ; Fri, 30 Dec 2011 16:54:07 -0500 (EST) Received: from rock.gnat.com ([127.0.0.1]) by localhost (rock.gnat.com [127.0.0.1]) (amavisd-new, port 10024) with LMTP id jVm+t2qjufTF for ; Fri, 30 Dec 2011 16:54:07 -0500 (EST) Received: from kwai.gnat.com (kwai.gnat.com [205.232.38.4]) by rock.gnat.com (Postfix) with ESMTP id C4B2B2BB20A for ; Fri, 30 Dec 2011 16:54:07 -0500 (EST) Received: by kwai.gnat.com (Postfix, from userid 1345) id B6DB13FEE8; Fri, 30 Dec 2011 16:54:07 -0500 (EST) From: Paul Hilfinger To: gdb-patches@sourceware.org Subject: Re: [RFA] Add testcase for locals identified with FUNCTION::VAR syntax. Reply-to: Hilfinger@adacore.com Message-Id: <20111230215407.B6DB13FEE8@kwai.gnat.com> Date: Fri, 30 Dec 2011 22:27:00 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org X-SW-Source: 2011-12/txt/msg00908.txt.bz2 Revised test case, with suggested revisions. Paul N. Hilfinger (Hilfinger@adacore.com) This test stops inside a recursive function after a few levels of recursion, goes up some frames, and then accesses a local variable with 'print foo::val' rather than the usual 'print val' to see if the former pays attention to the selected frame. 2011-12-27 Paul Hilfinger Joel Brobecker * gdb.base/recpar.c, gdb.base/recpar.exp: New files. --- gdb/testsuite/ChangeLog | 9 ++++++++ gdb/testsuite/gdb.base/recpar.c | 42 +++++++++++++++++++++++++++++++++++++ gdb/testsuite/gdb.base/recpar.exp | 42 +++++++++++++++++++++++++++++++++++++ 3 files changed, 93 insertions(+), 0 deletions(-) create mode 100644 gdb/testsuite/gdb.base/recpar.c create mode 100644 gdb/testsuite/gdb.base/recpar.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 91b9487..ef85468 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2011-12-30 Paul Hilfinger + + * gdb.base/recpar.exp: Use standard definitions ($decimal, $hex) + in place of local ones. + +2011-12-27 Paul Hilfinger + + * gdb.base/recpar.c, gdb.base/recpar.exp: New files. + 2011-12-30 Edjunior Machado * gdb.python/py-finish-breakpoint.exp: Add `.' prefix for ppc64. diff --git a/gdb/testsuite/gdb.base/recpar.c b/gdb/testsuite/gdb.base/recpar.c new file mode 100644 index 0000000..bba5f5a --- /dev/null +++ b/gdb/testsuite/gdb.base/recpar.c @@ -0,0 +1,42 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2011 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 . */ + +int +foo (int n) +{ + int val = n; + + { + char val = n ? 'y' : 'n'; /* Hides upper-level `val'. */ + + if (val == 'y') /* BREAK */ + return n + foo (n - 1); + } + + return 0; +} + +int +main (void) +{ + int res = foo (5); + + if (res != 15) /* Dummy use of variable res. */ + return 1; + + return 0; +} diff --git a/gdb/testsuite/gdb.base/recpar.exp b/gdb/testsuite/gdb.base/recpar.exp new file mode 100644 index 0000000..fe7a70a --- /dev/null +++ b/gdb/testsuite/gdb.base/recpar.exp @@ -0,0 +1,42 @@ +# Copyright (C) 2011 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 . + +set testfile recpar +set srcfile ${testfile}.c +if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } { + return -1 +} + +if ![runto_main] { + untested ${testfile}.exp + return -1 +} + +gdb_test "break $srcfile:[gdb_get_line_number BREAK $srcfile] if n == 3" \ + "Breakpoint $decimal at $hex: file .*recpar\\.c, line $decimal\\." + +gdb_test "continue" \ + "Breakpoint .* foo \\(n=3\\) at .*$srcfile:$decimal.*" + +gdb_test "backtrace" \ + "#0 +foo \\(n=3\\).*\r\n#1.* foo \\(n=4\\).*\r\n#2.* foo \\(n=5\\).*#3.* main \\(\\).*" + +gdb_test "frame 2" \ + "#2 .* foo \\(n=5\\) .*" + +# In the currently selected frame, n=5, and thus foo::val should be 5 +# as well. +gdb_test "print foo::val" \ + " = 5" -- 1.7.0.4