Subversion Repositories openrisc_2011-10-31

/unbounded1.c

unbounded1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: unbounded-array.exp =================================================================== --- unbounded-array.exp (nonexistent) +++ unbounded-array.exp (revision 33) @@ -0,0 +1,56 @@ +# Copyright 2007, 2008 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. + +# This file is part of the gdb testsuite. It contains tests for printing +# the elements of an unbounded array using the Modula-2 language mode of +# gdb. + +if $tracelevel then { + strace $tracelevel +} + +set testfile "unbounded1" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug quiet}] != "" } { + untested "Couldn't compile ${srcfile}" + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +if ![runto foo] then { + perror "couldn't run to breakpoint foo" + continue +} + +gdb_test "set lang modula-2" ".*does not match.*" "switch to modula-2" + +# gdb test "ptype a" ".*ARRAY OF.*" "print out unbounded ARRAY type" + +gdb_test "print HIGH(a)" ".*= 4.*" "print the last legal element of array a" + +gdb_test "print a" ".*abcde.*HIGH.*4.*" "print unbounded array contents" + +gdb_test "print/c a\[0\]" ".*a.*" "print the 1st element of array a" +gdb_test "print/c a\[1\]" ".*b.*" "print the 2nd element of array a" +gdb_test "print/c a\[2\]" ".*c.*" "print the 3rd element of array a" +gdb_test "print/c a\[3\]" ".*d.*" "print the 4th element of array a" +gdb_test "print/c a\[4\]" ".*e.*" "print the 5th element of array a" Index: Makefile =================================================================== --- Makefile (nonexistent) +++ Makefile (revision 33) @@ -0,0 +1,33 @@ +# Makefile for regression testing the GNU debugger. +# Copyright 2007, 2008 Free Software Foundation, Inc. + +# This file is part of GDB. + +# GDB 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, or (at your option) +# any later version. + +# GDB 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. + +VPATH = ../../.././gdb/testsuite/gdb.modula2 +srcdir = ../../.././gdb/testsuite/gdb.modula2 + +EXECUTABLES = + +all info install-info dvi install uninstall installcheck check: + @echo "Nothing to be done for $@..." + +clean mostlyclean: + -rm -f *~ *.o *.ci + -rm -f core ${EXECUTABLES} + +distclean maintainer-clean realclean: clean + -rm -f Makefile config.status config.log

Makefile Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property