From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 22306 invoked by alias); 2 Sep 2010 15:21:19 -0000 Received: (qmail 22284 invoked by uid 22791); 2 Sep 2010 15:21:15 -0000 X-SWARE-Spam-Status: No, hits=-2.1 required=5.0 tests=AWL,BAYES_00 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; Thu, 02 Sep 2010 15:21:10 +0000 Received: from localhost (localhost.localdomain [127.0.0.1]) by filtered-rock.gnat.com (Postfix) with ESMTP id 55B2A2BACAE; Thu, 2 Sep 2010 11:21:08 -0400 (EDT) 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 ojUVGwO43CQu; Thu, 2 Sep 2010 11:21:08 -0400 (EDT) Received: from joel.gnat.com (localhost.localdomain [127.0.0.1]) by rock.gnat.com (Postfix) with ESMTP id 1C8B62BAC94; Thu, 2 Sep 2010 11:21:07 -0400 (EDT) Received: by joel.gnat.com (Postfix, from userid 1000) id CC1A0F599F; Thu, 2 Sep 2010 17:20:57 +0200 (CEST) Date: Thu, 02 Sep 2010 15:37:00 -0000 From: Joel Brobecker To: Jan Kratochvil Cc: gdb-patches@sourceware.org Subject: Re: [RFA/commit/testsuite] Add test for -file-list-exec-source-files Message-ID: <20100902152057.GM2986@adacore.com> References: <1282242912-31470-1-git-send-email-brobecker@adacore.com> <20100819185432.GA10824@host1.dyn.jankratochvil.net> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="GyRA7555PLgSTuth" Content-Disposition: inline In-Reply-To: <20100819185432.GA10824@host1.dyn.jankratochvil.net> User-Agent: Mutt/1.5.20 (2009-06-14) 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: 2010-09/txt/msg00093.txt.bz2 --GyRA7555PLgSTuth Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-length: 391 > > I almost entirely copied the dw2-basic testcase, and just adapted it > > loosely to do my own test rather than make a minimal one. > > I really do not mind as the existint gdb.dwarf2/ testcases are in many cases > overcomplicated anyway but providing a simplified code still FAILing/PASSing > appropriately. :-) Thanks for doing that! I checked this testcase in as attached. -- Joel --GyRA7555PLgSTuth Content-Type: text/x-diff; charset=us-ascii Content-Disposition: attachment; filename="tc.diff" Content-length: 4748 commit 46713d72258fedf05fb0fa3f385c42b398a3e47b Author: Joel Brobecker Date: Thu Aug 19 20:15:32 2010 +0200 Add test for -file-list-exec-source-files gdb/testsuite/ChangeLog: * gdb.dwarf/dw2-filename.S, gdb.dwarf/dw2-filename.exp: New files. diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 12e33a7..084c227 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-09-02 Jan Kratochvil + Joel Brobecker + + * gdb.dwarf/dw2-filename.S, gdb.dwarf/dw2-filename.exp: New files. + 2010-08-31 Doug Evans * gdb.dwarf2/dw4-sig-types.exp: Use .x for executable name. diff --git a/gdb/testsuite/gdb.dwarf2/dw2-filename.S b/gdb/testsuite/gdb.dwarf2/dw2-filename.S new file mode 100644 index 0000000..7cac4ab --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-filename.S @@ -0,0 +1,53 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2004, 2007, 2008, 2009, 2010 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 . */ + +/* Debug information */ + + .section .debug_info +.Lcu1_begin: + /* CU header */ + .4byte .Lcu1_end - .Lcu1_start /* Length of Compilation Unit */ +.Lcu1_start: + .2byte 2 /* DWARF Version */ + .4byte .Labbrev1_begin /* Offset into abbrev section */ + .byte 4 /* Pointer size */ + + /* CU die */ + .uleb128 1 /* Abbrev: DW_TAG_compile_unit */ + .ascii "file1.txt\0" /* DW_AT_name */ + .ascii "GNU C 3.3.3\0" /* DW_AT_producer */ + .byte 1 /* DW_AT_language (C) */ + +.Lcu1_end: + +/* Abbrev table */ + .section .debug_abbrev +.Labbrev1_begin: + .uleb128 1 /* Abbrev code */ + .uleb128 0x11 /* DW_TAG_compile_unit */ + .byte 0 /* has_children */ + .uleb128 0x3 /* DW_AT_name */ + .uleb128 0x8 /* DW_FORM_string */ + .uleb128 0x25 /* DW_AT_producer */ + .uleb128 0x8 /* DW_FORM_string */ + .uleb128 0x13 /* DW_AT_language */ + .uleb128 0xb /* DW_FORM_data1 */ + .byte 0x0 /* Terminator */ + .byte 0x0 /* Terminator */ + + .byte 0x0 /* Terminator */ + .byte 0x0 /* Terminator */ diff --git a/gdb/testsuite/gdb.dwarf2/dw2-filename.exp b/gdb/testsuite/gdb.dwarf2/dw2-filename.exp new file mode 100644 index 0000000..e1afe64 --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-filename.exp @@ -0,0 +1,44 @@ +# Copyright 2004, 2005, 2007, 2008, 2009, 2010 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 . + +# Note: Inspired from dw2-basic.exp. + +# This test can only be run on targets which support DWARF-2 and use gas. +# For now pick a sampling of likely targets. +if {![istarget *-*-linux*] + && ![istarget *-*-gnu*] + && ![istarget *-*-elf*] + && ![istarget *-*-openbsd*] + && ![istarget arm-*-eabi*] + && ![istarget powerpc-*-eabi*]} { + return 0 +} + +set testfile "dw2-filename" +set srcfile ${testfile}.S +set binfile ${objdir}/${subdir}/${testfile}.x + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {nodebug}] != "" } { + return -1 +} + +clean_restart ${testfile}.x + +# Verify that -file-list-exec-source-files returns a list where +# the "file" is "file1.txt" (file base name), and "fullname" is +# the full path to that file. What we want to verify, most of all, +# is that the file and fullname fields are now inverted. +gdb_test "interpreter-exec mi -file-list-exec-source-files" \ + ".*{file=\"file1\\.txt\",fullname=\".+file1\\.txt\"}.*" --GyRA7555PLgSTuth--