Merge GDB 7.5.1

gdb/testsuite/gdb.base/ptype.exp

 # Copyright 1988, 1990-1992, 1994-1997, 1999-2000, 2002-2003, 2007-2012
 # 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 3 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, see <http://www.gnu.org/licenses/>.
 
 # This file was written by Rob Savoye. (rob@cygnus.com)
 
-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
 
 set testfile "ptype"
 set srcfile0 ${testfile}.c
 set srcfile1 ${testfile}1.c
 set binfile ${objdir}/${subdir}/${testfile}
 
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile0}" "${binfile}0.o" object {debug}] != "" } {
      untested ptype.exp
      return -1
 }
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug}] != "" } {
      untested ptype.exp
      return -1
 }
 if  { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug}] != "" } {
      untested ptype.exp
      return -1
 }
 
 # Create and source the file that provides information about the compiler
 # used to compile the test case.
-if [get_compiler_info ${binfile}] {
+if [get_compiler_info] {
     return -1;
 }
 
 gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
 gdb_load ${binfile}
 
 # Test ptype of unnamed enumeration members before any action causes
 # the partial symbol table to be expanded to full symbols.  This fails
@@ skipping 108 matching lines @@
 gdb_test "ptype red" "type = enum \{red, green, blue\}.*" "ptype unnamed enumeration member #2" 
 
 #
 # test ptype command with basic C types
 #
 # I've commented most of this out because it duplicates tests in whatis.exp.
 # I've just left in a token test or 2 which is designed to test that ptype 
 # acts like whatis for basic types.  If it is thought to be necessary to
 # test both whatis and ptype for all the types, the tests should be
 # merged into whatis.exp, or else maintenance will be a royal pain -kingdon
-#setup_xfail "mips-idt-*" "mips-sgi-*"
+#setup_xfail "mips-sgi-*"
 #send "ptype v_char\n"
 #gdb_expect {
 #    -re "type = char.*$gdb_prompt $"   { pass "ptype char" }
 #    -re ".*$gdb_prompt $"      { fail "ptype char" }
 #    timeout            { fail "(timeout) ptype char" }
 #}
 #
 #
 #setup_xfail "mips-*-*"
 #send "ptype v_signed_char\n"
@@ skipping 83 matching lines @@
 #gdb_expect {
 #    -re "type = double.*$gdb_prompt $" { pass "ptype double" }
 #    -re ".*$gdb_prompt $"      { fail "ptype double" }
 #    timeout            { fail "(timeout) ptype double" }
 #}
 
 
 #
 # test ptype command with arrays
 #
-#setup_xfail "mips-idt-*" "mips-sgi-*"
+#setup_xfail "mips-sgi-*"
 #send "ptype v_char_array\n"
 #gdb_expect {
 #    -re "type = char .2..*$gdb_prompt $"       { pass "ptype char array" }
 #    -re ".*$gdb_prompt $"      { fail "ptype char array" }
 #    timeout            { fail "(timeout) ptype char array" }
 #}
 #
 #
 #setup_xfail "mips-*-*"
 #send "ptype v_signed_char_array\n"
@@ skipping 80 matching lines @@
 #
 
 if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "i*86-*-sysv4*" }
 if {$hp_aCC_compiler} {setup_xfail "hppa*-*-*"}
 gdb_test "ptype t_char_array" "type = (|unsigned )char \\\[0?\\\]"
 
 #
 ##
 ## test ptype command with pointers
 ##
-#setup_xfail "mips-idt-*" "mips-sgi-*"
+#setup_xfail "mips-sgi-*"
 #send "ptype v_char_pointer\n"
 #gdb_expect {
 #    -re "type = char \*.*$gdb_prompt $"        { pass "ptype char pointer" }
 #    -re ".*$gdb_prompt $"      { fail "ptype char pointer" }
 #    timeout            { fail "(timeout) ptype char pointer" }
 #}
 #
 #
 #setup_xfail "mips-*-*"
 #send "ptype v_signed_char_pointer\n"
@@ skipping 248 matching lines @@
   gdb_test "ptype {(float)0,(float)1,(float)2}" "type = float \\\[3\\\]"
   gdb_test "ptype {{0,1,2},{3,4,5}}"    "type = int \\\[2\\\]\\\[3\\\]"
   gdb_test "ptype {4,5,6}\[2\]" "type = int"
   gdb_test "ptype *&{4,5,6}\[1\]"       "Attempt to take address of value not located in memory."
 
   set timeout $prev_timeout
 
   # Test ptype of user register
   gdb_test "ptype \$pc" "void \\(\\*\\)\\(\\)" "ptype \$pc"
 }