1# Copyright (C) 2003, 2006, 2009, 2010, 2014, 2019 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
17dg-init
18libffi-init
19
20global srcdir subdir
21
22if { [string match $compiler_vendor "microsoft"] } {
23    # -wd4005  macro redefinition
24    # -wd4244  implicit conversion to type of smaller size
25    # -wd4305  truncation to smaller type
26    # -wd4477  printf %lu of uintptr_t
27    # -wd4312  implicit conversion to type of greater size
28    # -wd4311  pointer truncation to unsigned long
29    # -EHsc    C++ Exception Handling (no SEH exceptions)
30    set additional_options "-wd4005 -wd4244 -wd4305 -wd4477 -wd4312 -wd4311 -EHsc";
31} else {
32    set additional_options "";
33}
34
35set tlist [lsort [glob -nocomplain -- $srcdir/$subdir/*.c]]
36
37run-many-tests $tlist $additional_options
38
39set tlist [lsort [glob -nocomplain -- $srcdir/$subdir/*.cc]]
40
41# No C++ for or1k
42if { [istarget "or1k-*-*"] } {
43    foreach test $tlist {
44        unsupported "$test"
45    }
46} else {
47    run-many-tests $tlist $additional_options
48}
49
50dg-finish
51
52# Local Variables:
53# tcl-indent-level:4
54# End:
55