1 /* Check calls to formatted I/O functions (-Wformat).
2 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2010
4 Free Software Foundation, Inc.
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 3, or (at your option) any later
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
24 #include "coretypes.h"
31 #include "diagnostic.h"
32 #include "langhooks.h"
34 #include "alloc-pool.h"
36 /* Mingw specific format attributes ms_printf, ms_scanf, and ms_strftime. */
38 static format_length_info ms_printf_length_specs
[] =
40 { "h", FMT_LEN_h
, STD_C89
, NULL
, FMT_LEN_none
, STD_C89
, 0 },
41 { "l", FMT_LEN_l
, STD_C89
, NULL
, FMT_LEN_none
, STD_C89
, 0 },
42 { "I32", FMT_LEN_l
, STD_EXT
, NULL
, FMT_LEN_none
, STD_C89
, 1 },
43 { "I64", FMT_LEN_ll
, STD_EXT
, NULL
, FMT_LEN_none
, STD_C89
, 1 },
44 { "I", FMT_LEN_L
, STD_EXT
, NULL
, FMT_LEN_none
, STD_C89
, 1 },
45 { NULL
, FMT_LEN_none
, STD_C89
, NULL
, FMT_LEN_none
, STD_C89
, 0 }
48 static const format_flag_spec ms_printf_flag_specs
[] =
50 { ' ', 0, 0, N_("' ' flag"), N_("the ' ' printf flag"), STD_C89
},
51 { '+', 0, 0, N_("'+' flag"), N_("the '+' printf flag"), STD_C89
},
52 { '#', 0, 0, N_("'#' flag"), N_("the '#' printf flag"), STD_C89
},
53 { '0', 0, 0, N_("'0' flag"), N_("the '0' printf flag"), STD_C89
},
54 { '-', 0, 0, N_("'-' flag"), N_("the '-' printf flag"), STD_C89
},
55 { '\'', 0, 0, N_("''' flag"), N_("the ''' printf flag"), STD_EXT
},
56 { 'w', 0, 0, N_("field width"), N_("field width in printf format"), STD_C89
},
57 { 'p', 0, 0, N_("precision"), N_("precision in printf format"), STD_C89
},
58 { 'L', 0, 0, N_("length modifier"), N_("length modifier in printf format"), STD_C89
},
59 { 0, 0, 0, NULL
, NULL
, STD_C89
}
62 static const format_flag_pair ms_printf_flag_pairs
[] =
65 { '0', '-', 1, 0 }, { '0', 'p', 1, 'i' },
69 static const format_flag_spec ms_scanf_flag_specs
[] =
71 { '*', 0, 0, N_("assignment suppression"), N_("the assignment suppression scanf feature"), STD_C89
},
72 { 'a', 0, 0, N_("'a' flag"), N_("the 'a' scanf flag"), STD_EXT
},
73 { 'w', 0, 0, N_("field width"), N_("field width in scanf format"), STD_C89
},
74 { 'L', 0, 0, N_("length modifier"), N_("length modifier in scanf format"), STD_C89
},
75 { '\'', 0, 0, N_("''' flag"), N_("the ''' scanf flag"), STD_EXT
},
76 { 0, 0, 0, NULL
, NULL
, STD_C89
}
79 static const format_flag_pair ms_scanf_flag_pairs
[] =
85 static const format_flag_spec ms_strftime_flag_specs
[] =
87 { '#', 0, 0, N_("'#' flag"), N_("the '#' strftime flag"), STD_EXT
},
88 { 0, 0, 0, NULL
, NULL
, STD_C89
}
91 static const format_flag_pair ms_strftime_flag_pairs
[] =
96 static const format_char_info ms_print_char_table
[] =
98 /* C89 conversion specifiers. */
99 { "di", 0, STD_C89
, { T89_I
, BADLEN
, T89_S
, T89_L
, T9L_LL
, T99_SST
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-wp0 +'", "i", NULL
},
100 { "oxX", 0, STD_C89
, { T89_UI
, BADLEN
, T89_US
, T89_UL
, T9L_ULL
, T99_ST
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-wp0#", "i", NULL
},
101 { "u", 0, STD_C89
, { T89_UI
, BADLEN
, T89_US
, T89_UL
, T9L_ULL
, T99_ST
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-wp0'", "i", NULL
},
102 { "fgG", 0, STD_C89
, { T89_D
, BADLEN
, BADLEN
, T99_D
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-wp0 +#'", "", NULL
},
103 { "eE", 0, STD_C89
, { T89_D
, BADLEN
, BADLEN
, T99_D
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-wp0 +#", "", NULL
},
104 { "c", 0, STD_C89
, { T89_I
, BADLEN
, T89_S
, T94_WI
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-w", "", NULL
},
105 { "s", 1, STD_C89
, { T89_C
, BADLEN
, T89_S
, T94_W
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-wp", "cR", NULL
},
106 { "p", 1, STD_C89
, { T89_V
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-w", "c", NULL
},
107 { "n", 1, STD_C89
, { T89_I
, BADLEN
, T89_S
, T89_L
, T9L_LL
, BADLEN
, BADLEN
, BADLEN
, T99_IM
, BADLEN
, BADLEN
, BADLEN
}, "", "W", NULL
},
108 /* X/Open conversion specifiers. */
109 { "C", 0, STD_EXT
, { TEX_WI
, BADLEN
, T89_S
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-w", "", NULL
},
110 { "S", 1, STD_EXT
, { TEX_W
, BADLEN
, T89_S
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "-wp", "R", NULL
},
111 { NULL
, 0, STD_C89
, NOLENGTHS
, NULL
, NULL
, NULL
}
114 static const format_char_info ms_scan_char_table
[] =
116 /* C89 conversion specifiers. */
117 { "di", 1, STD_C89
, { T89_I
, BADLEN
, T89_S
, T89_L
, T9L_LL
, T99_SST
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*w'", "W", NULL
},
118 { "u", 1, STD_C89
, { T89_UI
, BADLEN
, T89_US
, T89_UL
, T9L_ULL
, T99_ST
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*w'", "W", NULL
},
119 { "oxX", 1, STD_C89
, { T89_UI
, BADLEN
, T89_US
, T89_UL
, T9L_ULL
, T99_ST
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*w", "W", NULL
},
120 { "efgEG", 1, STD_C89
, { T89_F
, BADLEN
, BADLEN
, T89_D
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*w'", "W", NULL
},
121 { "c", 1, STD_C89
, { T89_C
, BADLEN
, T89_S
, T94_W
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*w", "cW", NULL
},
122 { "s", 1, STD_C89
, { T89_C
, BADLEN
, T89_S
, T94_W
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*aw", "cW", NULL
},
123 { "[", 1, STD_C89
, { T89_C
, BADLEN
, BADLEN
, T94_W
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*aw", "cW[", NULL
},
124 { "p", 2, STD_C89
, { T89_V
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*w", "W", NULL
},
125 { "n", 1, STD_C89
, { T89_I
, BADLEN
, T89_S
, T89_L
, T9L_LL
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "", "W", NULL
},
126 /* X/Open conversion specifiers. */
127 { "C", 1, STD_EXT
, { TEX_W
, BADLEN
, T89_S
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*w", "W", NULL
},
128 { "S", 1, STD_EXT
, { TEX_W
, BADLEN
, T89_S
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
, BADLEN
}, "*aw", "W", NULL
},
129 { NULL
, 0, STD_C89
, NOLENGTHS
, NULL
, NULL
, NULL
}
132 static const format_char_info ms_time_char_table
[] =
134 /* C89 conversion specifiers. */
135 { "ABZab", 0, STD_C89
, NOLENGTHS
, "#", "", NULL
},
136 { "cx", 0, STD_C89
, NOLENGTHS
, "#", "3", NULL
},
137 { "HIMSUWdmw", 0, STD_C89
, NOLENGTHS
, "#", "", NULL
},
138 { "j", 0, STD_C89
, NOLENGTHS
, "#", "", NULL
},
139 { "p", 0, STD_C89
, NOLENGTHS
, "#", "", NULL
},
140 { "X", 0, STD_C89
, NOLENGTHS
, "#", "", NULL
},
141 { "y", 0, STD_C89
, NOLENGTHS
, "#", "4", NULL
},
142 { "Y", 0, STD_C89
, NOLENGTHS
, "#", "", NULL
},
143 { "%", 0, STD_C89
, NOLENGTHS
, "", "", NULL
},
144 /* C99 conversion specifiers. */
145 { "z", 0, STD_C99
, NOLENGTHS
, "#", "", NULL
},
146 { NULL
, 0, STD_C89
, NOLENGTHS
, NULL
, NULL
, NULL
}
149 EXPORTED_CONST format_kind_info mingw_format_attributes
[3] =
151 { "ms_printf", ms_printf_length_specs
, ms_print_char_table
, " +#0-'", NULL
,
152 ms_printf_flag_specs
, ms_printf_flag_pairs
,
153 FMT_FLAG_ARG_CONVERT
|FMT_FLAG_DOLLAR_MULTIPLE
|FMT_FLAG_USE_DOLLAR
|FMT_FLAG_EMPTY_PREC_OK
,
154 'w', 0, 'p', 0, 'L', 0,
155 &integer_type_node
, &integer_type_node
157 { "ms_scanf", ms_printf_length_specs
, ms_scan_char_table
, "*'", NULL
,
158 ms_scanf_flag_specs
, ms_scanf_flag_pairs
,
159 FMT_FLAG_ARG_CONVERT
|FMT_FLAG_SCANF_A_KLUDGE
|FMT_FLAG_USE_DOLLAR
|FMT_FLAG_ZERO_WIDTH_BAD
|FMT_FLAG_DOLLAR_GAP_POINTER_OK
,
160 'w', 0, 0, '*', 'L', 0,
163 { "ms_strftime", NULL
, ms_time_char_table
, "", "#",
164 ms_strftime_flag_specs
, ms_strftime_flag_pairs
,
165 FMT_FLAG_FANCY_PERCENT_OK
, 0, 0, 0, 0, 0, 0,
170 /* Default overrides for printf, scanf and strftime. */
171 EXPORTED_CONST target_ovr_attr mingw_format_attribute_overrides
[4] =
173 { "ms_printf", "printf" },
174 { "ms_scanf", "scanf" },
175 { "ms_strftime", "strftime" }
178 /* Setup for option Wpedantic-ms-format. */
180 #ifdef TARGET_OVERRIDES_FORMAT_INIT
182 /* Make sure TARGET_OVERRIDES_FORMAT_INIT is prototyped. */
183 extern void TARGET_OVERRIDES_FORMAT_INIT (void);
186 #define C89_OR_EXT (warn_pedantic_ms_format ? STD_EXT : STD_C89)
189 TARGET_OVERRIDES_FORMAT_INIT (void)
191 ms_printf_length_specs
[2].std
= C89_OR_EXT
; /* I32 */
192 ms_printf_length_specs
[3].std
= C89_OR_EXT
; /* I64 */
193 ms_printf_length_specs
[4].std
= C89_OR_EXT
; /* I */