1# Copyright (C) 2007-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 GCC; see the file COPYING3. If not see 15# <http://www.gnu.org/licenses/>. 16 17# GCC testsuite that uses the `dg.exp' driver. 18 19# Exit immediately if this isn't a s390 target. 20if ![istarget s390*-*-*] then { 21 return 22} 23 24# Load support procs. 25load_lib gcc-dg.exp 26 27# Return 1 if htm (etnd - extract nesting depth) instructions are 28# understood by the assembler and can be executed. 29proc check_effective_target_htm { } { 30 if { ![check_runtime s390_check_htm [subst { 31 int main (void) 32 { 33 unsigned int nd; 34 asm ("etnd %0" : "=d" (nd)); 35 return nd; 36 } 37 }] "-march=zEC12 -mzarch" ] } { return 0 } else { return 1 } 38} 39 40# Return 1 if vector (va - vector add) instructions are understood by 41# the assembler and can be executed. This also covers checking for 42# the VX kernel feature. A kernel without that feature does not 43# enable the vector facility and the following check will die with a 44# signal. 45proc check_effective_target_vector { } { 46 if { ![check_runtime s390_check_vector [subst { 47 int main (void) 48 { 49 asm ("va %%v24, %%v26, %%v28, 3" : : : "v24", "v26", "v28"); 50 return 0; 51 } 52 }] "-march=z13 -mzarch" ] } { return 0 } else { return 1 } 53} 54 55# If a testcase doesn't have special options, use these. 56global DEFAULT_CFLAGS 57if ![info exists DEFAULT_CFLAGS] then { 58 set DEFAULT_CFLAGS " -ansi -pedantic-errors" 59} 60 61# Initialize `dg'. 62dg-init 63 64set hotpatch_tests $srcdir/$subdir/hotpatch-\[0-9\]*.c 65 66# Main loop. 67dg-runtest [lsort [prune [glob -nocomplain $srcdir/$subdir/*.\[cS\]] \ 68 $hotpatch_tests]] "" $DEFAULT_CFLAGS 69 70# Additional hotpatch torture tests. 71torture-init 72set HOTPATCH_TEST_OPTS [list -Os -O0 -O1 -O2 -O3] 73set-torture-options $HOTPATCH_TEST_OPTS 74gcc-dg-runtest [lsort [glob -nocomplain $hotpatch_tests]] "" $DEFAULT_CFLAGS 75torture-finish 76 77dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*vector*/*.\[cS\]]] \ 78 "" $DEFAULT_CFLAGS 79 80# All done. 81dg-finish 82