diff options
author | Joel Brobecker <brobecker@gnat.com> | 2005-10-03 21:28:04 +0000 |
---|---|---|
committer | Joel Brobecker <brobecker@gnat.com> | 2005-10-03 21:28:04 +0000 |
commit | 705335ead4829cf39e8405177c5e098f3e4b4a04 (patch) | |
tree | c21fc6129ac59e33a9cce2c976e5eb9358799b58 /gdb/testsuite | |
parent | e79af960e264269f6719a008ca84c56487f2aec2 (diff) | |
download | gdb-705335ead4829cf39e8405177c5e098f3e4b4a04.zip gdb-705335ead4829cf39e8405177c5e098f3e4b4a04.tar.gz gdb-705335ead4829cf39e8405177c5e098f3e4b4a04.tar.bz2 |
* gdb.base/arrayidx.c: New file.
* gdb.base/arrayidx.exp: New testcase.
Diffstat (limited to 'gdb/testsuite')
-rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/arrayidx.c | 28 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/arrayidx.exp | 64 |
3 files changed, 97 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a98bc7c..fdefd44 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-10-03 Joel Brobecker <brobecker@adacore.com> + + * gdb.base/arrayidx.c: New file. + * gdb.base/arrayidx.exp: New testcase. + 2005-09-29 Nick Roberts <nickrob@snap.net.nz> * gdb.base/annota3.exp, gdb.cp/annota3.exp: The annotations diff --git a/gdb/testsuite/gdb.base/arrayidx.c b/gdb/testsuite/gdb.base/arrayidx.c new file mode 100644 index 0000000..f69e7f5 --- /dev/null +++ b/gdb/testsuite/gdb.base/arrayidx.c @@ -0,0 +1,28 @@ +/* This testcase is part of GDB, the GNU debugger. + + 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. */ + +int array[] = {1, 2, 3, 4}; + +int +main (void) +{ + array[0] = 5; + + return 0; +} diff --git a/gdb/testsuite/gdb.base/arrayidx.exp b/gdb/testsuite/gdb.base/arrayidx.exp new file mode 100644 index 0000000..fc6088e --- /dev/null +++ b/gdb/testsuite/gdb.base/arrayidx.exp @@ -0,0 +1,64 @@ +# 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 + +# This file is part of the gdb testsuite. It is intended to test that +# gdb can correctly print arrays with indexes for each element of the +# array. + +if $tracelevel { + strace $tracelevel +} + +set testfile "arrayidx" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + untested "Couldn't compile ${srcfile}" + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +if ![runto_main] then { + perror "couldn't run to breakpoint" + continue +} + +# First, print the array without the indexes + +gdb_test "set print array-indexes off" \ + "" \ + "Set print array-indexes to off" + +gdb_test "print array" \ + "\\{1, 2, 3, 4\\}" \ + "Print array with array-indexes off" + +# Second, print the same array with the indexes + +gdb_test "set print array-indexes on" \ + "" \ + "Set print array-indexes to on" + +gdb_test "print array" \ + "\\{\\\[0\\\] = 1, \\\[1\\\] = 2, \\\[2\\\] = 3, \\\[3\\\] = 4\\}" \ + "Print array with array-indexes on" + + |