X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fgcc.dg%2Fdebug%2Fdebug.exp;fp=gcc%2Ftestsuite%2Fgcc.dg%2Fdebug%2Fdebug.exp;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=310ce131cdc83fc600339d1efaa1aaf29bc0c56b;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/testsuite/gcc.dg/debug/debug.exp b/gcc/testsuite/gcc.dg/debug/debug.exp deleted file mode 100644 index 310ce131..00000000 --- a/gcc/testsuite/gcc.dg/debug/debug.exp +++ /dev/null @@ -1,78 +0,0 @@ -# Copyright (C) 2002 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. - -# GCC testsuite that uses the `dg.exp' driver. - -# Load support procs. -load_lib gcc-dg.exp - -# This is the list of debugging options we'll try. Some of them won't -# be supported, that's OK; they will be quickly eliminated. -# It's probably not a good idea to add more optimisation options. - -if ![info exists DEBUG_TORTURE_OPTIONS] { - set DEBUG_TORTURE_OPTIONS "" - foreach type {-gdwarf-2 -gstabs -gstabs+ -gxcoff -gxcoff+ -gcoff} { - set comp_output [gcc_target_compile \ - "$srcdir/$subdir/trivial.c" "trivial.S" assembly \ - "additional_flags=$type"] - if { ! [string match "*: unknown or unsupported -g option*" \ - $comp_output] } { - foreach level {1 "" 3} { - lappend DEBUG_TORTURE_OPTIONS [list "${type}${level}"] - foreach opt { -O -O3 } { - lappend DEBUG_TORTURE_OPTIONS \ - [list "${type}${level}" "$opt" ] - } - } - } - } -} - -verbose -log "Using options $DEBUG_TORTURE_OPTIONS" - -# Initialize `dg'. -dg-init - -# Main loop. - -foreach test [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] { - global runtests - - # If we're only testing specific files and this isn't one of - # them, skip it. - if ![runtest_file_p $runtests $test] { - continue - } - - set nshort [file tail [file dirname $test]]/[file tail $test] - - foreach flags $DEBUG_TORTURE_OPTIONS { - set doit 1 - if { [string match {*/debug-[126].c} "$nshort"] \ - && [string match "*1" [lindex "$flags" 0] ] } { - set doit 0 - } - - if { $doit } { - verbose -log "Testing $nshort, $flags" 1 - dg-test $test $flags "" - } - } -} - -# All done. -dg-finish