dg-options.exp revision 1.1.1.1
1# Handlers for additional dg-xxx keywords in tests. 2 3# Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 4# Free Software Foundation, Inc. 5# 6# This program is free software; you can redistribute it and/or modify 7# it under the terms of the GNU General Public License as published by 8# the Free Software Foundation; either version 3 of the License, or 9# (at your option) any later version. 10# 11# This program is distributed in the hope that it will be useful, 12# but WITHOUT ANY WARRANTY; without even the implied warranty of 13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14# GNU General Public License for more details. 15# 16# You should have received a copy of the GNU General Public License 17# along with this program; see the file COPYING3. If not see 18# <http://www.gnu.org/licenses/>. 19 20proc dg-require-c-std { args } { 21 if { ![ check_v3_target_c_std ] } { 22 upvar dg-do-what dg-do-what 23 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 24 return 25 } 26 return 27} 28 29proc dg-require-debug-mode { args } { 30 if { ![ check_v3_target_debug_mode ] } { 31 upvar dg-do-what dg-do-what 32 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 33 return 34 } 35 return 36} 37 38proc dg-require-parallel-mode { args } { 39 if { ![ check_v3_target_parallel_mode ] } { 40 upvar dg-do-what dg-do-what 41 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 42 return 43 } 44 return 45} 46 47proc dg-require-fileio { args } { 48 if { ![ check_v3_target_fileio ] } { 49 upvar dg-do-what dg-do-what 50 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 51 return 52 } 53 return 54} 55 56proc dg-require-namedlocale { args } { 57 if { ![ check_v3_target_namedlocale ] } { 58 upvar dg-do-what dg-do-what 59 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 60 return 61 } 62 return 63} 64 65proc dg-require-sharedlib { args } { 66 if { ![ check_v3_target_sharedlib ] } { 67 upvar dg-do-what dg-do-what 68 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 69 return 70 } 71 return 72} 73 74proc dg-require-time { args } { 75 if { ![ check_v3_target_time ] } { 76 upvar dg-do-what dg-do-what 77 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 78 return 79 } 80 return 81} 82 83proc dg-require-cstdint { args } { 84 if { ![ check_v3_target_cstdint ] } { 85 upvar dg-do-what dg-do-what 86 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 87 return 88 } 89 return 90} 91 92proc dg-require-atomic-builtins { args } { 93 if { ![ check_v3_target_atomic_builtins ] } { 94 upvar dg-do-what dg-do-what 95 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 96 return 97 } 98 return 99} 100 101proc dg-require-gthreads { args } { 102 if { ![ check_v3_target_gthreads ] } { 103 upvar dg-do-what dg-do-what 104 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 105 return 106 } 107 return 108} 109 110proc dg-require-nanosleep { args } { 111 if { ![ check_v3_target_nanosleep ] } { 112 upvar dg-do-what dg-do-what 113 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 114 return 115 } 116 return 117} 118 119proc dg-require-sched-yield { args } { 120 if { ![ check_v3_target_sched_yield ] } { 121 upvar dg-do-what dg-do-what 122 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 123 return 124 } 125 return 126} 127 128proc dg-require-string-conversions { args } { 129 if { ![ check_v3_target_string_conversions ] } { 130 upvar dg-do-what dg-do-what 131 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 132 return 133 } 134 return 135} 136 137proc dg-require-swprintf { args } { 138 if { ![ check_v3_target_swprintf ] } { 139 upvar dg-do-what dg-do-what 140 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 141 return 142 } 143 return 144} 145 146proc dg-require-binary-io { args } { 147 if { ![ check_v3_target_binary_io ] } { 148 upvar dg-do-what dg-do-what 149 set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"] 150 return 151 } 152 return 153} 154 155proc add_options_for_no_pch { flags } { 156 # This forces any generated and possibly included PCH to be invalid. 157 return "-D__GLIBCXX__=99999999" 158} 159