Merge GDB 7.5.1

gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp

 #   Copyright (C) 1997-1998, 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/>.
 
 # GDB tests for names beginning with '$'
 
 # This is aimed at HP-UX systems where a lot of system
 # routines and names begin with '$' or '$$'.  GDB 4.16 was
 # unable to deal with these names as they clashed with
 # convenience variables.  Wildebeest should accept such
 # names in preference to convenience variables.
 
 # This file was written by Satish Pai <pai@apollo.hp.com>
 # 1997-09-24
 
-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
 
 if { [skip_hp_tests] } { continue }
 
 set testfile "dollar"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
 
@@ skipping 100 matching lines @@
    timeout                             { fail "(timeout) print \$ARGV" }
 }
 send_gdb "ptype \$ARGV\n"   
 gdb_expect {   
    -re "type = <data variable, no debug info>.*$gdb_prompt $" { pass "ptype \$ARGV" }
    -re "type = void.*$gdb_prompt $" { fail "ptype \$ARGV (interpreted as convenience var)" }
    -re "$gdb_prompt $"                     { fail "ptype \$ARGV" }
    timeout                             { fail "(timeout) ptype \$ARGV" }
 }
 }