From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 2227 invoked by alias); 10 Apr 2014 12:49:47 -0000 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 Received: (qmail 2217 invoked by uid 89); 10 Apr 2014 12:49:47 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.9 required=5.0 tests=AWL,BAYES_00,RP_MATCHES_RCVD autolearn=ham version=3.3.2 X-HELO: mga11.intel.com Received: from mga11.intel.com (HELO mga11.intel.com) (192.55.52.93) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 10 Apr 2014 12:49:46 +0000 Received: from fmsmga002.fm.intel.com ([10.253.24.26]) by fmsmga102.fm.intel.com with ESMTP; 10 Apr 2014 05:49:44 -0700 X-ExtLoop1: 1 Received: from irvmail001.ir.intel.com ([163.33.26.43]) by fmsmga002.fm.intel.com with ESMTP; 10 Apr 2014 05:49:43 -0700 Received: from ulliclel004.iul.intel.com (ulliclel004.iul.intel.com [172.28.50.125]) by irvmail001.ir.intel.com (8.14.3/8.13.6/MailSET/Hub) with ESMTP id s3ACnMKB010719; Thu, 10 Apr 2014 13:49:27 +0100 Received: from ulliclel004.iul.intel.com (ulliclel004.iul.intel.com [127.0.0.1]) by ulliclel004.iul.intel.com (8.13.8/8.12.8/MailSET/client) with ESMTP id s3ACmLrl026783; Thu, 10 Apr 2014 14:48:52 +0200 Received: (from sagovic@localhost) by ulliclel004.iul.intel.com (8.13.8/8.13.1/Submit) id s3ACmFM5026782; Thu, 10 Apr 2014 14:48:15 +0200 From: Sanimir Agovic To: brobecker@adacore.com Cc: gdb-patches@sourceware.org, tromey@redhat.com Subject: [PATCH v6 11/15] test: cover subranges with present DW_AT_count attribute Date: Thu, 10 Apr 2014 12:49:00 -0000 Message-Id: <1397133617-26681-12-git-send-email-sanimir.agovic@intel.com> In-Reply-To: <1397133617-26681-1-git-send-email-sanimir.agovic@intel.com> References: <1397133617-26681-1-git-send-email-sanimir.agovic@intel.com> X-IsSubscribed: yes X-SW-Source: 2014-04/txt/msg00168.txt.bz2 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. 2013-11-26 Sanimir Agovic Keven Boell testsuite: * gdb.dwarf2/count.exp: New file. Signed-off-by: Sanimir Agovic --- gdb/testsuite/gdb.dwarf2/count.exp | 125 +++++++++++++++++++++++++++++++++++++ 1 file changed, 125 insertions(+) create mode 100644 gdb/testsuite/gdb.dwarf2/count.exp 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" -- 1.8.4.2