diff options
Diffstat (limited to 'lang/gcc47/files/patch-fa')
-rw-r--r-- | lang/gcc47/files/patch-fa | 172 |
1 files changed, 76 insertions, 96 deletions
diff --git a/lang/gcc47/files/patch-fa b/lang/gcc47/files/patch-fa index 10385dd..064c33a 100644 --- a/lang/gcc47/files/patch-fa +++ b/lang/gcc47/files/patch-fa @@ -1,142 +1,119 @@ ---- gcc/c-format.c.orig Sun Nov 25 10:54:11 2001 -+++ gcc/c-format.c Sat Feb 2 19:04:24 2002 -@@ -82,12 +82,15 @@ +--- gcc/c-format.c.orig Wed Feb 20 14:54:32 2002 ++++ gcc/c-format.c Mon May 27 20:42:37 2002 +@@ -19,6 +19,8 @@ + Software Foundation, 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA. */ + ++/* $FreeBSD$ */ ++ + #include "config.h" + #include "system.h" + #include "tree.h" +@@ -75,6 +77,7 @@ + last. */ + enum format_type { printf_format_type, scanf_format_type, + strftime_format_type, strfmon_format_type, ++ printf0_format_type, + format_type_error }; + + typedef struct function_format_info +@@ -82,6 +85,7 @@ enum format_type format_type; /* type of format (printf, scanf, etc.) */ unsigned HOST_WIDE_INT format_num; /* number of format argument */ unsigned HOST_WIDE_INT first_arg_num; /* number of first arg (zero for varargs) */ -+ /* int null_format_ok; */ /* TRUE if the format string may be NULL */ ++ int null_format_ok; /* TRUE if the format string may be NULL */ } function_format_info; static bool decode_format_attr PARAMS ((tree, - function_format_info *, int)); - static enum format_type decode_format_type PARAMS ((const char *)); - -+/* inline static int get_null_fmt_ok PARAMS ((enum format_type)); */ -+ - /* Handle a "format" attribute; arguments as in - struct attribute_spec.handler. */ - tree -@@ -97,6 +100,7 @@ - tree args; - int flags; - bool *no_add_attrs; -+ /* int null_format_ok; */ - { - tree type = *node; - function_format_info info; -@@ -257,6 +261,7 @@ - const char *p = IDENTIFIER_POINTER (format_type_id); - - info->format_type = decode_format_type (p); -+ /* info->null_format_ok = get_null_fmt_ok (format_type); */ - - if (info->format_type == format_type_error) - { -@@ -292,6 +297,7 @@ - - info->format_num = TREE_INT_CST_LOW (format_num_expr); - info->first_arg_num = TREE_INT_CST_LOW (first_arg_num_expr); -+ /* info->null_format_ok = TREE_INT_CST_LOW (null_format_ok); */ - if (info->first_arg_num != 0 && info->first_arg_num <= info->format_num) +@@ -249,7 +253,7 @@ { if (validated_p) -@@ -540,6 +546,8 @@ + abort (); +- error ("unrecognized format specifier"); ++ error_with_decl (getdecls (), "unrecognized format specifier"); + return false; + } + else +@@ -540,6 +544,7 @@ /* Pointer to type of argument expected if '*' is used for a precision, or NULL if '*' not used for precisions. */ tree *const precision_type; -+ /* Needed for FreeBSD kernel and the printf0() printf-like function. */ -+ /* int null_format_ok; */ ++ const int null_format_ok; } format_kind_info; -@@ -765,6 +773,20 @@ - - static const format_char_info print_char_table[] = - { -+#warning The FreeBSD kernel extensions in print_char_table might not be done correctly. -+/* FreeBSD kernel extensions (src/sys/kern/subr_prf.c). */ -+/* The format %b is supported to decode error registers. -+ Its usage is: printf("reg=%b\n", regval, "<base><arg>*"); -+ which produces: reg=3<BITTWO,BITONE> -+ The format %D provides a hexdump given a pointer and separator string: -+ ("%6D", ptr, ":") -> XX:XX:XX:XX:XX:XX -+ ("%*D", len, ptr, " ") -> XX XX XX XX ... +@@ -783,6 +788,18 @@ + { "S", 1, STD_EXT, { TEX_W, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "-wp", "R" }, + /* GNU conversion specifiers. */ + { "m", 0, STD_EXT, { T89_V, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "-wp", "" }, ++ /* BSD conversion specifiers. */ ++ /* FreeBSD kernel extensions (src/sys/kern/subr_prf.c). ++ The format %b is supported to decode error registers. ++ Its usage is: printf("reg=%b\n", regval, "<base><arg>*"); ++ which produces: reg=3<BITTWO,BITONE> ++ The format %D provides a hexdump given a pointer and separator string: ++ ("%6D", ptr, ":") -> XX:XX:XX:XX:XX:XX ++ ("%*D", len, ptr, " ") -> XX XX XX XX ... + */ -+ { "D", 1, STD_EXT, { T89_C, T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "-wp", "c" }, -+ { "b", 1, STD_EXT, { T89_C, T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "-wp", "" }, -+ { "rz", 0, STD_EXT, { BADLEN, T89_I, T89_I, T89_L, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "-wp0 +#", "i" }, -+#define unextended_print_char_table (print_char_table + 3) -+#warning The FreeBSD kernel extensions in print_char_table might not be done correctly. - /* C89 conversion specifiers. */ - { "di", 0, STD_C89, { T89_I, T99_SC, T89_S, T89_L, T9L_LL, TEX_LL, T99_SST, T99_PD, T99_IM }, "-wp0 +'I", "i" }, - { "oxX", 0, STD_C89, { T89_UI, T99_UC, T89_US, T89_UL, T9L_ULL, TEX_ULL, T99_ST, T99_UPD, T99_UIM }, "-wp0#", "i" }, -@@ -848,23 +870,36 @@ ++ { "D", 1, STD_EXT, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "-wp", "cR" }, ++ { "b", 1, STD_EXT, { T89_C, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "-wp", "" }, ++ { "rz", 0, STD_EXT, { T89_I, BADLEN, BADLEN, T89_L, BADLEN, BADLEN, BADLEN, BADLEN, BADLEN }, "-wp0 +#", "i" }, + { NULL, 0, 0, NOLENGTHS, NULL, NULL } + }; + +@@ -847,23 +864,29 @@ + printf_flag_specs, printf_flag_pairs, FMT_FLAG_ARG_CONVERT|FMT_FLAG_DOLLAR_MULTIPLE|FMT_FLAG_USE_DOLLAR|FMT_FLAG_EMPTY_PREC_OK, 'w', 0, 'p', 0, 'L', - &integer_type_node, &integer_type_node -+ /* ,0 */ +- &integer_type_node, &integer_type_node ++ &integer_type_node, &integer_type_node, 0 }, { "scanf", scanf_length_specs, scan_char_table, "*'I", NULL, scanf_flag_specs, scanf_flag_pairs, FMT_FLAG_ARG_CONVERT|FMT_FLAG_SCANF_A_KLUDGE|FMT_FLAG_USE_DOLLAR|FMT_FLAG_ZERO_WIDTH_BAD|FMT_FLAG_DOLLAR_GAP_POINTER_OK, 'w', 0, 0, '*', 'L', - NULL, NULL -+ /* ,0 */ +- NULL, NULL ++ NULL, NULL, 0 }, { "strftime", NULL, time_char_table, "_-0^#", "EO", strftime_flag_specs, strftime_flag_pairs, FMT_FLAG_FANCY_PERCENT_OK, 'w', 0, 0, 0, 0, - NULL, NULL -+ /* ,0 */ +- NULL, NULL ++ NULL, NULL, 0 }, { "strfmon", strfmon_length_specs, monetary_char_table, "=^+(!-", NULL, strfmon_flag_specs, strfmon_flag_pairs, FMT_FLAG_ARG_CONVERT, 'w', '#', 'p', 0, 'L', - NULL, NULL -+ /* ,0 */ - } -+ /* -+ { "printf0", printf_length_specs, print_char_table, " +#0-'I", NULL, +- NULL, NULL ++ NULL, NULL, 0 ++ }, ++ { "printf0", printf_length_specs, print_char_table, " +#0-'I", NULL, + printf_flag_specs, printf_flag_pairs, + FMT_FLAG_ARG_CONVERT|FMT_FLAG_DOLLAR_MULTIPLE|FMT_FLAG_USE_DOLLAR|FMT_FLAG_EMPTY_PREC_OK, -+ 'w', 0, 'p', 0, 'L', -+ &integer_type_node, &integer_type_node -+ ,1 -+ }, -+ */ ++ 'w', 0, 'p', 0, 'L', ++ &integer_type_node, &integer_type_node, 1 + } }; - -@@ -917,6 +952,16 @@ +@@ -917,6 +940,14 @@ static void check_format_types PARAMS ((int *, format_wanted_type *)); + -+/* +inline static int get_null_fmt_ok (fmttype) + enum format_type fmttype; +{ + return format_types[(int)fmttype].null_format_ok; +} -+*/ + + /* Decode a format type from a string, returning the type, or format_type_error if not valid, in which case the caller should print an error message. */ -@@ -1475,7 +1520,7 @@ - specially if info == NULL and add a res->number_null entry for - that case, or maybe add a function pointer to be called at - the end instead of hardcoding check_format_info_main. */ -- status_warning (status, "null format string"); -+ /*if (!info->null_format_ok)*/ status_warning (status, "null format string"); - - /* Skip to first argument to check, so we can see if this format - has any arguments (it shouldn't). */ -@@ -1710,6 +1755,54 @@ - main_arg_num = opnum + info->first_arg_num - 1; +@@ -1986,6 +2017,57 @@ } } + + if (*format_chars == 'b') + { + /* There should be an int arg to control the string arg. */ @@ -156,7 +133,8 @@ + (TYPE_MAIN_VARIANT (TREE_TYPE (cur_param)) + != unsigned_type_node)) + { -+ status_warning (status, "bitmap is not type int (arg %d)", arg_num); ++ status_warning (status, "bitmap is not type int (arg %d)", ++ arg_num); + } + } + } @@ -171,6 +149,7 @@ + if (info->first_arg_num != 0) + { + tree cur_type; ++ + cur_param = TREE_VALUE (params); + params = TREE_CHAIN (params); + ++arg_num; @@ -180,15 +159,16 @@ + != unsigned_char_type_node) + { + status_warning (status, -+ "ethernet address is not type unsigned char * (arg %d)", -+ arg_num); ++ "ethernet address is not type unsigned char * (arg %d)", ++ arg_num); + } + } + } - - /* Read any format flags, but do not yet validate them beyond removing - duplicates, since in general validation depends on the rest of -@@ -2113,7 +2206,7 @@ ++ + format_char = *format_chars; + if (format_char == 0 + || (!(fki->flags & (int) FMT_FLAG_FANCY_PERCENT_OK) +@@ -2112,7 +2194,7 @@ else if (strchr (fci->flags2, '2') != 0) y2k_level = 2; if (y2k_level == 3) |