annotate gcc/testsuite/gcc.dg/charset/charset.exp @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 131
diff changeset
1 # Copyright (C) 2004-2020 Free Software Foundation, Inc.
111
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 # This program is free software; you can redistribute it and/or modify
kono
parents:
diff changeset
4 # it under the terms of the GNU General Public License as published by
kono
parents:
diff changeset
5 # the Free Software Foundation; either version 3 of the License, or
kono
parents:
diff changeset
6 # (at your option) any later version.
kono
parents:
diff changeset
7 #
kono
parents:
diff changeset
8 # This program is distributed in the hope that it will be useful,
kono
parents:
diff changeset
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
kono
parents:
diff changeset
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
kono
parents:
diff changeset
11 # GNU General Public License for more details.
kono
parents:
diff changeset
12 #
kono
parents:
diff changeset
13 # You should have received a copy of the GNU General Public License
kono
parents:
diff changeset
14 # along with GCC; see the file COPYING3. If not see
kono
parents:
diff changeset
15 # <http://www.gnu.org/licenses/>.
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 # GCC testsuite that uses the 'dg.exp' driver.
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 # There's a bunch of headers we need.
kono
parents:
diff changeset
20 if [is_remote host] {
kono
parents:
diff changeset
21 foreach header [glob -nocomplain $srcdir/$subdir/*.{h,def} ] {
kono
parents:
diff changeset
22 remote_download host $header
kono
parents:
diff changeset
23 }
kono
parents:
diff changeset
24 }
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 # Load support procs.
kono
parents:
diff changeset
27 load_lib gcc-dg.exp
kono
parents:
diff changeset
28 load_lib target-supports.exp
kono
parents:
diff changeset
29
kono
parents:
diff changeset
30 # If a testcase doesn't have special options, use these.
kono
parents:
diff changeset
31 global DEFAULT_CHARSETCFLAGS
kono
parents:
diff changeset
32 if ![info exists DEFAULT_CHARSETCFLAGS] then {
kono
parents:
diff changeset
33 set DEFAULT_CHARSETCFLAGS "-fexec-charset=IBM1047"
kono
parents:
diff changeset
34 }
kono
parents:
diff changeset
35
kono
parents:
diff changeset
36 # Initialize `dg'.
kono
parents:
diff changeset
37 dg-init
kono
parents:
diff changeset
38
kono
parents:
diff changeset
39 # Main loop.
kono
parents:
diff changeset
40 dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.{c,S} ]] \
kono
parents:
diff changeset
41 "" $DEFAULT_CHARSETCFLAGS
kono
parents:
diff changeset
42
kono
parents:
diff changeset
43 # All done.
kono
parents:
diff changeset
44 dg-finish