From 1495de3fd3a10998220fcba6e31c6a5002bb4271 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Mon, 10 Oct 2005 01:11:51 +0000 Subject: [PATCH] * 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. --- gdb/testsuite/ChangeLog | 7 ++ gdb/testsuite/gdb.ada/array_return.exp | 78 ++++++++++++++++++++++ gdb/testsuite/gdb.ada/array_return/p.adb | 10 +++ gdb/testsuite/gdb.ada/array_return/pck.adb | 13 ++++ gdb/testsuite/gdb.ada/array_return/pck.ads | 10 +++ 5 files changed, 118 insertions(+) create mode 100644 gdb/testsuite/gdb.ada/array_return.exp create mode 100644 gdb/testsuite/gdb.ada/array_return/p.adb create mode 100644 gdb/testsuite/gdb.ada/array_return/pck.adb create mode 100644 gdb/testsuite/gdb.ada/array_return/pck.ads diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index fdefd44d423..8e04defb2f0 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,10 @@ +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. + 2005-10-03 Joel Brobecker * gdb.base/arrayidx.c: New file. diff --git a/gdb/testsuite/gdb.ada/array_return.exp b/gdb/testsuite/gdb.ada/array_return.exp new file mode 100644 index 00000000000..72d8fde47db --- /dev/null +++ b/gdb/testsuite/gdb.ada/array_return.exp @@ -0,0 +1,78 @@ +# 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" + diff --git a/gdb/testsuite/gdb.ada/array_return/p.adb b/gdb/testsuite/gdb.ada/array_return/p.adb new file mode 100644 index 00000000000..c465d2894b4 --- /dev/null +++ b/gdb/testsuite/gdb.ada/array_return/p.adb @@ -0,0 +1,10 @@ +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; diff --git a/gdb/testsuite/gdb.ada/array_return/pck.adb b/gdb/testsuite/gdb.ada/array_return/pck.adb new file mode 100644 index 00000000000..30282d1998c --- /dev/null +++ b/gdb/testsuite/gdb.ada/array_return/pck.adb @@ -0,0 +1,13 @@ +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; diff --git a/gdb/testsuite/gdb.ada/array_return/pck.ads b/gdb/testsuite/gdb.ada/array_return/pck.ads new file mode 100644 index 00000000000..2561ac73f29 --- /dev/null +++ b/gdb/testsuite/gdb.ada/array_return/pck.ads @@ -0,0 +1,10 @@ +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; + -- 2.30.2