1 # Copyright 1999, 2001, 2004 Red Hat, Inc.
3 # This program is free software; you can redistribute it and/or modify it
4 # under the terms of the GNU General Public License (GPL) as published by
5 # the Free Software Foundation; either version 2 of the License, or (at
6 # your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 load_lib ../gdb.gdbtk/insight-support.exp
15 if {[gdbtk_initialize_display]} {
26 set testfile "c_variable"
27 set srcfile ${testfile}.c
28 set binfile ${objdir}/${subdir}/${testfile}
29 set r [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}]
31 gdb_suppress_entire_file \
32 "Testcase compile failed, so some tests in this file will automatically fail."
35 # Start with a fresh gdbtk
37 set results [gdbtk_start [file join $srcdir $subdir ${testfile}.test]]
38 set results [split $results \n]