From 3812f460464251b944255065422bd2755efad659 Mon Sep 17 00:00:00 2001 From: Martin Sebor Date: Tue, 11 Apr 2017 16:35:34 +0000 Subject: [PATCH] PR middle-end/80364 - sanitizer detects signed integer overflow in gimple-ssa-sprintf.c gcc/ChangeLog: PR middle-end/80364 * gimple-ssa-sprintf.c (get_int_range): Remove second argument and always use the int type. Use INTEGRAL_TYPE_P() rather than testing for INTEGER_TYPE. (directive::set_width, directive::set_precision, format_character): Adjust. (parse_directive): Use INTEGRAL_TYPE_P() rather than testing for INTEGER_TYPE. gcc/testsuite/ChangeLog: PR middle-end/80364 * gcc.dg/tree-ssa/builtin-sprintf-warn-16.c: New test. From-SVN: r246846 --- gcc/ChangeLog | 11 + gcc/gimple-ssa-sprintf.c | 71 +++-- gcc/testsuite/ChangeLog | 5 + .../gcc.dg/tree-ssa/builtin-sprintf-warn-16.c | 255 ++++++++++++++++++ 4 files changed, 315 insertions(+), 27 deletions(-) create mode 100644 gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-warn-16.c diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 8a729436f1e..fa7471e707a 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,14 @@ +2017-04-11 Martin Sebor + + PR middle-end/80364 + * gimple-ssa-sprintf.c (get_int_range): Remove second argument and + always use the int type. Use INTEGRAL_TYPE_P() rather than testing + for INTEGER_TYPE. + (directive::set_width, directive::set_precision, format_character): + Adjust. + (parse_directive): Use INTEGRAL_TYPE_P() rather than testing for + INTEGER_TYPE. + 2017-04-11 Richard Earnshaw PR target/80389 diff --git a/gcc/gimple-ssa-sprintf.c b/gcc/gimple-ssa-sprintf.c index 2474391cadf..2e62086e2d1 100644 --- a/gcc/gimple-ssa-sprintf.c +++ b/gcc/gimple-ssa-sprintf.c @@ -599,8 +599,7 @@ fmtresult::type_max_digits (tree type, int base) } static bool -get_int_range (tree, tree, HOST_WIDE_INT *, HOST_WIDE_INT *, - bool, HOST_WIDE_INT); +get_int_range (tree, HOST_WIDE_INT *, HOST_WIDE_INT *, bool, HOST_WIDE_INT); /* Description of a format directive. A directive is either a plain string or a conversion specification that starts with '%'. */ @@ -674,7 +673,7 @@ struct directive For an indeterminate ARG set width to [0, INT_MAX]. */ void set_width (tree arg) { - get_int_range (arg, integer_type_node, width, width + 1, true, 0); + get_int_range (arg, width, width + 1, true, 0); } /* Set both bounds of the precision range to VAL. */ @@ -690,7 +689,7 @@ struct directive For an indeterminate ARG set precision to [-1, INT_MAX]. */ void set_precision (tree arg) { - get_int_range (arg, integer_type_node, prec, prec + 1, false, -1); + get_int_range (arg, prec, prec + 1, false, -1); } /* Return true if both width and precision are known to be @@ -927,25 +926,27 @@ build_intmax_type_nodes (tree *pintmax, tree *puintmax) } } -/* Determine the range [*PMIN, *PMAX] that the expression ARG of TYPE - is in. Return true when the range is a subrange of that of TYPE. - Whn ARG is null it is as if it had the full range of TYPE. +/* Determine the range [*PMIN, *PMAX] that the expression ARG is + in and that is representable in type int. + Return true when the range is a subrange of that of int. + When ARG is null it is as if it had the full range of int. When ABSOLUTE is true the range reflects the absolute value of the argument. When ABSOLUTE is false, negative bounds of the determined range are replaced with NEGBOUND. */ static bool -get_int_range (tree arg, tree type, HOST_WIDE_INT *pmin, HOST_WIDE_INT *pmax, +get_int_range (tree arg, HOST_WIDE_INT *pmin, HOST_WIDE_INT *pmax, bool absolute, HOST_WIDE_INT negbound) { + /* The type of the result. */ + const_tree type = integer_type_node; + bool knownrange = false; if (!arg) { - *pmin = (TYPE_UNSIGNED (type) - ? tree_to_uhwi (TYPE_MIN_VALUE (type)) - : tree_to_shwi (TYPE_MIN_VALUE (type))); - *pmax = tree_to_uhwi (TYPE_MAX_VALUE (type)); + *pmin = tree_to_shwi (TYPE_MIN_VALUE (type)); + *pmax = tree_to_shwi (TYPE_MAX_VALUE (type)); } else if (TREE_CODE (arg) == INTEGER_CST) { @@ -961,10 +962,16 @@ get_int_range (tree arg, tree type, HOST_WIDE_INT *pmin, HOST_WIDE_INT *pmax, /* True if the argument's range cannot be determined. */ bool unknown = true; - type = TREE_TYPE (arg); + tree argtype = TREE_TYPE (arg); + /* Ignore invalid arguments with greater precision that that + of the expected type (e.g., in sprintf("%*i", 12LL, i)). + They will have been detected and diagnosed by -Wformat and + so it's not important to complicate this code to try to deal + with them again. */ if (TREE_CODE (arg) == SSA_NAME - && TREE_CODE (type) == INTEGER_TYPE) + && INTEGRAL_TYPE_P (argtype) + && TYPE_PRECISION (argtype) <= TYPE_PRECISION (type)) { /* Try to determine the range of values of the integer argument. */ wide_int min, max; @@ -972,27 +979,34 @@ get_int_range (tree arg, tree type, HOST_WIDE_INT *pmin, HOST_WIDE_INT *pmax, if (range_type == VR_RANGE) { HOST_WIDE_INT type_min - = (TYPE_UNSIGNED (type) - ? tree_to_uhwi (TYPE_MIN_VALUE (type)) - : tree_to_shwi (TYPE_MIN_VALUE (type))); + = (TYPE_UNSIGNED (argtype) + ? tree_to_uhwi (TYPE_MIN_VALUE (argtype)) + : tree_to_shwi (TYPE_MIN_VALUE (argtype))); - HOST_WIDE_INT type_max = tree_to_uhwi (TYPE_MAX_VALUE (type)); + HOST_WIDE_INT type_max = tree_to_uhwi (TYPE_MAX_VALUE (argtype)); *pmin = min.to_shwi (); *pmax = max.to_shwi (); - /* Return true if the adjusted range is a subrange of - the full range of the argument's type. */ - knownrange = type_min < *pmin || *pmax < type_max; - - unknown = false; + if (*pmin < *pmax) + { + /* Return true if the adjusted range is a subrange of + the full range of the argument's type. *PMAX may + be less than *PMIN when the argument is unsigned + and its upper bound is in excess of TYPE_MAX. In + that (invalid) case disregard the range and use that + of the expected type instead. */ + knownrange = type_min < *pmin || *pmax < type_max; + + unknown = false; + } } } /* Handle an argument with an unknown range as if none had been provided. */ if (unknown) - return get_int_range (NULL_TREE, type, pmin, pmax, absolute, negbound); + return get_int_range (NULL_TREE, pmin, pmax, absolute, negbound); } /* Adjust each bound as specified by ABSOLUTE and NEGBOUND. */ @@ -1004,6 +1018,9 @@ get_int_range (tree arg, tree type, HOST_WIDE_INT *pmin, HOST_WIDE_INT *pmax, *pmin = *pmax = -*pmin; else { + /* Make sure signed overlow is avoided. */ + gcc_assert (*pmin != HOST_WIDE_INT_MIN); + HOST_WIDE_INT tmp = -*pmin; *pmin = 0; if (*pmax < tmp) @@ -1948,7 +1965,7 @@ format_character (const directive &dir, tree arg) res.range.min = 0; HOST_WIDE_INT min, max; - if (get_int_range (arg, integer_type_node, &min, &max, false, 0)) + if (get_int_range (arg, &min, &max, false, 0)) { if (min == 0 && max == 0) { @@ -3125,7 +3142,7 @@ parse_directive (pass_sprintf_length::call_info &info, if (star_width) { - if (TREE_CODE (TREE_TYPE (star_width)) == INTEGER_TYPE) + if (INTEGRAL_TYPE_P (TREE_TYPE (star_width))) dir.set_width (star_width); else { @@ -3140,7 +3157,7 @@ parse_directive (pass_sprintf_length::call_info &info, if (star_precision) { - if (TREE_CODE (TREE_TYPE (star_precision)) == INTEGER_TYPE) + if (INTEGRAL_TYPE_P (TREE_TYPE (star_precision))) dir.set_precision (star_precision); else { diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 116b5b2707d..89196e60cf4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-04-11 Martin Sebor + + PR middle-end/80364 + * gcc.dg/tree-ssa/builtin-sprintf-warn-16.c: New test. + 2017-04-11 Martin Liska PR sanitizer/70878 diff --git a/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-warn-16.c b/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-warn-16.c new file mode 100644 index 00000000000..d6cbfe3e191 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/builtin-sprintf-warn-16.c @@ -0,0 +1,255 @@ +/* PR middle-end/80364 - sanitizer detects signed integer overflow + in gimple-ssa-sprintf.c + { dg-do compile } + { dg-options "-O2 -Wall -Wformat-overflow=1 -ftrack-macro-expansion=0" } + { dg-require-effective-target int32plus } */ + +typedef __SIZE_TYPE__ size_t; +typedef __WCHAR_TYPE__ wchar_t; + +void sink (void*); +void* get_value (void); + +/* Return a random width as type T. */ +#define W(T) *(T*)get_value () + +/* Return a random precision as type T. */ +#define P(T) *(T*)get_value () + +/* Return a random value as type T. */ +#define V(T) *(T*)get_value () + +extern char buf[1]; + +/* Test convenience macro. */ +#define T(fmt, ...) \ + __builtin_sprintf (buf + 1, fmt, __VA_ARGS__); \ + sink (buf) + +typedef signed char schar_t; +typedef unsigned char uchar_t; +typedef signed short sshort_t; +typedef unsigned short ushort_t; +typedef signed int sint_t; +typedef unsigned int uint_t; +typedef signed long slong_t; +typedef unsigned long ulong_t; +typedef signed long long sllong_t; +typedef unsigned long long ullong_t; + +#if __SIZEOF_INT128__ +typedef __int128_t sint128_t; +typedef __uint128_t uint128_t; +#else +/* When __int128_t is not available, repeat the same tests with long long. + This is to avoid having to guard the tests below and to avoid making + the dg-warning directives conditional. */ +typedef signed long long sint128_t; +typedef unsigned long long uint128_t; +#endif + +const sint128_t sint128_max + = (sint128_t)1 << (sizeof sint128_max * __CHAR_BIT__ - 2); +const sint128_t uint128_max = (uint128_t)-1; + +void test_width_cst (void) +{ + T ("%*i", W (schar_t), 1); /* { dg-warning "between 1 and 128 " } */ + T ("%*i", W (uchar_t), 12); /* { dg-warning "between 2 and 255 " } */ + + T ("%*i", W (sshort_t), 123); /* { dg-warning "between 3 and 32768 " } */ + T ("%*i", W (ushort_t), 1234); /* { dg-warning "between 4 and 65535 " } */ + + T ("%*i", W (sint_t), 12345); /* { dg-warning "between 5 and 2147483648 " } */ + T ("%*i", W (uint_t), 123456); /* { dg-warning "between 6 and 2147483648 " } */ + + /* Exercise calls with invalid arguments (to verify there is no ICE). */ + T ("%*li", W (slong_t), 1234567L); /* { dg-warning "between 7 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%*li", W (ulong_t), 12345678L); /* { dg-warning "between 8 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + T ("%*lli", W (sllong_t), 123456789LL); /* { dg-warning "between 9 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%*lli", W (ullong_t), 1234567890LL); /* { dg-warning "between 10 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + T ("%*i", W (sint128_t), 0); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%*i", W (uint128_t), 1); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + { + extern sint128_t si128; + if (si128 < sint128_max / 2 || sint128_max - 8 < si128) + si128 = sint128_max / 2; + + T ("%*i", si128, 0); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + extern uint128_t ui128; + if (ui128 < uint128_max / 2 || uint128_max - 8 < ui128) + ui128 = uint128_max / 2; + + T ("%*i", ui128, 0); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + } + + T ("%*i", W (float), 2); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%*i", W (double), 3); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ +} + +void test_width_var (void) +{ + T ("%*i", W (schar_t), V (schar_t)); /* { dg-warning "between 1 and 128 " } */ + T ("%*i", W (uchar_t), V (uchar_t)); /* { dg-warning "between 1 and 255 " } */ + + T ("%*i", W (sshort_t), V (sshort_t)); /* { dg-warning "between 1 and 32768 " } */ + T ("%*i", W (ushort_t), V (ushort_t)); /* { dg-warning "between 1 and 65535 " } */ + + T ("%*i", W (sint_t), V (sint_t)); /* { dg-warning "between 1 and 2147483648 " } */ + T ("%*i", W (uint_t), V (uint_t)); /* { dg-warning "between 1 and 2147483648 " } */ + + /* Exercise calls with invalid arguments (to verify there is no ICE). */ + T ("%*li", W (slong_t), V (slong_t)); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%*li", W (ulong_t), V (ulong_t)); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + T ("%*lli", W (sllong_t), V (sllong_t)); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%*lli", W (ullong_t), V (ullong_t)); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + T ("%*i", W (float), V (int)); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%*i", W (double), V (int)); /* { dg-warning "between 1 and 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + { + /* Create an unsigned range with a lower bound greater than 1 and + an upper bound in excess of INT_MAX and verify that the lower + bound isn't used as the minimum output (since the excessive + upper bound wraps around zero). It's possible to constrain + the upper bound on the output more, based on the upper bound + of the width here, but not worth the trouble. */ + extern unsigned w; + if (w < 5 || (unsigned)-1 - 7 < w) + w = 5; + + T ("%*u", w, V (int)); /* { dg-warning "between 1 and 2147483648 " } */ + } + + { + /* Verify that enums are correctly handled (i.e., that the warning + doesn't just test for TREE_CODE(type) == INTEGER_TYPE but instead + uses INTEGRAL_TYPE_P() or some equivalent. */ + enum WidthEnum { e7 = 7, e9 = 9 }; + enum WidthEnum w = V (enum WidthEnum); + if (w < e7 || e9 < w) + w = e7; + + T ("%*hu", w, V (int)); /* { dg-warning "between 7 and 9 " } */ + } +} + +void test_precision_cst (void) +{ + T ("%.*i", P (schar_t), 1); /* { dg-warning "between 1 and 127 " } */ + T ("%.*i", P (uchar_t), 12); /* { dg-warning "between 2 and 255 " } */ + + T ("%.*i", P (sshort_t), 123); /* { dg-warning "between 3 and 32767 " } */ + T ("%.*i", P (ushort_t), 1234); /* { dg-warning "between 4 and 65535 " } */ + + T ("%.*i", P (sint_t), 12345); /* { dg-warning "between 5 and 2147483647 " } */ + T ("%.*i", P (uint_t), 123456); /* { dg-warning "between 6 and 2147483647 " } */ + + /* Exercise calls with invalid arguments (to verify there is no ICE). */ + T ("%.*li", P (slong_t), 1234567L); /* { dg-warning "between 7 and 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%.*li", P (ulong_t), 12345678L); /* { dg-warning "between 8 and 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + T ("%.*lli", P (sllong_t), 123456789LL); /* { dg-warning "between 9 and 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%.*lli", P (ullong_t), 1234567890LL); /* { dg-warning "between 10 and 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + T ("%.*i", P (sint128_t), 0); /* { dg-warning "up to 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%.*i", P (uint128_t), 1); /* { dg-warning "between 1 and 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + { + extern sint128_t si128; + if (si128 < sint128_max / 2 || sint128_max - 8 < si128) + si128 = sint128_max / 2; + + T ("%.*i", si128, 0); /* { dg-warning "up to 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + extern uint128_t ui128; + if (ui128 < uint128_max / 2 || uint128_max - 8 < ui128) + ui128 = uint128_max / 2; + + T ("%.*i", ui128, 0); /* { dg-warning "up to 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + } + + T ("%.*i", P (float), 0); /* { dg-warning "up to 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%.*i", P (double), 1); /* { dg-warning "between 1 and 2147483647 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ +} + +void test_precision_var (void) +{ + T ("%.*i", P (schar_t), V (schar_t)); /* { dg-warning "up to 128 " } */ + T ("%.*i", P (uchar_t), V (uchar_t)); /* { dg-warning "up to 255 " } */ + + T ("%.*i", P (sshort_t), V (sshort_t)); /* { dg-warning "up to 32768 " } */ + T ("%.*i", P (ushort_t), V (ushort_t)); /* { dg-warning "up to 65535 " } */ + + T ("%.*i", P (sint_t), V (sint_t)); /* { dg-warning "up to 2147483648 " } */ + T ("%.*i", P (uint_t), V (uint_t)); /* { dg-warning "up to 2147483648 " } */ + + /* Exercise calls with invalid arguments (to verify there is no ICE). */ + T ("%.*li", P (slong_t), V (slong_t)); /* { dg-warning "up to 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%.*li", P (ulong_t), V (ulong_t)); /* { dg-warning "up to 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + T ("%.*lli", P (sllong_t), V (sllong_t)); /* { dg-warning "up to 2147483648" } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%.*lli", P (ullong_t), V (ullong_t)); /* { dg-warning "up to 2147483648" } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + T ("%.*i", P (float), V (int)); /* { dg-warning "up to 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + T ("%.*i", P (double), V (int)); /* { dg-warning "up to 2147483648 " } */ + /* { dg-warning "expects argument of type .int." "" { target *-*-* } .-1 } */ + + { + /* Similar to the corresponding width case, create an unsigned range + with a lower bound greater than 1 and an upper bound in excess of + INT_MAX and verify that the lower bound isn't used as the minimum + output (since the excessive upper bound wraps around zero). */ + extern unsigned p; + if (p < 7 || (unsigned)-1 - 9 < p) + p = 7; + + T ("%.*u", p, V (int)); /* { dg-warning "up to 2147483647 " } */ + } + + { + /* Verify that enums are correctly handled. */ + enum PrecEnum { e9 = 9, e17 = 17 }; + enum PrecEnum p = V (enum PrecEnum); + if (p < e9 || e17 < p) + p = e9; + + T ("%.*u", p, V (int)); /* { dg-warning "between 9 and 17 " } */ + } +} -- 2.30.2