URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libstdc++-v3/] [testsuite/] [lib/] [dg-options.exp] - Blame information for rev 424

Details | Compare with Previous | View Log


# Handlers for additional dg-xxx keywords in tests.
 
# Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010
# Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; see the file COPYING3.  If not see
# .
 
proc dg-require-c-std { args } {
    if { ![ check_v3_target_c_std ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-debug-mode { args } {
    if { ![ check_v3_target_debug_mode ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-parallel-mode { args } {
    if { ![ check_v3_target_parallel_mode ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-fileio { args } {
    if { ![ check_v3_target_fileio ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-namedlocale { args } {
    if { ![ check_v3_target_namedlocale ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-sharedlib { args } {
    if { ![ check_v3_target_sharedlib ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-time { args } {
    if { ![ check_v3_target_time ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-cstdint { args } {
    if { ![ check_v3_target_cstdint ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-atomic-builtins { args } {
    if { ![ check_v3_target_atomic_builtins ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-gthreads { args } {
    if { ![ check_v3_target_gthreads ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-nanosleep { args } {
    if { ![ check_v3_target_nanosleep ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-sched-yield { args } {
    if { ![ check_v3_target_sched_yield ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-string-conversions { args } {
    if { ![ check_v3_target_string_conversions ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-swprintf { args } {
    if { ![ check_v3_target_swprintf ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc dg-require-binary-io { args } {
    if { ![ check_v3_target_binary_io ] } {
        upvar dg-do-what dg-do-what
        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
    }
    return
}
 
proc add_options_for_no_pch { flags } {
    # This forces any generated and possibly included PCH to be invalid.
    return "-D__GLIBCXX__=99999999"
}

Line No.	Rev	Author	Line
1	424	jeremybenn	`# 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			`# .`
19
20			`proc 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
29			`proc 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
38			`proc 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
47			`proc 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
56			`proc 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
65			`proc 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
74			`proc 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
83			`proc 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
92			`proc 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
101			`proc 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
110			`proc 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
119			`proc 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
128			`proc 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
137			`proc 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
146			`proc 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
155			`proc add_options_for_no_pch { flags } {`
156			`# This forces any generated and possibly included PCH to be invalid.`
157			`return "-D__GLIBCXX__=99999999"`
158			`}`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libstdc++-v3/] [testsuite/] [lib/] [dg-options.exp] - Blame information for rev 424