From patchwork Mon Apr 14 17:13:13 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Joel Brobecker X-Patchwork-Id: 546 Return-Path: X-Original-To: siddhesh@wilcox.dreamhost.com Delivered-To: siddhesh@wilcox.dreamhost.com Received: from homiemail-mx21.g.dreamhost.com (peon2454.g.dreamhost.com [208.113.200.127]) by wilcox.dreamhost.com (Postfix) with ESMTP id 24771360075 for ; Mon, 14 Apr 2014 10:14:42 -0700 (PDT) Received: by homiemail-mx21.g.dreamhost.com (Postfix, from userid 14314964) id D56FD138EB6C; Mon, 14 Apr 2014 10:14:41 -0700 (PDT) X-Original-To: gdb@patchwork.siddhesh.in Delivered-To: x14314964@homiemail-mx21.g.dreamhost.com Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by homiemail-mx21.g.dreamhost.com (Postfix) with ESMTPS id A99F813A5E03 for ; Mon, 14 Apr 2014 10:14:41 -0700 (PDT) DomainKey-Signature: a=rsa-sha1; c=nofws; d=sourceware.org; h=list-id :list-unsubscribe:list-subscribe:list-archive:list-post :list-help:sender:from:to:cc:subject:date:message-id:in-reply-to :references; q=dns; s=default; b=LSHF0SvRWzck3LTSd3K+3ykBsv4ifax tNfRmjcZ7wCrUzrcXNONsDWdkowPqMK0zKBcGgSvNKqW1WH8xdUItjwTp5W+6UOn EI52iUmG92BiK1A92+WxWOvZMEmQ4QP/RwoPYkMYdrF1TYl9SAjbZYU3F7EV0bEp waB0Mky9kZdE= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=sourceware.org; h=list-id :list-unsubscribe:list-subscribe:list-archive:list-post :list-help:sender:from:to:cc:subject:date:message-id:in-reply-to :references; s=default; bh=gHpUgPUvpiJZ55jt4dGQw0Tsbmc=; b=GkOxq lZEsINnaanjzhS0EmGLDz54JjEw9zuuTkQkxeYG1af5OxkYfqIDziaVV/S+JRAZy v4ir+CHaDt7xqLb9QtC1KClcywiiOi4Nd7Yu9booIetUzUklkj4tR+QCoiHqqZIx BuRppU+5s7z30l0wC/eUq0aJE7fjkdByWDfsEM= Received: (qmail 10089 invoked by alias); 14 Apr 2014 17:14:03 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 10015 invoked by uid 89); 14 Apr 2014 17:14:02 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.1 required=5.0 tests=AWL, BAYES_00, RP_MATCHES_RCVD, SPF_PASS autolearn=ham version=3.3.2 X-HELO: rock.gnat.com Received: from rock.gnat.com (HELO rock.gnat.com) (205.232.38.15) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-SHA encrypted) ESMTPS; Mon, 14 Apr 2014 17:14:00 +0000 Received: from localhost (localhost.localdomain [127.0.0.1]) by filtered-rock.gnat.com (Postfix) with ESMTP id DE346116174; Mon, 14 Apr 2014 13:13:58 -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 wZgg6bHOYX5w; Mon, 14 Apr 2014 13:13:58 -0400 (EDT) Received: from joel.gnat.com (localhost.localdomain [127.0.0.1]) by rock.gnat.com (Postfix) with ESMTP id ABA9B1160DB; Mon, 14 Apr 2014 13:13:58 -0400 (EDT) Received: by joel.gnat.com (Postfix, from userid 1000) id 514D1E02C0; Mon, 14 Apr 2014 10:14:04 -0700 (PDT) From: Joel Brobecker To: gdb-patches@sourceware.org Cc: Sanimir Agovic Subject: [PATCH 09/12] test: cover subranges with present DW_AT_count attribute Date: Mon, 14 Apr 2014 10:13:13 -0700 Message-Id: <1397495596-25364-10-git-send-email-brobecker@adacore.com> In-Reply-To: <1397495596-25364-1-git-send-email-brobecker@adacore.com> References: <0377C58828D86C4588AEEC42FC3B85A71D8507B7@IRSMSX105.ger.corp.intel.com> <1397495596-25364-1-git-send-email-brobecker@adacore.com> X-DH-Original-To: gdb@patchwork.siddhesh.in From: Sanimir Agovic The dwarf attribute DW_AT_count specifies the elements of a subrange. This test covers subranges with present count but absent upper bound attribute, both with static and dynamic attribute values. testsuite/ChangeLog: * gdb.dwarf2/count.exp: New file. --- gdb/testsuite/ChangeLog | 4 ++ gdb/testsuite/gdb.dwarf2/count.exp | 125 +++++++++++++++++++++++++++++++++++++ 2 files changed, 129 insertions(+) create mode 100644 gdb/testsuite/gdb.dwarf2/count.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 7d0bd2e..2882a74 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2014-04-14 Sanimir Agovic + * gdb.dwarf2/count.exp: New file. + +2014-04-14 Sanimir Agovic + * gdb.base/vla-sideeffect.c: New file. * gdb.base/vla-sideeffect.exp: New file. diff --git a/gdb/testsuite/gdb.dwarf2/count.exp b/gdb/testsuite/gdb.dwarf2/count.exp new file mode 100644 index 0000000..d52fa62 --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/count.exp @@ -0,0 +1,125 @@ +# Copyright 2014 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 . + +# Tests to cover DW_AT_count attribute in subranges. + +load_lib dwarf.exp + +# Only run on targets which support dwarf and gas. +if { ![dwarf2_support] } { + return 0 +} + +standard_testfile main.c count.S + +set asm_file [standard_output_file $srcfile2] +Dwarf::assemble $asm_file { + cu {} { + compile_unit {{language @DW_LANG_C99}} { + declare_labels char_label array_label array_label2 static_array_label + + char_label: base_type { + {name char} + {encoding @DW_ATE_signed} + {byte_size 1 DW_FORM_sdata} + } + + array_label: array_type { + {type :$char_label} + } { + subrange_type { + {count {DW_OP_lit5} SPECIAL_expr} + {type :$char_label} + } + } + + array_label2: array_type { + {type :$char_label} + } { + subrange_type { + {count {DW_OP_lit1} SPECIAL_expr} + {type :$char_label} + } + } + + static_array_label: array_type { + {type :$char_label} + } { + subrange_type { + {count 5 DW_FORM_sdata} + {type :$char_label} + } + } + + DW_TAG_variable { + {name array2} + {type :$array_label2} + {const_value 65 DW_FORM_udata} + } + + DW_TAG_variable { + {name array} + {type :$array_label} + {const_value hello DW_FORM_block1} + } + + DW_TAG_variable { + {name static_array} + {type :$static_array_label} + {const_value world DW_FORM_block1} + } + } + } +} + +if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ + object {nodebug}] != "" } { + return -1 +} + +if { [gdb_compile $asm_file ${binfile}2.o object {nodebug}] != "" } { + return -1 +} + +if { [gdb_compile [list ${binfile}1.o ${binfile}2.o] \ + "${binfile}" executable {}] != "" } { + return -1 +} + +global GDBFLAGS +set saved_gdbflags $GDBFLAGS +set GDBFLAGS [concat $GDBFLAGS " -readnow"] +clean_restart ${testfile} +set GDBFLAGS $saved_gdbflags + +if ![runto_main] { + perror "couldn't run to main" + return -1 +} + +gdb_test "ptype array" "type = char \\\[5\\\]" "ptype array" +gdb_test "whatis array" "type = char \\\[5\\\]" "whatis array" +gdb_test "print array" " = \"hello\"" "print array" +gdb_test "print sizeof array" " = 5" "print sizeof array" + +gdb_test "ptype array2" "type = char \\\[1\\\]" "ptype array" +gdb_test "whatis array2" "type = char \\\[1\\\]" "whatis array" +gdb_test "print array2" " = \"A\"" "print array" +gdb_test "print sizeof array2" " = 1" "print sizeof array" + +gdb_test "ptype static_array" "type = char \\\[5\\\]" "ptype static_array" +gdb_test "whatis static_array" "type = char \\\[5\\\]" "whatis static_array" +gdb_test "print static_array" " = \"world\"" "print static_array" +gdb_test "print sizeof static_array" " = 5" "print sizeof static_array"