From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 7231 invoked by alias); 24 Nov 2003 20:31:22 -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 7202 invoked from network); 24 Nov 2003 20:31:21 -0000 Received: from unknown (HELO blount.mail.mindspring.net) (207.69.200.226) by sources.redhat.com with SMTP; 24 Nov 2003 20:31:21 -0000 Received: from user-119a90a.biz.mindspring.com ([66.149.36.10] helo=berman.michael-chastain.com) by blount.mail.mindspring.net with esmtp (Exim 3.33 #1) id 1AONMZ-0007ja-00; Mon, 24 Nov 2003 15:31:15 -0500 Received: by berman.michael-chastain.com (Postfix, from userid 502) id 3A8FB4B409; Mon, 24 Nov 2003 15:31:22 -0500 (EST) To: carlton@kealia.com, gdb-patches@sources.redhat.com Subject: [rfc/testsuite/c++] c2.exp, new script for class lookup Message-Id: <20031124203122.3A8FB4B409@berman.michael-chastain.com> Date: Mon, 24 Nov 2003 20:31:00 -0000 From: mec.gnu@mindspring.com (Michael Elizabeth Chastain) X-SW-Source: 2003-11/txt/msg00540.txt.bz2 This is my next try for a new test script to test class lookup. This is just the first part of my previous script, the simple part before any destructors get called. It should just work but it exposes a bug in type lookup, PR gdb/1465. Testing: gcc 2.95.3 -gdwarf-2 6 PASS, 1 KFAIL gcc 2.95.3 -gstabs+ 7 PASS gcc 3.3.2 -gdwarf-2 7 PASS gcc 3.3.2 -gstabs+ 7 PASS I'm not completely happy with the name "c2" ("class 2"). I will give this a day or two for comment and then commit it. Michael C === 2003-11-24 Michael Chastain * gdb/c2.exp: New file. * gdb/c2.cc: New file. === c2.cc /* This testcase is part of GDB, the GNU debugger. 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@prep.ai.mit.edu */ struct A { virtual ~A (); int a1; }; A::~A() { a1 = 800; } struct B : public A { virtual ~B (); int b1; int b2; }; B::~B() { a1 = 900; b1 = 901; b2 = 902; } // Stop the compiler from optimizing away data. void refer (A *) { ; } int main (void) { A alpha, *aap, *abp; B beta, *bbp; alpha.a1 = 100; beta.a1 = 200; beta.b1 = 201; beta.b2 = 202; aap = α refer (aap); abp = β refer (abp); bbp = β refer (bbp); return 0; // marker return 0 } // marker close brace === c2.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. if $tracelevel then { strace $tracelevel } if { [skip_cplus_tests] } { continue } set prms_id 0 set bug_id 0 set testfile "c2" set srcfile ${testfile}.cc set binfile ${objdir}/${subdir}/${testfile} # Create and source the file that provides information about the compiler # used to compile the test case. if [get_compiler_info ${binfile} "c++"] { return -1 } if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } { 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} # Start with "set print object off". gdb_test "set print object off" "" if ![runto_main] then { perror "couldn't run to main" continue } get_debug_format gdb_test "break [gdb_get_line_number "marker return 0"]" \ "Breakpoint.*at.* file .*" "" gdb_test "continue" "Breakpoint .* at .*" "" # Access the "A" object. gdb_test "print alpha" \ "= {.*a1 = 100.*}" \ "print alpha at marker return 0" # Access the "B" object. gdb_test "print beta" \ "= {.*a1 = 200.*b1 = 201.*b2 = 202}" \ "print beta at marker return 0" # Access the "A" object through an "A *" pointer. gdb_test_multiple "print * aap" "print * aap at marker return 0" { -re "= {.*a1 = 100.*}\r\n$gdb_prompt $" { # gcc 2.95.3 -gstabs+ # gcc 3.3.2 -gdwarf-2 # gcc 3.3.2 -gstabs+ pass "print * aap at marker return 0" } -re "= {.*a1 = .*}\r\n$gdb_prompt $" { if { [test_compiler_info gcc-2-*] && [test_debug_format "DWARF 2"] } { # gcc 2.95.3 -gdwarf-2 setup_kfail "gdb/1465" "*-*-*" } fail "print * aap at marker return 0" } } # Access the "B" object through a "B *" pointer. gdb_test "print * bbp" \ "= {.*a1 = 200.*b1 = 201.*b2 = 202}" \ "print * bbp at marker return 0" # Access the "B" object through an "A *" pointer. # This should print using the "A" type. gdb_test_multiple "print * abp" "print * abp at marker return 0, s-p-o off" { -re "= {.*a1 = 200.*b1 = .*b2 = .*}\r\n$gdb_prompt $" { # This would violate the documentation for "set print object off". fail "print * abp at marker return 0, s-p-o off" } -re "= {.*a1 = 200.*}\r\n$gdb_prompt $" { pass "print * abp at marker return 0, s-p-o off" } } # Access the "B" object through a "B *" pointer expression. # This should print using the "B" type. gdb_test "print * (B *) abp" \ "= {.*a1 = 200.*b1 = 201.*b2 = 202}" \ "print * (B *) abp at marker return 0"