From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21013 invoked by alias); 8 Oct 2004 18:35:06 -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 20955 invoked from network); 8 Oct 2004 18:35:02 -0000 Received: from unknown (HELO nevyn.them.org) (66.93.172.17) by sourceware.org with SMTP; 8 Oct 2004 18:35:02 -0000 Received: from drow by nevyn.them.org with local (Exim 4.34 #1 (Debian)) id 1CFza1-0001mH-Pt for ; Fri, 08 Oct 2004 14:35:01 -0400 Date: Fri, 08 Oct 2004 18:35:00 -0000 From: Daniel Jacobowitz To: gdb-patches@sources.redhat.com Subject: [rfa] Dwarf2 testsuite Message-ID: <20041008183500.GA6625@nevyn.them.org> Mail-Followup-To: gdb-patches@sources.redhat.com Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.5.5.1+cvs20040105i X-SW-Source: 2004-10/txt/msg00153.txt.bz2 This patch adds a sample test for DWARF-2 unit testing. It requires: - gas, for the .uleb128/.sleb128 directives among other things - ELF; it could probably be made to work on non-ELF dwarf2 systems but I don't know what changes would be necessary. Perhaps those should be tested separately. I haven't tried, but I wrote it with the intent that it would not care about the host beyond that; it should run on 64-bit ELF targets OK. It just includes a trivial test containing hand-written DIEs for a single CU. This one file I annotated exhaustively, and let me tell you, it was exhausting; for future tests I will allow them to be self-documenting (the comments don't say anything that compiling the file and running readelf won't tell you). The test itself just demonstrates that the dwarf2 reader isn't completely busted. But more interesting tests could be easily added. Look OK? Suggestions? -- Daniel Jacobowitz 2004-10-08 Daniel Jacobowitz * configure.in: Add gdb.dwarf2. * configure: Regenerated. * Makefile.in: Add gdb.dwarf2. * gdb.dwarf2/Makefile.in, gdb.dwarf2/dw2-basic.S, gdb.dwarf2/dw2-basic.exp, gdb.dwarf2/main.c, gdb.dwarf2/file1.txt, gdb.dwarf2/file2.txt: New files. Index: Makefile.in =================================================================== RCS file: /cvs/src/src/gdb/testsuite/Makefile.in,v retrieving revision 1.10 diff -u -p -r1.10 Makefile.in --- Makefile.in 20 Aug 2004 14:52:36 -0000 1.10 +++ Makefile.in 8 Oct 2004 18:27:33 -0000 @@ -36,6 +36,7 @@ EXEEXT = @EXEEXT@ SUBDIRS = @subdirs@ RPATH_ENVVAR = @RPATH_ENVVAR@ ALL_SUBDIRS = gdb.ada gdb.arch gdb.asm gdb.base gdb.cp gdb.disasm \ + gdb.dwarf2 \ gdb.fortran gdb.java gdb.mi gdb.objc gdb.threads gdb.trace \ $(SUBDIRS) Index: configure =================================================================== RCS file: /cvs/src/src/gdb/testsuite/configure,v retrieving revision 1.15 diff -u -p -r1.15 configure --- configure 17 Aug 2004 16:33:25 -0000 1.15 +++ configure 8 Oct 2004 18:27:33 -0000 @@ -1052,8 +1052,8 @@ ac_given_srcdir=$srcdir trap 'rm -fr `echo "Makefile \ gdb.ada/Makefile gdb.ada/gnat_ada.gpr:gdb.ada/gnat_ada.gin \ gdb.arch/Makefile gdb.asm/Makefile gdb.base/Makefile \ - gdb.cp/Makefile gdb.disasm/Makefile gdb.fortran/Makefile \ - gdb.java/Makefile gdb.mi/Makefile \ + gdb.cp/Makefile gdb.disasm/Makefile gdb.dwarf2/Makefile \ + gdb.fortran/Makefile gdb.java/Makefile gdb.mi/Makefile \ gdb.objc/Makefile gdb.threads/Makefile gdb.trace/Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF Index: configure.in =================================================================== RCS file: /cvs/src/src/gdb/testsuite/configure.in,v retrieving revision 1.16 diff -u -p -r1.16 configure.in --- configure.in 17 Aug 2004 16:33:26 -0000 1.16 +++ configure.in 8 Oct 2004 18:27:33 -0000 @@ -121,6 +121,6 @@ AC_CONFIG_SUBDIRS($configdirs) AC_OUTPUT([Makefile \ gdb.ada/Makefile gdb.ada/gnat_ada.gpr:gdb.ada/gnat_ada.gin \ gdb.arch/Makefile gdb.asm/Makefile gdb.base/Makefile \ - gdb.cp/Makefile gdb.disasm/Makefile gdb.fortran/Makefile \ - gdb.java/Makefile gdb.mi/Makefile \ + gdb.cp/Makefile gdb.disasm/Makefile gdb.dwarf2/Makefile \ + gdb.fortran/Makefile gdb.java/Makefile gdb.mi/Makefile \ gdb.objc/Makefile gdb.threads/Makefile gdb.trace/Makefile]) diff -urN empty/Makefile.in gdb.dwarf2/Makefile.in --- empty/Makefile.in 1969-12-31 19:00:00.000000000 -0500 +++ gdb.dwarf2/Makefile.in 2004-10-08 13:02:16.000000000 -0400 @@ -0,0 +1,18 @@ +VPATH = @srcdir@ +srcdir = @srcdir@ + +EXECUTABLES = *.x + +all info install-info dvi install uninstall installcheck check: + @echo "Nothing to be done for $@..." + +clean mostlyclean: + -rm -f *~ *.o a.out *.x *.ci *.tmp + -rm -f core core.coremaker coremaker.core corefile + -rm -f $(EXECUTABLES) + +distclean maintainer-clean realclean: clean + -rm -f *~ core + -rm -f Makefile config.status config.log + -rm -f *-init.exp + -rm -fr *.log summary detail *.plog *.sum *.psum site.* diff -urN empty/dw2-basic.S gdb.dwarf2/dw2-basic.S --- empty/dw2-basic.S 1969-12-31 19:00:00.000000000 -0500 +++ gdb.dwarf2/dw2-basic.S 2004-10-08 14:23:40.000000000 -0400 @@ -0,0 +1,201 @@ +/* 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. */ + +/* Test a minimal file containing DWARF-2 information. This test also + serves as a skeleton for other DWARF-2 tests. Most other tests will + not be this extensively itemized and commented... */ + +/* Dummy function to provide debug information for. */ + + .text +.Lbegin_text1: + .globl func_cu1 + .type func_cu1, %function +func_cu1: +.Lbegin_func_cu1: + .int 0 +.Lend_func_cu1: + .size func_cu1, .-func_cu1 +.Lend_text1: + +/* Debug information */ + + .section .debug_info +.Lcu1_begin: + /* CU header */ + .int .Lcu1_end - .Lcu1_start /* Length of Compilation Unit */ +.Lcu1_start: + .short 2 /* DWARF Version */ + .int .Labbrev1_begin /* Offset into abbrev section */ + .byte 4 /* Pointer size */ + + /* CU die */ + .uleb128 1 /* Abbrev: DW_TAG_compile_unit */ + .int .Lline1_begin /* DW_AT_stmt_list */ + .int .Lend_text1 /* DW_AT_high_pc */ + .int .Lbegin_text1 /* DW_AT_low_pc */ + .ascii "file1.txt\0" /* DW_AT_name */ + .ascii "GNU C 3.3.3\0" /* DW_AT_producer */ + .byte 1 /* DW_AT_language (C) */ + + /* func_cu1 */ + .uleb128 2 /* Abbrev: DW_TAG_subprogram */ + .byte 1 /* DW_AT_external */ + .byte 1 /* DW_AT_decl_file */ + .byte 2 /* DW_AT_decl_line */ + .ascii "func_cu1\0" /* DW_AT_name */ + .int .Ltype_int-.Lcu1_begin /* DW_AT_type */ + .int .Lbegin_func_cu1 /* DW_AT_low_pc */ + .int .Lend_func_cu1 /* DW_AT_high_pc */ + .byte 1 /* DW_AT_frame_base: length */ + .byte 0x55 /* DW_AT_frame_base: DW_OP_reg5 */ + +.Ltype_int: + .uleb128 3 /* Abbrev: DW_TAG_base_type */ + .ascii "int\0" /* DW_AT_name */ + .byte 4 /* DW_AT_byte_size */ + .byte 5 /* DW_AT_encoding */ + + .byte 0 /* End of children of CU */ + +.Lcu1_end: + +/* Abbrev table */ + .section .debug_abbrev +.Labbrev1_begin: + .uleb128 1 /* Abbrev code */ + .uleb128 0x11 /* DW_TAG_compile_unit */ + .byte 1 /* has_children */ + .uleb128 0x10 /* DW_AT_stmt_list */ + .uleb128 0x6 /* DW_FORM_data4 */ + .uleb128 0x12 /* DW_AT_high_pc */ + .uleb128 0x1 /* DW_FORM_addr */ + .uleb128 0x11 /* DW_AT_low_pc */ + .uleb128 0x1 /* DW_FORM_addr */ + .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 */ + + .uleb128 2 /* Abbrev code */ + .uleb128 0x2e /* DW_TAG_subprogram */ + .byte 0 /* has_children */ + .uleb128 0x3f /* DW_AT_external */ + .uleb128 0xc /* DW_FORM_flag */ + .uleb128 0x3a /* DW_AT_decl_file */ + .uleb128 0xb /* DW_FORM_data1 */ + .uleb128 0x3b /* DW_AT_decl_line */ + .uleb128 0xb /* DW_FORM_data1 */ + .uleb128 0x3 /* DW_AT_name */ + .uleb128 0x8 /* DW_FORM_string */ + .uleb128 0x49 /* DW_AT_type */ + .uleb128 0x13 /* DW_FORM_ref4 */ + .uleb128 0x11 /* DW_AT_low_pc */ + .uleb128 0x1 /* DW_FORM_addr */ + .uleb128 0x12 /* DW_AT_high_pc */ + .uleb128 0x1 /* DW_FORM_addr */ + .uleb128 0x40 /* DW_AT_frame_base */ + .uleb128 0xa /* DW_FORM_block1 */ + .byte 0x0 /* Terminator */ + .byte 0x0 /* Terminator */ + + .uleb128 3 /* Abbrev code */ + .uleb128 0x24 /* DW_TAG_base_type */ + .byte 0 /* has_children */ + .uleb128 0x3 /* DW_AT_name */ + .uleb128 0x8 /* DW_FORM_string */ + .uleb128 0xb /* DW_AT_byte_size */ + .uleb128 0xb /* DW_FORM_data1 */ + .uleb128 0x3e /* DW_AT_encoding */ + .uleb128 0xb /* DW_FORM_data1 */ + .byte 0x0 /* Terminator */ + .byte 0x0 /* Terminator */ + + .byte 0x0 /* Terminator */ + .byte 0x0 /* Terminator */ + +/* Line table */ + .section .debug_line +.Lline1_begin: + .int .Lline1_end - .Lline1_start /* Initial length */ +.Lline1_start: + .short 2 /* Version */ + .int .Lline1_lines - .Lline1_hdr /* header_length */ +.Lline1_hdr: + .byte 1 /* Minimum insn length */ + .byte 1 /* default_is_stmt */ + .byte 1 /* line_base */ + .byte 1 /* line_range */ + .byte 0x10 /* opcode_base */ + + /* Standard lengths */ + .byte 0 + .byte 1 + .byte 1 + .byte 1 + .byte 1 + .byte 0 + .byte 0 + .byte 0 + .byte 1 + .byte 0 + .byte 0 + .byte 1 + .byte 0 + .byte 0 + .byte 0 + + /* Include directories */ + .byte 0 + + /* File names */ + .ascii "file1.txt\0" + .uleb128 0 + .uleb128 0 + .uleb128 0 + + .byte 0 + +.Lline1_lines: + .byte 0 /* DW_LNE_set_address */ + .uleb128 5 + .byte 2 + .int .Lbegin_func_cu1 + + .byte 3 /* DW_LNS_advance_line */ + .sleb128 3 /* ... to 4 */ + + .byte 1 /* DW_LNS_copy */ + + .byte 1 /* DW_LNS_copy (second time as an end-of-prologue marker) */ + + .byte 0 /* DW_LNE_set_address */ + .uleb128 5 + .byte 2 + .int .Lend_func_cu1 + + .byte 0 /* DW_LNE_end_of_sequence */ + .uleb128 1 + .byte 1 + +.Lline1_end: diff -urN empty/dw2-basic.exp gdb.dwarf2/dw2-basic.exp --- empty/dw2-basic.exp 1969-12-31 19:00:00.000000000 -0500 +++ gdb.dwarf2/dw2-basic.exp 2004-10-08 14:29:41.000000000 -0400 @@ -0,0 +1,52 @@ +# 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. + +# Minimal DWARF-2 unit test + +# 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 *-*-elf*] + && ![istarget arm-*-eabi*] + && ![istarget powerpc-*-eabi*]} { + return 0 +} + +set testfile "dw2-basic" +set srcfile ${testfile}.S +set binfile ${objdir}/${subdir}/${testfile}.x + +if { [gdb_compile "${srcdir}/${subdir}/main.c" "main.o" object {debug}] != "" } { + return -1 +} + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${testfile}.o" object {nodebug}] != "" } { + return -1 +} + +if { [gdb_compile "${testfile}.o main.o" "${binfile}" executable {debug}] != "" } { + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +gdb_test "set listsize 1" "" +gdb_test "list func_cu1" "4\tFile 1 Line 4" +gdb_test "ptype func_cu1" "type = int \\(\\)" diff -urN empty/file1.txt gdb.dwarf2/file1.txt --- empty/file1.txt 1969-12-31 19:00:00.000000000 -0500 +++ gdb.dwarf2/file1.txt 2004-10-08 13:04:55.000000000 -0400 @@ -0,0 +1,8 @@ +File 1 Line 1 +File 1 Line 2 +File 1 Line 3 +File 1 Line 4 +File 1 Line 5 +File 1 Line 6 +File 1 Line 7 +File 1 Line 8 diff -urN empty/file2.txt gdb.dwarf2/file2.txt --- empty/file2.txt 1969-12-31 19:00:00.000000000 -0500 +++ gdb.dwarf2/file2.txt 2004-10-08 13:05:12.000000000 -0400 @@ -0,0 +1,8 @@ +File 2 Line 1 +File 2 Line 2 +File 2 Line 3 +File 2 Line 4 +File 2 Line 5 +File 2 Line 6 +File 2 Line 7 +File 2 Line 8 diff -urN empty/main.c gdb.dwarf2/main.c --- empty/main.c 1969-12-31 19:00:00.000000000 -0500 +++ gdb.dwarf2/main.c 2004-10-08 14:18:34.000000000 -0400 @@ -0,0 +1,26 @@ +/* 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. */ + +/* Dummy main function. */ + +int +main() +{ + return 0; +}