diff options
author | Daniel Jacobowitz <drow@false.org> | 2003-06-29 20:32:23 +0000 |
---|---|---|
committer | Daniel Jacobowitz <drow@false.org> | 2003-06-29 20:32:23 +0000 |
commit | f1c2644b9200419c3ba04bb7d4223968fb593e1d (patch) | |
tree | 408b6f40d197466d4ae923b820edb9f7cdedf8bf /gdb/testsuite/gdb.base/complex.exp | |
parent | 180803508ccf513d06e13c10a5aba4ef4776a390 (diff) |
* gdb.base/completion.exp: Tab-complete "complet" instead of
"compl".
* gdb.base/complex.exp, gdb.base/complex.c: New files.
Diffstat (limited to 'gdb/testsuite/gdb.base/complex.exp')
-rw-r--r-- | gdb/testsuite/gdb.base/complex.exp | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.base/complex.exp b/gdb/testsuite/gdb.base/complex.exp new file mode 100644 index 0000000000..f3f25e561b --- /dev/null +++ b/gdb/testsuite/gdb.base/complex.exp @@ -0,0 +1,63 @@ +# Copyright 2003 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. + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@prep.ai.mit.edu + +if $tracelevel then { + strace $tracelevel +} + +set bug_id 0 + +set testfile complex +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +set options debug + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $options] != "" } { + # No support for __complex__, presumably. + unsupported "print complex packed value in C" + unsupported "print complex value in C" + return 0 +} + +# Start with a fresh gdb. + +if [get_compiler_info ${binfile}] { + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load $binfile + +if [runto f2] then { + get_debug_format + if {$gcc_compiled == 2 && [test_debug_format "DWARF 2"]} then { + setup_xfail "*-*-*" + } + gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0 \\* I\}" \ + "print complex packed value in C" +} + +if [runto f4] then { + gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0 \\* I\}" \ + "print complex value in C" +} + +return 0 |