From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 19603 invoked by alias); 19 Nov 2010 05:25:37 -0000 Received: (qmail 19586 invoked by uid 22791); 19 Nov 2010 05:25:36 -0000 X-SWARE-Spam-Status: No, hits=-6.2 required=5.0 tests=AWL,BAYES_00,RCVD_IN_DNSWL_HI,SPF_HELO_PASS,TW_XF,T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 19 Nov 2010 05:25:31 +0000 Received: from int-mx01.intmail.prod.int.phx2.redhat.com (int-mx01.intmail.prod.int.phx2.redhat.com [10.5.11.11]) by mx1.redhat.com (8.13.8/8.13.8) with ESMTP id oAJ5PTAa018074 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Fri, 19 Nov 2010 00:25:29 -0500 Received: from host0.dyn.jankratochvil.net (ovpn01.gateway.prod.ext.phx2.redhat.com [10.5.9.1]) by int-mx01.intmail.prod.int.phx2.redhat.com (8.13.8/8.13.8) with ESMTP id oAJ5POSS013766 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Fri, 19 Nov 2010 00:25:28 -0500 Received: from host0.dyn.jankratochvil.net (localhost.localdomain [127.0.0.1]) by host0.dyn.jankratochvil.net (8.14.4/8.14.4) with ESMTP id oAJ5PMpW031332 for ; Fri, 19 Nov 2010 06:25:22 +0100 Received: (from jkratoch@localhost) by host0.dyn.jankratochvil.net (8.14.4/8.14.4/Submit) id oAJ5PL0g031329 for gdb-patches@sourceware.org; Fri, 19 Nov 2010 06:25:21 +0100 Date: Fri, 19 Nov 2010 05:25:00 -0000 From: Jan Kratochvil To: gdb-patches@sourceware.org Subject: [patch] new test: Ada 0xffffffff size attribute value Message-ID: <20101119052519.GA24896@host0.dyn.jankratochvil.net> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.5.21 (2010-09-15) X-IsSubscribed: yes 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-11/txt/msg00251.txt.bz2 Hi, workaround of the GCC Bug: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35998 First post: [patch] Workaround ada (gnat-4.3.0) on x86_64 http://sourceware.org/ml/gdb-patches/2008-04/msg00427.html Fix check-in: 073fb4d687908530530f195d0fe1ca11f76400f0 [RFA/RFC/dwarf] detect 0xffffffff size attribute values http://sourceware.org/ml/gdb-patches/2008-06/msg00341.html So posting here a testcase. Tested on {x86_64,x86_64-m32}-fedora14-linux-gnu. I will check it in in some days. Thanks, Jan gdb/testsuite/ 2010-11-19 Jan Kratochvil * gdb.dwarf2/dw2-ada-ffffffff.S: New file. * gdb.dwarf2/dw2-ada-ffffffff.exp: New file. --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.S @@ -0,0 +1,55 @@ +/* Copyright 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 . */ + + .section .debug_info +debug_start: + .long debug_end - 1f /* Length of Compilation Unit Info */ +1: + .2byte 0x3 /* DWARF version number */ + .long .Ldebug_abbrev0 /* Offset Into Abbrev. Section */ + .byte 0x4 /* Pointer Size (in bytes) */ + .uleb128 0x1 /* (DIE (0xb) DW_TAG_compile_unit) */ + .ascii "GNU C 4.4.3\0" /* DW_AT_producer */ + .byte 0x03 /* DW_AT_language = DW_LANG_Ada83 */ + .ascii "1.adb\0" /* DW_AT_name */ + .uleb128 0x4 /* DW_TAG_structure_type */ + .ascii "t\0" /* DW_AT_name */ + .4byte 0xffffffff /* DW_AT_byte_size */ + .byte 0x0 /* end of children of CU */ +debug_end: + + .section .debug_abbrev +.Ldebug_abbrev0: + .uleb128 0x1 /* (abbrev code) */ + .uleb128 0x11 /* (TAG: DW_TAG_compile_unit) */ + .byte 0x1 /* DW_children_yes */ + .uleb128 0x25 /* (DW_AT_producer) */ + .uleb128 0x8 /* (DW_FORM_string) */ + .uleb128 0x13 /* (DW_AT_language) */ + .uleb128 0xb /* (DW_FORM_data1) */ + .uleb128 0x3 /* (DW_AT_name) */ + .uleb128 0x8 /* (DW_FORM_string) */ + .byte 0x0 + .byte 0x0 + .uleb128 0x4 /* (abbrev code) */ + .uleb128 0x13 /* (TAG: DW_TAG_structure_type) */ + .byte 0x0 /* DW_children_yes */ + .uleb128 0x3 /* (DW_AT_name) */ + .uleb128 0x8 /* (DW_FORM_string) */ + .uleb128 0x0b /* (DW_AT_byte_size) */ + .uleb128 0x6 /* (DW_FORM_data4) */ + .byte 0x0 + .byte 0x0 + .byte 0x0 --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp @@ -0,0 +1,44 @@ +# Copyright 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 . + +# 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-ada-ffffffff" +set srcfile ${testfile}.S +set executable ${testfile}.x +set binfile ${objdir}/${subdir}/${executable} + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {}] != "" } { + return -1 +} + +clean_restart $executable + +# -1 was produced, it is now caught with the complaint: +# Suspicious DW_AT_byte_size value treated as zero instead of ... +gdb_test "p sizeof (t)" " = 0" + +# Formerly: +# utils.c:N: internal-error: virtual memory exhausted: can't allocate 4294967295 bytes. +gdb_test "ptype t" "type = struct t {\r\n *\r\n}"