From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 23917 invoked by alias); 10 Feb 2005 15:43:01 -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 23339 invoked from network); 10 Feb 2005 15:42:52 -0000 Received: from unknown (HELO mx1.redhat.com) (66.187.233.31) by sourceware.org with SMTP; 10 Feb 2005 15:42:52 -0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.12.11/8.12.11) with ESMTP id j1AFglGG009468 for ; Thu, 10 Feb 2005 10:42:52 -0500 Received: from localhost.redhat.com (to-dhcp51.toronto.redhat.com [172.16.14.151]) by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id j1AFgkO31486; Thu, 10 Feb 2005 10:42:46 -0500 Received: from [127.0.0.1] (localhost.localdomain [127.0.0.1]) by localhost.redhat.com (Postfix) with ESMTP id 3E34B7D79; Thu, 10 Feb 2005 10:42:02 -0500 (EST) Message-ID: <420B80C9.90705@gnu.org> Date: Thu, 10 Feb 2005 17:47:00 -0000 From: Andrew Cagney User-Agent: Mozilla Thunderbird 0.8 (X11/20041020) MIME-Version: 1.0 To: Joel Brobecker Cc: gdb-patches@sources.redhat.com Subject: Re: [RFA/testsuite/ada] New test for packed arrays References: <20050209182219.GF18546@adacore.com> In-Reply-To: <20050209182219.GF18546@adacore.com> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-SW-Source: 2005-02/txt/msg00091.txt.bz2 Joel Brobecker wrote: > This is also the test required by Elena for checking in a change in > dwarf2read.c (http://sources.redhat.com/ml/gdb-patches/2004-11/msg00501.html). > > 2005-02-09 Joel Brobecker > > * gdb.ada/packed_array/pa.adb: New file. > * gdb.ada/packed_array.exp: New testcase. > > Tested on x86-linux. > OK to apply? Yes, ok. Andrew > ------------------------------------------------------------------------ > > -- Copyright 2005 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. > > procedure PA is > > type Packed_Array is array (4 .. 8) of Boolean; > pragma pack (Packed_Array); > > Var : Packed_Array; > > begin > > Var := (True, False, True, False, True); > Var (8) := False; -- STOP > > end PA; > > > ------------------------------------------------------------------------ > > # Copyright 2005 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. > > if $tracelevel then { > strace $tracelevel > } > > load_lib "ada.exp" > > set testdir "packed_array" > set testfile "${testdir}/pa" > set srcfile ${srcdir}/${subdir}/${testfile}.adb > set binfile ${objdir}/${subdir}/${testfile} > > if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { > return -1 > } > > gdb_exit > gdb_start > gdb_reinitialize_dir $srcdir/$subdir > gdb_load ${binfile} > > set bp_location [gdb_get_line_number "STOP" ${testdir}/pa.adb] > runto "pa.adb:$bp_location" > > gdb_test "print var" \ > ".* = \\(4 => true, false, true, false, true\\)" \ > "print var" >