From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-31938-listarch-gdb-patches=sources.redhat.com@sources.redhat.com>
Received: (qmail 2378 invoked by alias); 29 Mar 2004 20:11:42 -0000
Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sources.redhat.com>
List-Help: <mailto:gdb-patches-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: gdb-patches-owner@sources.redhat.com
Received: (qmail 2301 invoked from network); 29 Mar 2004 20:11:39 -0000
Received: from unknown (HELO takamaka.act-europe.fr) (142.179.108.108)
  by sources.redhat.com with SMTP; 29 Mar 2004 20:11:39 -0000
Received: by takamaka.act-europe.fr (Postfix, from userid 507)
	id 0D74D47D62; Mon, 29 Mar 2004 12:11:39 -0800 (PST)
Date: Mon, 29 Mar 2004 20:11:00 -0000
From: Joel Brobecker <brobecker@gnat.com>
To: gdb-patches@sources.redhat.com
Subject: [RFA/testsuite/ada] Add null_record testcase
Message-ID: <20040329201139.GH888@gnat.com>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="4jXrM3lyYWu4nBt5"
Content-Disposition: inline
User-Agent: Mutt/1.4i
X-SW-Source: 2004-03/txt/msg00729.txt.bz2


--4jXrM3lyYWu4nBt5
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-length: 544

This is our first testcase involving an Ada program!

This testcase demonstrate a problem with our dwarf-2 reader, described
in http://sources.redhat.com/ml/gdb-patches/2004-02/msg00533.html.
This test currently fails, and then passes once the suggested patch
is applied.

2004-03-29  J. Brobecker  <brobecker@gnat.com>

        * gdb.ada (bar.ads, bar.adb, null_record.adb): New files.
        * gdb.ada (null_record.exp): New testcase.

Tested on x86-linux (using an Ada-aware version of GDB based on GDB 6.0).
Ok to apply?

Thanks,
-- 
Joel

--4jXrM3lyYWu4nBt5
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="bar.ads"
Content-length: 83


package Bar is

   type Empty is null record;

   procedure Do_Nothing;

end Bar;

--4jXrM3lyYWu4nBt5
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="bar.adb"
Content-length: 98

package body Bar is

   procedure Do_Nothing is
   begin
      null;
   end Do_Nothing;

end Bar;

--4jXrM3lyYWu4nBt5
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="null_record.adb"
Content-length: 84

with Bar; use Bar;

procedure Null_Record is
begin
   Do_Nothing;
end Null_Record;


--4jXrM3lyYWu4nBt5
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="null_record.exp"
Content-length: 537

if $tracelevel then {
    strace $tracelevel
}

load_lib "ada.exp"

set testfile "null_record"
set srcfile ${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}

gdb_test "begin" \
         "Breakpoint \[0-9\]+ at .*null_record.adb.*" \
         "begin"

gdb_test "ptype empty" \
         "type = record null; end record" \
         "ptype on null record"

--4jXrM3lyYWu4nBt5--