diff options
| author | Koen Kooi <koen@dominion.thruhere.net> | 2010-11-02 22:03:58 +0100 |
|---|---|---|
| committer | Koen Kooi <koen@dominion.thruhere.net> | 2010-11-02 22:12:02 +0100 |
| commit | be10a6b1321f250b1034c7d9d0a8ef18b296eef1 (patch) | |
| tree | 9249025cbfbfbee4cc430d62b27f75301dd4dfde /recipes-devtools/gcc/gcc-4.5/linaro/gcc-4.5-linaro-r99381.patch | |
| parent | 93b28937ac67ba46d65f55637e42552e224aa7e2 (diff) | |
| download | meta-openembedded-be10a6b1321f250b1034c7d9d0a8ef18b296eef1.tar.gz | |
angstrom-layers: meta-openembedded: replace poky gcc 4.5 sources with OE ones
This needs further investigation, but for now we can get the tested sources into the poky gcc harness
Signed-off-by: Koen Kooi <k-kooi@ti.com>
Diffstat (limited to 'recipes-devtools/gcc/gcc-4.5/linaro/gcc-4.5-linaro-r99381.patch')
| -rw-r--r-- | recipes-devtools/gcc/gcc-4.5/linaro/gcc-4.5-linaro-r99381.patch | 512 |
1 files changed, 512 insertions, 0 deletions
diff --git a/recipes-devtools/gcc/gcc-4.5/linaro/gcc-4.5-linaro-r99381.patch b/recipes-devtools/gcc/gcc-4.5/linaro/gcc-4.5-linaro-r99381.patch new file mode 100644 index 0000000000..c504f44fbe --- /dev/null +++ b/recipes-devtools/gcc/gcc-4.5/linaro/gcc-4.5-linaro-r99381.patch | |||
| @@ -0,0 +1,512 @@ | |||
| 1 | 2010-09-06 Mark Mitchell <mark@codesourcery.com> | ||
| 2 | |||
| 3 | Issue #9022 | ||
| 4 | |||
| 5 | Backport from mainline: | ||
| 6 | 2010-09-05 Mark Mitchell <mark@codesourcery.com> | ||
| 7 | * doc/invoke.texi: Document -Wdouble-promotion. | ||
| 8 | * c-typeck.c (convert_arguments): Check for implicit conversions | ||
| 9 | from float to double. | ||
| 10 | (do_warn_double_promotion): New function. | ||
| 11 | (build_conditional_expr): Use it. | ||
| 12 | (build_binary_op): Likewise. | ||
| 13 | * c.opt (Wdouble-promotion): New. | ||
| 14 | 2010-09-05 Mark Mitchell <mark@codesourcery.com> | ||
| 15 | * gcc.dg/Wdouble-promotion.c: New. | ||
| 16 | 2010-09-06 Mark Mitchell <mark@codesourcery.com> | ||
| 17 | gcc/ | ||
| 18 | * c-common.h (do_warn_double_promotion): Declare. | ||
| 19 | * c-common.c (do_warn_double_promotion): Define. | ||
| 20 | * c-typeck.c (do_warn_double_promotion): Remove. | ||
| 21 | * doc/invoke.texi (-Wdouble-promotion): Note available for C++ and | ||
| 22 | Objective-C++ too. | ||
| 23 | gcc/cp/ | ||
| 24 | * typeck.c (cp_build_binary_op): Call do_warn_double_promotion. | ||
| 25 | * call.c (build_conditional_expr): Likewise. | ||
| 26 | (convert_arg_to_ellipsis): Likewise. | ||
| 27 | gcc/testsuite/ | ||
| 28 | * g++.dg/warn/Wdouble-promotion.C: New. | ||
| 29 | |||
| 30 | 2010-08-31 Chung-Lin Tang <cltang@codesourcery.com> | ||
| 31 | |||
| 32 | Backport from mainline: | ||
| 33 | |||
| 34 | === modified file 'gcc/c-common.c' | ||
| 35 | --- old/gcc/c-common.c 2010-06-25 09:35:40 +0000 | ||
| 36 | +++ new/gcc/c-common.c 2010-09-07 15:47:57 +0000 | ||
| 37 | @@ -9172,6 +9172,40 @@ | ||
| 38 | } | ||
| 39 | } | ||
| 40 | |||
| 41 | +/* RESULT_TYPE is the result of converting TYPE1 and TYPE2 to a common | ||
| 42 | + type via c_common_type. If -Wdouble-promotion is in use, and the | ||
| 43 | + conditions for warning have been met, issue a warning. GMSGID is | ||
| 44 | + the warning message. It must have two %T specifiers for the type | ||
| 45 | + that was converted (generally "float") and the type to which it was | ||
| 46 | + converted (generally "double), respectively. LOC is the location | ||
| 47 | + to which the awrning should refer. */ | ||
| 48 | + | ||
| 49 | +void | ||
| 50 | +do_warn_double_promotion (tree result_type, tree type1, tree type2, | ||
| 51 | + const char *gmsgid, location_t loc) | ||
| 52 | +{ | ||
| 53 | + tree source_type; | ||
| 54 | + | ||
| 55 | + if (!warn_double_promotion) | ||
| 56 | + return; | ||
| 57 | + /* If the conversion will not occur at run-time, there is no need to | ||
| 58 | + warn about it. */ | ||
| 59 | + if (c_inhibit_evaluation_warnings) | ||
| 60 | + return; | ||
| 61 | + if (TYPE_MAIN_VARIANT (result_type) != double_type_node | ||
| 62 | + && TYPE_MAIN_VARIANT (result_type) != complex_double_type_node) | ||
| 63 | + return; | ||
| 64 | + if (TYPE_MAIN_VARIANT (type1) == float_type_node | ||
| 65 | + || TYPE_MAIN_VARIANT (type1) == complex_float_type_node) | ||
| 66 | + source_type = type1; | ||
| 67 | + else if (TYPE_MAIN_VARIANT (type2) == float_type_node | ||
| 68 | + || TYPE_MAIN_VARIANT (type2) == complex_float_type_node) | ||
| 69 | + source_type = type2; | ||
| 70 | + else | ||
| 71 | + return; | ||
| 72 | + warning_at (loc, OPT_Wdouble_promotion, gmsgid, source_type, result_type); | ||
| 73 | +} | ||
| 74 | + | ||
| 75 | /* Setup a TYPE_DECL node as a typedef representation. | ||
| 76 | |||
| 77 | X is a TYPE_DECL for a typedef statement. Create a brand new | ||
| 78 | |||
| 79 | === modified file 'gcc/c-common.h' | ||
| 80 | --- old/gcc/c-common.h 2009-12-17 03:22:22 +0000 | ||
| 81 | +++ new/gcc/c-common.h 2010-09-07 15:47:57 +0000 | ||
| 82 | @@ -1056,6 +1056,8 @@ | ||
| 83 | tree op0, tree op1, | ||
| 84 | tree result_type, | ||
| 85 | enum tree_code resultcode); | ||
| 86 | +extern void do_warn_double_promotion (tree, tree, tree, const char *, | ||
| 87 | + location_t); | ||
| 88 | extern void set_underlying_type (tree x); | ||
| 89 | extern bool is_typedef_decl (tree x); | ||
| 90 | extern VEC(tree,gc) *make_tree_vector (void); | ||
| 91 | |||
| 92 | === modified file 'gcc/c-typeck.c' | ||
| 93 | --- old/gcc/c-typeck.c 2010-04-02 18:54:46 +0000 | ||
| 94 | +++ new/gcc/c-typeck.c 2010-09-07 15:47:57 +0000 | ||
| 95 | @@ -3012,8 +3012,15 @@ | ||
| 96 | if (type_generic) | ||
| 97 | parmval = val; | ||
| 98 | else | ||
| 99 | - /* Convert `float' to `double'. */ | ||
| 100 | - parmval = convert (double_type_node, val); | ||
| 101 | + { | ||
| 102 | + /* Convert `float' to `double'. */ | ||
| 103 | + if (warn_double_promotion && !c_inhibit_evaluation_warnings) | ||
| 104 | + warning (OPT_Wdouble_promotion, | ||
| 105 | + "implicit conversion from %qT to %qT when passing " | ||
| 106 | + "argument to function", | ||
| 107 | + valtype, double_type_node); | ||
| 108 | + parmval = convert (double_type_node, val); | ||
| 109 | + } | ||
| 110 | } | ||
| 111 | else if (excess_precision && !type_generic) | ||
| 112 | /* A "double" argument with excess precision being passed | ||
| 113 | @@ -4036,6 +4043,10 @@ | ||
| 114 | || code2 == COMPLEX_TYPE)) | ||
| 115 | { | ||
| 116 | result_type = c_common_type (type1, type2); | ||
| 117 | + do_warn_double_promotion (result_type, type1, type2, | ||
| 118 | + "implicit conversion from %qT to %qT to " | ||
| 119 | + "match other result of conditional", | ||
| 120 | + colon_loc); | ||
| 121 | |||
| 122 | /* If -Wsign-compare, warn here if type1 and type2 have | ||
| 123 | different signedness. We'll promote the signed to unsigned | ||
| 124 | @@ -9607,6 +9618,11 @@ | ||
| 125 | if (shorten || common || short_compare) | ||
| 126 | { | ||
| 127 | result_type = c_common_type (type0, type1); | ||
| 128 | + do_warn_double_promotion (result_type, type0, type1, | ||
| 129 | + "implicit conversion from %qT to %qT " | ||
| 130 | + "to match other operand of binary " | ||
| 131 | + "expression", | ||
| 132 | + location); | ||
| 133 | if (result_type == error_mark_node) | ||
| 134 | return error_mark_node; | ||
| 135 | } | ||
| 136 | |||
| 137 | === modified file 'gcc/c.opt' | ||
| 138 | --- old/gcc/c.opt 2010-04-02 18:54:46 +0000 | ||
| 139 | +++ new/gcc/c.opt 2010-09-07 15:47:57 +0000 | ||
| 140 | @@ -265,6 +265,10 @@ | ||
| 141 | Wimplicit | ||
| 142 | C ObjC C++ ObjC++ Warning | ||
| 143 | |||
| 144 | +Wdouble-promotion | ||
| 145 | +C ObjC C++ ObjC++ Var(warn_double_promotion) Warning | ||
| 146 | +Warn about implicit conversions from \"float\" to \"double\" | ||
| 147 | + | ||
| 148 | Wimplicit-function-declaration | ||
| 149 | C ObjC Var(warn_implicit_function_declaration) Init(-1) Warning | ||
| 150 | Warn about implicit function declarations | ||
| 151 | |||
| 152 | === modified file 'gcc/cp/call.c' | ||
| 153 | --- old/gcc/cp/call.c 2010-07-08 13:08:36 +0000 | ||
| 154 | +++ new/gcc/cp/call.c 2010-09-07 15:47:57 +0000 | ||
| 155 | @@ -3946,6 +3946,10 @@ | ||
| 156 | /* In this case, there is always a common type. */ | ||
| 157 | result_type = type_after_usual_arithmetic_conversions (arg2_type, | ||
| 158 | arg3_type); | ||
| 159 | + do_warn_double_promotion (result_type, arg2_type, arg3_type, | ||
| 160 | + "implicit conversion from %qT to %qT to " | ||
| 161 | + "match other result of conditional", | ||
| 162 | + input_location); | ||
| 163 | |||
| 164 | if (TREE_CODE (arg2_type) == ENUMERAL_TYPE | ||
| 165 | && TREE_CODE (arg3_type) == ENUMERAL_TYPE) | ||
| 166 | @@ -5179,11 +5183,14 @@ | ||
| 167 | tree | ||
| 168 | convert_arg_to_ellipsis (tree arg) | ||
| 169 | { | ||
| 170 | + tree arg_type; | ||
| 171 | + | ||
| 172 | /* [expr.call] | ||
| 173 | |||
| 174 | The lvalue-to-rvalue, array-to-pointer, and function-to-pointer | ||
| 175 | standard conversions are performed. */ | ||
| 176 | arg = decay_conversion (arg); | ||
| 177 | + arg_type = TREE_TYPE (arg); | ||
| 178 | /* [expr.call] | ||
| 179 | |||
| 180 | If the argument has integral or enumeration type that is subject | ||
| 181 | @@ -5191,19 +5198,27 @@ | ||
| 182 | type that is subject to the floating point promotion | ||
| 183 | (_conv.fpprom_), the value of the argument is converted to the | ||
| 184 | promoted type before the call. */ | ||
| 185 | - if (TREE_CODE (TREE_TYPE (arg)) == REAL_TYPE | ||
| 186 | - && (TYPE_PRECISION (TREE_TYPE (arg)) | ||
| 187 | + if (TREE_CODE (arg_type) == REAL_TYPE | ||
| 188 | + && (TYPE_PRECISION (arg_type) | ||
| 189 | < TYPE_PRECISION (double_type_node)) | ||
| 190 | - && !DECIMAL_FLOAT_MODE_P (TYPE_MODE (TREE_TYPE (arg)))) | ||
| 191 | - arg = convert_to_real (double_type_node, arg); | ||
| 192 | - else if (INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (arg))) | ||
| 193 | + && !DECIMAL_FLOAT_MODE_P (TYPE_MODE (arg_type))) | ||
| 194 | + { | ||
| 195 | + if (warn_double_promotion && !c_inhibit_evaluation_warnings) | ||
| 196 | + warning (OPT_Wdouble_promotion, | ||
| 197 | + "implicit conversion from %qT to %qT when passing " | ||
| 198 | + "argument to function", | ||
| 199 | + arg_type, double_type_node); | ||
| 200 | + arg = convert_to_real (double_type_node, arg); | ||
| 201 | + } | ||
| 202 | + else if (INTEGRAL_OR_ENUMERATION_TYPE_P (arg_type)) | ||
| 203 | arg = perform_integral_promotions (arg); | ||
| 204 | |||
| 205 | arg = require_complete_type (arg); | ||
| 206 | + arg_type = TREE_TYPE (arg); | ||
| 207 | |||
| 208 | if (arg != error_mark_node | ||
| 209 | - && (type_has_nontrivial_copy_init (TREE_TYPE (arg)) | ||
| 210 | - || TYPE_HAS_NONTRIVIAL_DESTRUCTOR (TREE_TYPE (arg)))) | ||
| 211 | + && (type_has_nontrivial_copy_init (arg_type) | ||
| 212 | + || TYPE_HAS_NONTRIVIAL_DESTRUCTOR (arg_type))) | ||
| 213 | { | ||
| 214 | /* [expr.call] 5.2.2/7: | ||
| 215 | Passing a potentially-evaluated argument of class type (Clause 9) | ||
| 216 | @@ -5218,7 +5233,7 @@ | ||
| 217 | it is not potentially-evaluated. */ | ||
| 218 | if (cp_unevaluated_operand == 0) | ||
| 219 | error ("cannot pass objects of non-trivially-copyable " | ||
| 220 | - "type %q#T through %<...%>", TREE_TYPE (arg)); | ||
| 221 | + "type %q#T through %<...%>", arg_type); | ||
| 222 | } | ||
| 223 | |||
| 224 | return arg; | ||
| 225 | |||
| 226 | === modified file 'gcc/cp/typeck.c' | ||
| 227 | --- old/gcc/cp/typeck.c 2010-06-30 21:06:28 +0000 | ||
| 228 | +++ new/gcc/cp/typeck.c 2010-09-07 15:47:57 +0000 | ||
| 229 | @@ -260,6 +260,7 @@ | ||
| 230 | enum tree_code code2 = TREE_CODE (t2); | ||
| 231 | tree attributes; | ||
| 232 | |||
| 233 | + | ||
| 234 | /* In what follows, we slightly generalize the rules given in [expr] so | ||
| 235 | as to deal with `long long' and `complex'. First, merge the | ||
| 236 | attributes. */ | ||
| 237 | @@ -4226,7 +4227,14 @@ | ||
| 238 | if (!result_type | ||
| 239 | && arithmetic_types_p | ||
| 240 | && (shorten || common || short_compare)) | ||
| 241 | - result_type = cp_common_type (type0, type1); | ||
| 242 | + { | ||
| 243 | + result_type = cp_common_type (type0, type1); | ||
| 244 | + do_warn_double_promotion (result_type, type0, type1, | ||
| 245 | + "implicit conversion from %qT to %qT " | ||
| 246 | + "to match other operand of binary " | ||
| 247 | + "expression", | ||
| 248 | + location); | ||
| 249 | + } | ||
| 250 | |||
| 251 | if (!result_type) | ||
| 252 | { | ||
| 253 | |||
| 254 | === modified file 'gcc/doc/invoke.texi' | ||
| 255 | --- old/gcc/doc/invoke.texi 2010-08-16 09:41:58 +0000 | ||
| 256 | +++ new/gcc/doc/invoke.texi 2010-09-07 15:47:57 +0000 | ||
| 257 | @@ -234,8 +234,8 @@ | ||
| 258 | -Wchar-subscripts -Wclobbered -Wcomment @gol | ||
| 259 | -Wconversion -Wcoverage-mismatch -Wno-deprecated @gol | ||
| 260 | -Wno-deprecated-declarations -Wdisabled-optimization @gol | ||
| 261 | --Wno-div-by-zero -Wempty-body -Wenum-compare -Wno-endif-labels @gol | ||
| 262 | --Werror -Werror=* @gol | ||
| 263 | +-Wno-div-by-zero -Wdouble-promotion -Wempty-body -Wenum-compare @gol | ||
| 264 | +-Wno-endif-labels -Werror -Werror=* @gol | ||
| 265 | -Wfatal-errors -Wfloat-equal -Wformat -Wformat=2 @gol | ||
| 266 | -Wno-format-contains-nul -Wno-format-extra-args -Wformat-nonliteral @gol | ||
| 267 | -Wformat-security -Wformat-y2k @gol | ||
| 268 | @@ -2976,6 +2976,30 @@ | ||
| 269 | comment, or whenever a Backslash-Newline appears in a @samp{//} comment. | ||
| 270 | This warning is enabled by @option{-Wall}. | ||
| 271 | |||
| 272 | +@item -Wdouble-promotion @r{(C, C++, Objective-C and Objective-C++ only)} | ||
| 273 | +@opindex Wdouble-promotion | ||
| 274 | +@opindex Wno-double-promotion | ||
| 275 | +Give a warning when a value of type @code{float} is implicitly | ||
| 276 | +promoted to @code{double}. CPUs with a 32-bit ``single-precision'' | ||
| 277 | +floating-point unit implement @code{float} in hardware, but emulate | ||
| 278 | +@code{double} in software. On such a machine, doing computations | ||
| 279 | +using @code{double} values is much more expensive because of the | ||
| 280 | +overhead required for software emulation. | ||
| 281 | + | ||
| 282 | +It is easy to accidentally do computations with @code{double} because | ||
| 283 | +floating-point literals are implicitly of type @code{double}. For | ||
| 284 | +example, in: | ||
| 285 | +@smallexample | ||
| 286 | +@group | ||
| 287 | +float area(float radius) | ||
| 288 | +@{ | ||
| 289 | + return 3.14159 * radius * radius; | ||
| 290 | +@} | ||
| 291 | +@end group | ||
| 292 | +@end smallexample | ||
| 293 | +the compiler will perform the entire computation with @code{double} | ||
| 294 | +because the floating-point literal is a @code{double}. | ||
| 295 | + | ||
| 296 | @item -Wformat | ||
| 297 | @opindex Wformat | ||
| 298 | @opindex Wno-format | ||
| 299 | |||
| 300 | === added file 'gcc/testsuite/g++.dg/warn/Wdouble-promotion.C' | ||
| 301 | --- old/gcc/testsuite/g++.dg/warn/Wdouble-promotion.C 1970-01-01 00:00:00 +0000 | ||
| 302 | +++ new/gcc/testsuite/g++.dg/warn/Wdouble-promotion.C 2010-09-07 15:47:57 +0000 | ||
| 303 | @@ -0,0 +1,99 @@ | ||
| 304 | +/* { dg-do compile } */ | ||
| 305 | +/* { dg-options "-Wdouble-promotion" } */ | ||
| 306 | + | ||
| 307 | +#include <stddef.h> | ||
| 308 | + | ||
| 309 | +/* Some targets do not provide <complex.h> so we define I ourselves. */ | ||
| 310 | +#define I 1.0iF | ||
| 311 | +#define ID ((_Complex double)I) | ||
| 312 | + | ||
| 313 | +float f; | ||
| 314 | +double d; | ||
| 315 | +int i; | ||
| 316 | +long double ld; | ||
| 317 | +_Complex float cf; | ||
| 318 | +_Complex double cd; | ||
| 319 | +_Complex long double cld; | ||
| 320 | +size_t s; | ||
| 321 | + | ||
| 322 | +extern void varargs_fn (int, ...); | ||
| 323 | +extern void double_fn (double); | ||
| 324 | +extern float float_fn (void); | ||
| 325 | + | ||
| 326 | +void | ||
| 327 | +usual_arithmetic_conversions(void) | ||
| 328 | +{ | ||
| 329 | + float local_f; | ||
| 330 | + _Complex float local_cf; | ||
| 331 | + | ||
| 332 | + /* Values of type "float" are implicitly converted to "double" or | ||
| 333 | + "long double" due to use in arithmetic with "double" or "long | ||
| 334 | + double" operands. */ | ||
| 335 | + local_f = f + 1.0; /* { dg-warning "implicit" } */ | ||
| 336 | + local_f = f - d; /* { dg-warning "implicit" } */ | ||
| 337 | + local_f = 1.0f * 1.0; /* { dg-warning "implicit" } */ | ||
| 338 | + local_f = 1.0f / d; /* { dg-warning "implicit" } */ | ||
| 339 | + | ||
| 340 | + local_cf = cf + 1.0; /* { dg-warning "implicit" } */ | ||
| 341 | + local_cf = cf - d; /* { dg-warning "implicit" } */ | ||
| 342 | + local_cf = cf + 1.0 * ID; /* { dg-warning "implicit" } */ | ||
| 343 | + local_cf = cf - cd; /* { dg-warning "implicit" } */ | ||
| 344 | + | ||
| 345 | + local_f = i ? f : d; /* { dg-warning "implicit" } */ | ||
| 346 | + i = f == d; /* { dg-warning "implicit" } */ | ||
| 347 | + i = d != f; /* { dg-warning "implicit" } */ | ||
| 348 | +} | ||
| 349 | + | ||
| 350 | +void | ||
| 351 | +default_argument_promotion (void) | ||
| 352 | +{ | ||
| 353 | + /* Because "f" is part of the variable argument list, it is promoted | ||
| 354 | + to "double". */ | ||
| 355 | + varargs_fn (1, f); /* { dg-warning "implicit" } */ | ||
| 356 | +} | ||
| 357 | + | ||
| 358 | +/* There is no warning when an explicit cast is used to perform the | ||
| 359 | + conversion. */ | ||
| 360 | + | ||
| 361 | +void | ||
| 362 | +casts (void) | ||
| 363 | +{ | ||
| 364 | + float local_f; | ||
| 365 | + _Complex float local_cf; | ||
| 366 | + | ||
| 367 | + local_f = (double)f + 1.0; /* { dg-bogus "implicit" } */ | ||
| 368 | + local_f = (double)f - d; /* { dg-bogus "implicit" } */ | ||
| 369 | + local_f = (double)1.0f + 1.0; /* { dg-bogus "implicit" } */ | ||
| 370 | + local_f = (double)1.0f - d; /* { dg-bogus "implicit" } */ | ||
| 371 | + | ||
| 372 | + local_cf = (_Complex double)cf + 1.0; /* { dg-bogus "implicit" } */ | ||
| 373 | + local_cf = (_Complex double)cf - d; /* { dg-bogus "implicit" } */ | ||
| 374 | + local_cf = (_Complex double)cf + 1.0 * ID; /* { dg-bogus "implicit" } */ | ||
| 375 | + local_cf = (_Complex double)cf - cd; /* { dg-bogus "implicit" } */ | ||
| 376 | + | ||
| 377 | + local_f = i ? (double)f : d; /* { dg-bogus "implicit" } */ | ||
| 378 | + i = (double)f == d; /* { dg-bogus "implicit" } */ | ||
| 379 | + i = d != (double)f; /* { dg-bogus "implicit" } */ | ||
| 380 | +} | ||
| 381 | + | ||
| 382 | +/* There is no warning on conversions that occur in assignment (and | ||
| 383 | + assignment-like) contexts. */ | ||
| 384 | + | ||
| 385 | +void | ||
| 386 | +assignments (void) | ||
| 387 | +{ | ||
| 388 | + d = f; /* { dg-bogus "implicit" } */ | ||
| 389 | + double_fn (f); /* { dg-bogus "implicit" } */ | ||
| 390 | + d = float_fn (); /* { dg-bogus "implicit" } */ | ||
| 391 | +} | ||
| 392 | + | ||
| 393 | +/* There is no warning in non-evaluated contexts. */ | ||
| 394 | + | ||
| 395 | +void | ||
| 396 | +non_evaluated (void) | ||
| 397 | +{ | ||
| 398 | + s = sizeof (f + 1.0); /* { dg-bogus "implicit" } */ | ||
| 399 | + s = __alignof__ (f + 1.0); /* { dg-bogus "implicit" } */ | ||
| 400 | + d = (__typeof__(f + 1.0))f; /* { dg-bogus "implicit" } */ | ||
| 401 | + s = sizeof (i ? f : d); /* { dg-bogus "implicit" } */ | ||
| 402 | +} | ||
| 403 | |||
| 404 | === added file 'gcc/testsuite/gcc.dg/Wdouble-promotion.c' | ||
| 405 | --- old/gcc/testsuite/gcc.dg/Wdouble-promotion.c 1970-01-01 00:00:00 +0000 | ||
| 406 | +++ new/gcc/testsuite/gcc.dg/Wdouble-promotion.c 2010-09-07 15:47:57 +0000 | ||
| 407 | @@ -0,0 +1,104 @@ | ||
| 408 | +/* { dg-do compile } */ | ||
| 409 | +/* { dg-options "-Wdouble-promotion" } */ | ||
| 410 | + | ||
| 411 | +#include <stddef.h> | ||
| 412 | + | ||
| 413 | +/* Some targets do not provide <complex.h> so we define I ourselves. */ | ||
| 414 | +#define I 1.0iF | ||
| 415 | +#define ID ((_Complex double)I) | ||
| 416 | + | ||
| 417 | +float f; | ||
| 418 | +double d; | ||
| 419 | +int i; | ||
| 420 | +long double ld; | ||
| 421 | +_Complex float cf; | ||
| 422 | +_Complex double cd; | ||
| 423 | +_Complex long double cld; | ||
| 424 | +size_t s; | ||
| 425 | + | ||
| 426 | +extern void unprototyped_fn (); | ||
| 427 | +extern void varargs_fn (int, ...); | ||
| 428 | +extern void double_fn (double); | ||
| 429 | +extern float float_fn (void); | ||
| 430 | + | ||
| 431 | +void | ||
| 432 | +usual_arithmetic_conversions(void) | ||
| 433 | +{ | ||
| 434 | + float local_f; | ||
| 435 | + _Complex float local_cf; | ||
| 436 | + | ||
| 437 | + /* Values of type "float" are implicitly converted to "double" or | ||
| 438 | + "long double" due to use in arithmetic with "double" or "long | ||
| 439 | + double" operands. */ | ||
| 440 | + local_f = f + 1.0; /* { dg-warning "implicit" } */ | ||
| 441 | + local_f = f - d; /* { dg-warning "implicit" } */ | ||
| 442 | + local_f = 1.0f * 1.0; /* { dg-warning "implicit" } */ | ||
| 443 | + local_f = 1.0f / d; /* { dg-warning "implicit" } */ | ||
| 444 | + | ||
| 445 | + local_cf = cf + 1.0; /* { dg-warning "implicit" } */ | ||
| 446 | + local_cf = cf - d; /* { dg-warning "implicit" } */ | ||
| 447 | + local_cf = cf + 1.0 * ID; /* { dg-warning "implicit" } */ | ||
| 448 | + local_cf = cf - cd; /* { dg-warning "implicit" } */ | ||
| 449 | + | ||
| 450 | + local_f = i ? f : d; /* { dg-warning "implicit" } */ | ||
| 451 | + i = f == d; /* { dg-warning "implicit" } */ | ||
| 452 | + i = d != f; /* { dg-warning "implicit" } */ | ||
| 453 | +} | ||
| 454 | + | ||
| 455 | +void | ||
| 456 | +default_argument_promotion (void) | ||
| 457 | +{ | ||
| 458 | + /* Because there is no prototype, "f" is promoted to "double". */ | ||
| 459 | + unprototyped_fn (f); /* { dg-warning "implicit" } */ | ||
| 460 | + undeclared_fn (f); /* { dg-warning "implicit" } */ | ||
| 461 | + /* Because "f" is part of the variable argument list, it is promoted | ||
| 462 | + to "double". */ | ||
| 463 | + varargs_fn (1, f); /* { dg-warning "implicit" } */ | ||
| 464 | +} | ||
| 465 | + | ||
| 466 | +/* There is no warning when an explicit cast is used to perform the | ||
| 467 | + conversion. */ | ||
| 468 | + | ||
| 469 | +void | ||
| 470 | +casts (void) | ||
| 471 | +{ | ||
| 472 | + float local_f; | ||
| 473 | + _Complex float local_cf; | ||
| 474 | + | ||
| 475 | + local_f = (double)f + 1.0; /* { dg-bogus "implicit" } */ | ||
| 476 | + local_f = (double)f - d; /* { dg-bogus "implicit" } */ | ||
| 477 | + local_f = (double)1.0f + 1.0; /* { dg-bogus "implicit" } */ | ||
| 478 | + local_f = (double)1.0f - d; /* { dg-bogus "implicit" } */ | ||
| 479 | + | ||
| 480 | + local_cf = (_Complex double)cf + 1.0; /* { dg-bogus "implicit" } */ | ||
| 481 | + local_cf = (_Complex double)cf - d; /* { dg-bogus "implicit" } */ | ||
| 482 | + local_cf = (_Complex double)cf + 1.0 * ID; /* { dg-bogus "implicit" } */ | ||
| 483 | + local_cf = (_Complex double)cf - cd; /* { dg-bogus "implicit" } */ | ||
| 484 | + | ||
| 485 | + local_f = i ? (double)f : d; /* { dg-bogus "implicit" } */ | ||
| 486 | + i = (double)f == d; /* { dg-bogus "implicit" } */ | ||
| 487 | + i = d != (double)f; /* { dg-bogus "implicit" } */ | ||
| 488 | +} | ||
| 489 | + | ||
| 490 | +/* There is no warning on conversions that occur in assignment (and | ||
| 491 | + assignment-like) contexts. */ | ||
| 492 | + | ||
| 493 | +void | ||
| 494 | +assignments (void) | ||
| 495 | +{ | ||
| 496 | + d = f; /* { dg-bogus "implicit" } */ | ||
| 497 | + double_fn (f); /* { dg-bogus "implicit" } */ | ||
| 498 | + d = float_fn (); /* { dg-bogus "implicit" } */ | ||
| 499 | +} | ||
| 500 | + | ||
| 501 | +/* There is no warning in non-evaluated contexts. */ | ||
| 502 | + | ||
| 503 | +void | ||
| 504 | +non_evaluated (void) | ||
| 505 | +{ | ||
| 506 | + s = sizeof (f + 1.0); /* { dg-bogus "implicit" } */ | ||
| 507 | + s = __alignof__ (f + 1.0); /* { dg-bogus "implicit" } */ | ||
| 508 | + d = (__typeof__(f + 1.0))f; /* { dg-bogus "implicit" } */ | ||
| 509 | + s = sizeof (i ? f : d); /* { dg-bogus "implicit" } */ | ||
| 510 | + s = sizeof (unprototyped_fn (f)); /* { dg-bogus "implicit" } */ | ||
| 511 | +} | ||
| 512 | |||
