From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 31201 invoked by alias); 8 Oct 2005 07:56:23 -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 31191 invoked by uid 22791); 8 Oct 2005 07:56:20 -0000 Received: from s142-179-108-108.bc.hsia.telus.net (HELO takamaka.act-europe.fr) (142.179.108.108) by sourceware.org (qpsmtpd/0.30-dev) with ESMTP; Sat, 08 Oct 2005 07:56:20 +0000 Received: by takamaka.act-europe.fr (Postfix, from userid 507) id 09E2647E76; Sat, 8 Oct 2005 00:56:19 -0700 (PDT) Date: Sat, 08 Oct 2005 07:56:00 -0000 From: Joel Brobecker To: gdb-patches@sources.redhat.com Subject: [RFA/testsuite/ada] finish in function returning array Message-ID: <20051008075619.GD22319@adacore.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="lc9FT7cWel8HagAv" Content-Disposition: inline User-Agent: Mutt/1.4i X-SW-Source: 2005-10/txt/msg00069.txt.bz2 --lc9FT7cWel8HagAv Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-length: 701 Hello, Here is a new testcase for the patch submitted in: http://sources.redhat.com/ml/gdb-patches/2005-10/msg00068.html Without the patch above, I get two FAILs: FAIL: gdb.ada/array_return.exp: value printed by finish of Create_Small FAIL: gdb.ada/array_return.exp: value printed by finish of Create_Large (GDB internal error) Once the patch is applied, I get all 6 PASSes. 2005-10-07 Joel Brobecker * gdb.ada/array_return/pck.ads: New file. * gdb.ada/array_return/pck.adb: New file. * gdb.ada/array_return/p.adb: New file. * gdb.ada/array_return.exp: New testcase. Tested on x86-linux. OK to apply? Thanks, -- Joel --lc9FT7cWel8HagAv Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="pck.ads" Content-length: 214 package Pck is type Data_Small is array (1 .. 2) of Integer; type Data_Large is array (1 .. 4) of Integer; function Create_Small return Data_Small; function Create_Large return Data_Large; end Pck; --lc9FT7cWel8HagAv Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="pck.adb" Content-length: 240 package body Pck is function Create_Small return Data_Small is begin return (others => 1); end Create_Small; function Create_Large return Data_Large is begin return (others => 2); end Create_Large; end Pck; --lc9FT7cWel8HagAv Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="p.adb" Content-length: 173 with Pck; use Pck; procedure P is Small : Data_Small; Large : Data_Large; begin Small := Create_Small; Large := Create_Large; Small (1) := Large (1); end P; --lc9FT7cWel8HagAv Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="array_return.exp" Content-length: 2389 # 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., 51 Franklin Street, Fifth Floor, Boston, # MA 02110-1301, USA if $tracelevel then { strace $tracelevel } load_lib "ada.exp" set testdir "array_return" set testfile "${testdir}/p" set srcfile ${srcdir}/${subdir}/${testfile}.adb set binfile ${objdir}/${subdir}/${testfile} file mkdir ${objdir}/${subdir}/${testdir} if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { return -1 } gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} # Start the inferior if ![runto_main] then { fail "Cannot run to main, testcase aborted" return 0 } # Create a breakpoint in each function from which we want to test # the "finish" command. gdb_test "break create_small" \ "Breakpoint \[0-9\]+ at.*: file .*pck.adb, line \[0-9\]+." \ "insert breakpoint in create_small" gdb_test "break create_large" \ "Breakpoint \[0-9\]+ at.*: file .*pck.adb, line \[0-9\]+." \ "insert breakpoint in create_large" # Then continue until reaching the first breakpoint inside Create_Small, # and then do a "finish". gdb_test "cont" \ "Breakpoint \[0-9\]+, pck.create_small \\(\\).*" \ "Continuing to Create.Small" gdb_test "finish" \ "Value returned is \\\$\[0-9\]+ = \\(1, 1\\)" \ "value printed by finish of Create_Small" # Now continue until reaching the second breakpoint inside Create_Large, # and then do another "finish". gdb_test "cont" \ "Breakpoint \[0-9\]+, pck.create_large \\(\\).*" \ "Continuing to Create.Large" gdb_test "finish" \ "Value returned is \\\$\[0-9\]+ = \\(2, 2, 2, 2\\)" \ "value printed by finish of Create_Large" --lc9FT7cWel8HagAv--