1#   Copyright (C) 2014-2015 Free Software Foundation, Inc.
2
3# This program is free software; you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation; either version 3 of the License, or
6# (at your option) any later version.
7#
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.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program; see the file COPYING3.  If not see
15# <http://www.gnu.org/licenses/>.
16
17load_lib gdb-test.exp
18
19# Only run whole xmethods.exp in one instance, serially.
20if ![gcc_parallel_test_run_p xmethods] {
21    return
22}
23gcc_parallel_test_enable 0
24
25dg-init
26v3-build_support
27
28global GDB
29if ![info exists ::env(GUALITY_GDB_NAME)] {
30    if [info exists GDB] {
31	set guality_gdb_name "$GDB"
32    } else {
33	set guality_gdb_name "[transform gdb]"
34    }
35    setenv GUALITY_GDB_NAME "$guality_gdb_name"
36}
37
38if {! [gdb_version_check_xmethods]} {
39    dg-finish
40    unsupported "xmethods.exp"
41    gcc_parallel_test_enable 1
42    return
43}
44
45# This can be used to keep the .exe around.  dg-test has an option for
46# this but there is no way to pass it through dg-runtest.
47global dg-interpreter-batch-mode
48set dg-interpreter-batch-mode 1
49
50global DEFAULT_CXXFLAGS
51global PCH_CXXFLAGS
52dg-runtest [lsort [glob $srcdir/$subdir/*.cc]] \
53  "" "$DEFAULT_CXXFLAGS $PCH_CXXFLAGS"
54
55if [info exists guality_gdb_name] {
56    unsetenv GUALITY_GDB_NAME
57}
58
59dg-finish
60gcc_parallel_test_enable 1
61