1 /* UndefinedBehaviorSanitizer, undefined behavior detector.
2 Copyright (C) 2013-2016 Free Software Foundation, Inc.
3 Contributed by Marek Polacek <polacek@redhat.com>
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
23 #include "coretypes.h"
25 #include "c-family/c-common.h"
27 #include "c-family/c-ubsan.h"
29 #include "stor-layout.h"
33 /* Instrument division by zero and INT_MIN / -1. If not instrumenting,
37 ubsan_instrument_division (location_t loc
, tree op0
, tree op1
)
40 tree type
= TREE_TYPE (op0
);
42 /* At this point both operands should have the same type,
43 because they are already converted to RESULT_TYPE.
44 Use TYPE_MAIN_VARIANT since typedefs can confuse us. */
45 gcc_assert (TYPE_MAIN_VARIANT (TREE_TYPE (op0
))
46 == TYPE_MAIN_VARIANT (TREE_TYPE (op1
)));
48 op0
= unshare_expr (op0
);
49 op1
= unshare_expr (op1
);
51 if (TREE_CODE (type
) == INTEGER_TYPE
52 && (flag_sanitize
& SANITIZE_DIVIDE
))
53 t
= fold_build2 (EQ_EXPR
, boolean_type_node
,
54 op1
, build_int_cst (type
, 0));
55 else if (TREE_CODE (type
) == REAL_TYPE
56 && (flag_sanitize
& SANITIZE_FLOAT_DIVIDE
))
57 t
= fold_build2 (EQ_EXPR
, boolean_type_node
,
58 op1
, build_real (type
, dconst0
));
62 /* We check INT_MIN / -1 only for signed types. */
63 if (TREE_CODE (type
) == INTEGER_TYPE
64 && (flag_sanitize
& SANITIZE_DIVIDE
)
65 && !TYPE_UNSIGNED (type
))
68 tt
= fold_build2 (EQ_EXPR
, boolean_type_node
, unshare_expr (op1
),
69 build_int_cst (type
, -1));
70 x
= fold_build2 (EQ_EXPR
, boolean_type_node
, op0
,
71 TYPE_MIN_VALUE (type
));
72 x
= fold_build2 (TRUTH_AND_EXPR
, boolean_type_node
, x
, tt
);
73 t
= fold_build2 (TRUTH_OR_EXPR
, boolean_type_node
, t
, x
);
76 /* If the condition was folded to 0, no need to instrument
78 if (integer_zerop (t
))
81 /* In case we have a SAVE_EXPR in a conditional context, we need to
82 make sure it gets evaluated before the condition. */
83 t
= fold_build2 (COMPOUND_EXPR
, TREE_TYPE (t
), unshare_expr (op0
), t
);
84 t
= fold_build2 (COMPOUND_EXPR
, TREE_TYPE (t
), unshare_expr (op1
), t
);
85 if (flag_sanitize_undefined_trap_on_error
)
86 tt
= build_call_expr_loc (loc
, builtin_decl_explicit (BUILT_IN_TRAP
), 0);
89 tree data
= ubsan_create_data ("__ubsan_overflow_data", 1, &loc
,
90 ubsan_type_descriptor (type
), NULL_TREE
,
92 data
= build_fold_addr_expr_loc (loc
, data
);
93 enum built_in_function bcode
94 = (flag_sanitize_recover
& SANITIZE_DIVIDE
)
95 ? BUILT_IN_UBSAN_HANDLE_DIVREM_OVERFLOW
96 : BUILT_IN_UBSAN_HANDLE_DIVREM_OVERFLOW_ABORT
;
97 tt
= builtin_decl_explicit (bcode
);
98 op0
= unshare_expr (op0
);
99 op1
= unshare_expr (op1
);
100 tt
= build_call_expr_loc (loc
, tt
, 3, data
, ubsan_encode_value (op0
),
101 ubsan_encode_value (op1
));
103 t
= fold_build3 (COND_EXPR
, void_type_node
, t
, tt
, void_node
);
108 /* Instrument left and right shifts. */
111 ubsan_instrument_shift (location_t loc
, enum tree_code code
,
114 tree t
, tt
= NULL_TREE
;
115 tree type0
= TREE_TYPE (op0
);
116 tree type1
= TREE_TYPE (op1
);
117 if (!INTEGRAL_TYPE_P (type0
))
120 tree op1_utype
= unsigned_type_for (type1
);
121 HOST_WIDE_INT op0_prec
= TYPE_PRECISION (type0
);
122 tree uprecm1
= build_int_cst (op1_utype
, op0_prec
- 1);
124 op0
= unshare_expr (op0
);
125 op1
= unshare_expr (op1
);
127 t
= fold_convert_loc (loc
, op1_utype
, op1
);
128 t
= fold_build2 (GT_EXPR
, boolean_type_node
, t
, uprecm1
);
130 /* If this is not a signed operation, don't perform overflow checks.
131 Also punt on bit-fields. */
132 if (TYPE_OVERFLOW_WRAPS (type0
)
133 || GET_MODE_BITSIZE (TYPE_MODE (type0
)) != TYPE_PRECISION (type0
))
136 /* For signed x << y, in C99/C11, the following:
137 (unsigned) x >> (uprecm1 - y)
138 if non-zero, is undefined. */
139 else if (code
== LSHIFT_EXPR
&& flag_isoc99
&& cxx_dialect
< cxx11
)
141 tree x
= fold_build2 (MINUS_EXPR
, op1_utype
, uprecm1
,
142 fold_convert (op1_utype
, unshare_expr (op1
)));
143 tt
= fold_convert_loc (loc
, unsigned_type_for (type0
), op0
);
144 tt
= fold_build2 (RSHIFT_EXPR
, TREE_TYPE (tt
), tt
, x
);
145 tt
= fold_build2 (NE_EXPR
, boolean_type_node
, tt
,
146 build_int_cst (TREE_TYPE (tt
), 0));
149 /* For signed x << y, in C++11 and later, the following:
150 x < 0 || ((unsigned) x >> (uprecm1 - y))
151 if > 1, is undefined. */
152 else if (code
== LSHIFT_EXPR
&& cxx_dialect
>= cxx11
)
154 tree x
= fold_build2 (MINUS_EXPR
, op1_utype
, uprecm1
,
155 fold_convert (op1_utype
, unshare_expr (op1
)));
156 tt
= fold_convert_loc (loc
, unsigned_type_for (type0
),
158 tt
= fold_build2 (RSHIFT_EXPR
, TREE_TYPE (tt
), tt
, x
);
159 tt
= fold_build2 (GT_EXPR
, boolean_type_node
, tt
,
160 build_int_cst (TREE_TYPE (tt
), 1));
161 x
= fold_build2 (LT_EXPR
, boolean_type_node
, unshare_expr (op0
),
162 build_int_cst (type0
, 0));
163 tt
= fold_build2 (TRUTH_OR_EXPR
, boolean_type_node
, x
, tt
);
166 /* If the condition was folded to 0, no need to instrument
168 if (integer_zerop (t
) && (tt
== NULL_TREE
|| integer_zerop (tt
)))
171 /* In case we have a SAVE_EXPR in a conditional context, we need to
172 make sure it gets evaluated before the condition. */
173 t
= fold_build2 (COMPOUND_EXPR
, TREE_TYPE (t
), unshare_expr (op0
), t
);
174 t
= fold_build2 (TRUTH_OR_EXPR
, boolean_type_node
, t
,
175 tt
? tt
: integer_zero_node
);
177 if (flag_sanitize_undefined_trap_on_error
)
178 tt
= build_call_expr_loc (loc
, builtin_decl_explicit (BUILT_IN_TRAP
), 0);
181 tree data
= ubsan_create_data ("__ubsan_shift_data", 1, &loc
,
182 ubsan_type_descriptor (type0
),
183 ubsan_type_descriptor (type1
), NULL_TREE
,
185 data
= build_fold_addr_expr_loc (loc
, data
);
187 enum built_in_function bcode
188 = (flag_sanitize_recover
& SANITIZE_SHIFT
)
189 ? BUILT_IN_UBSAN_HANDLE_SHIFT_OUT_OF_BOUNDS
190 : BUILT_IN_UBSAN_HANDLE_SHIFT_OUT_OF_BOUNDS_ABORT
;
191 tt
= builtin_decl_explicit (bcode
);
192 op0
= unshare_expr (op0
);
193 op1
= unshare_expr (op1
);
194 tt
= build_call_expr_loc (loc
, tt
, 3, data
, ubsan_encode_value (op0
),
195 ubsan_encode_value (op1
));
197 t
= fold_build3 (COND_EXPR
, void_type_node
, t
, tt
, void_node
);
202 /* Instrument variable length array bound. */
205 ubsan_instrument_vla (location_t loc
, tree size
)
207 tree type
= TREE_TYPE (size
);
210 t
= fold_build2 (LE_EXPR
, boolean_type_node
, size
, build_int_cst (type
, 0));
211 if (flag_sanitize_undefined_trap_on_error
)
212 tt
= build_call_expr_loc (loc
, builtin_decl_explicit (BUILT_IN_TRAP
), 0);
215 tree data
= ubsan_create_data ("__ubsan_vla_data", 1, &loc
,
216 ubsan_type_descriptor (type
), NULL_TREE
,
218 data
= build_fold_addr_expr_loc (loc
, data
);
219 enum built_in_function bcode
220 = (flag_sanitize_recover
& SANITIZE_VLA
)
221 ? BUILT_IN_UBSAN_HANDLE_VLA_BOUND_NOT_POSITIVE
222 : BUILT_IN_UBSAN_HANDLE_VLA_BOUND_NOT_POSITIVE_ABORT
;
223 tt
= builtin_decl_explicit (bcode
);
224 tt
= build_call_expr_loc (loc
, tt
, 2, data
, ubsan_encode_value (size
));
226 t
= fold_build3 (COND_EXPR
, void_type_node
, t
, tt
, void_node
);
231 /* Instrument missing return in C++ functions returning non-void. */
234 ubsan_instrument_return (location_t loc
)
236 if (flag_sanitize_undefined_trap_on_error
)
237 return build_call_expr_loc (loc
, builtin_decl_explicit (BUILT_IN_TRAP
), 0);
239 tree data
= ubsan_create_data ("__ubsan_missing_return_data", 1, &loc
,
240 NULL_TREE
, NULL_TREE
);
241 tree t
= builtin_decl_explicit (BUILT_IN_UBSAN_HANDLE_MISSING_RETURN
);
242 return build_call_expr_loc (loc
, t
, 1, build_fold_addr_expr_loc (loc
, data
));
245 /* Instrument array bounds for ARRAY_REFs. We create special builtin,
246 that gets expanded in the sanopt pass, and make an array dimension
247 of it. ARRAY is the array, *INDEX is an index to the array.
248 Return NULL_TREE if no instrumentation is emitted.
249 IGNORE_OFF_BY_ONE is true if the ARRAY_REF is inside a ADDR_EXPR. */
252 ubsan_instrument_bounds (location_t loc
, tree array
, tree
*index
,
253 bool ignore_off_by_one
)
255 tree type
= TREE_TYPE (array
);
256 tree domain
= TYPE_DOMAIN (type
);
258 if (domain
== NULL_TREE
|| TYPE_MAX_VALUE (domain
) == NULL_TREE
)
261 tree bound
= TYPE_MAX_VALUE (domain
);
262 if (ignore_off_by_one
)
263 bound
= fold_build2 (PLUS_EXPR
, TREE_TYPE (bound
), bound
,
264 build_int_cst (TREE_TYPE (bound
), 1));
266 /* Detect flexible array members and suchlike, unless
267 -fsanitize=bounds-strict. */
268 tree base
= get_base_address (array
);
269 if ((flag_sanitize
& SANITIZE_BOUNDS_STRICT
) == 0
270 && TREE_CODE (array
) == COMPONENT_REF
271 && base
&& (INDIRECT_REF_P (base
) || TREE_CODE (base
) == MEM_REF
))
273 tree next
= NULL_TREE
;
276 /* Walk all structs/unions. */
277 while (TREE_CODE (cref
) == COMPONENT_REF
)
279 if (TREE_CODE (TREE_TYPE (TREE_OPERAND (cref
, 0))) == RECORD_TYPE
)
280 for (next
= DECL_CHAIN (TREE_OPERAND (cref
, 1));
281 next
&& TREE_CODE (next
) != FIELD_DECL
;
282 next
= DECL_CHAIN (next
))
285 /* Not a last element. Instrument it. */
287 /* Ok, this is the last field of the structure/union. But the
288 aggregate containing the field must be the last field too,
290 cref
= TREE_OPERAND (cref
, 0);
293 /* Don't instrument this flexible array member-like array in non-strict
294 -fsanitize=bounds mode. */
298 /* Don't emit instrumentation in the most common cases. */
299 tree idx
= NULL_TREE
;
300 if (TREE_CODE (*index
) == INTEGER_CST
)
302 else if (TREE_CODE (*index
) == BIT_AND_EXPR
303 && TREE_CODE (TREE_OPERAND (*index
, 1)) == INTEGER_CST
)
304 idx
= TREE_OPERAND (*index
, 1);
306 && TREE_CODE (bound
) == INTEGER_CST
307 && tree_int_cst_sgn (idx
) >= 0
308 && tree_int_cst_le (idx
, bound
))
311 *index
= save_expr (*index
);
312 /* Create a "(T *) 0" tree node to describe the array type. */
313 tree zero_with_type
= build_int_cst (build_pointer_type (type
), 0);
314 return build_call_expr_internal_loc (loc
, IFN_UBSAN_BOUNDS
,
315 void_type_node
, 3, zero_with_type
,
319 /* Return true iff T is an array that was instrumented by SANITIZE_BOUNDS. */
322 ubsan_array_ref_instrumented_p (const_tree t
)
324 if (TREE_CODE (t
) != ARRAY_REF
)
327 tree op1
= TREE_OPERAND (t
, 1);
328 return TREE_CODE (op1
) == COMPOUND_EXPR
329 && TREE_CODE (TREE_OPERAND (op1
, 0)) == CALL_EXPR
330 && CALL_EXPR_FN (TREE_OPERAND (op1
, 0)) == NULL_TREE
331 && CALL_EXPR_IFN (TREE_OPERAND (op1
, 0)) == IFN_UBSAN_BOUNDS
;
334 /* Instrument an ARRAY_REF, if it hasn't already been instrumented.
335 IGNORE_OFF_BY_ONE is true if the ARRAY_REF is inside a ADDR_EXPR. */
338 ubsan_maybe_instrument_array_ref (tree
*expr_p
, bool ignore_off_by_one
)
340 if (!ubsan_array_ref_instrumented_p (*expr_p
)
341 && do_ubsan_in_current_function ())
343 tree op0
= TREE_OPERAND (*expr_p
, 0);
344 tree op1
= TREE_OPERAND (*expr_p
, 1);
345 tree e
= ubsan_instrument_bounds (EXPR_LOCATION (*expr_p
), op0
, &op1
,
349 tree t
= copy_node (*expr_p
);
350 TREE_OPERAND (t
, 1) = build2 (COMPOUND_EXPR
, TREE_TYPE (op1
),
358 ubsan_maybe_instrument_reference_or_call (location_t loc
, tree op
, tree ptype
,
359 enum ubsan_null_ckind ckind
)
361 if (!do_ubsan_in_current_function ())
364 tree type
= TREE_TYPE (ptype
);
366 bool instrument
= false;
367 unsigned int mina
= 0;
369 if (flag_sanitize
& SANITIZE_ALIGNMENT
)
371 mina
= min_align_of_type (type
);
375 while ((TREE_CODE (op
) == NOP_EXPR
376 || TREE_CODE (op
) == NON_LVALUE_EXPR
)
377 && TREE_CODE (TREE_TYPE (op
)) == POINTER_TYPE
)
378 op
= TREE_OPERAND (op
, 0);
379 if (TREE_CODE (op
) == NOP_EXPR
380 && TREE_CODE (TREE_TYPE (op
)) == REFERENCE_TYPE
)
382 if (mina
&& mina
> min_align_of_type (TREE_TYPE (TREE_TYPE (op
))))
387 if ((flag_sanitize
& SANITIZE_NULL
) && TREE_CODE (op
) == ADDR_EXPR
)
389 bool strict_overflow_p
= false;
390 /* tree_single_nonzero_warnv_p will not return true for non-weak
391 non-automatic decls with -fno-delete-null-pointer-checks,
392 which is disabled during -fsanitize=null. We don't want to
393 instrument those, just weak vars though. */
394 int save_flag_delete_null_pointer_checks
395 = flag_delete_null_pointer_checks
;
396 flag_delete_null_pointer_checks
= 1;
397 if (!tree_single_nonzero_warnv_p (op
, &strict_overflow_p
)
398 || strict_overflow_p
)
400 flag_delete_null_pointer_checks
401 = save_flag_delete_null_pointer_checks
;
403 else if (flag_sanitize
& SANITIZE_NULL
)
405 if (mina
&& mina
> 1)
407 if (!POINTER_TYPE_P (TREE_TYPE (op
))
408 || mina
> get_pointer_alignment (op
) / BITS_PER_UNIT
)
414 op
= save_expr (orig_op
);
415 gcc_assert (POINTER_TYPE_P (ptype
));
416 if (TREE_CODE (ptype
) == REFERENCE_TYPE
)
417 ptype
= build_pointer_type (TREE_TYPE (ptype
));
418 tree kind
= build_int_cst (ptype
, ckind
);
419 tree align
= build_int_cst (pointer_sized_int_node
, mina
);
421 = build_call_expr_internal_loc (loc
, IFN_UBSAN_NULL
, void_type_node
,
423 TREE_SIDE_EFFECTS (call
) = 1;
424 return fold_build2 (COMPOUND_EXPR
, TREE_TYPE (op
), call
, op
);
427 /* Instrument a NOP_EXPR to REFERENCE_TYPE if needed. */
430 ubsan_maybe_instrument_reference (tree stmt
)
432 tree op
= TREE_OPERAND (stmt
, 0);
433 op
= ubsan_maybe_instrument_reference_or_call (EXPR_LOCATION (stmt
), op
,
437 TREE_OPERAND (stmt
, 0) = op
;
440 /* Instrument a CALL_EXPR to a method if needed. */
443 ubsan_maybe_instrument_member_call (tree stmt
, bool is_ctor
)
445 if (call_expr_nargs (stmt
) == 0)
447 tree op
= CALL_EXPR_ARG (stmt
, 0);
448 if (op
== error_mark_node
449 || !POINTER_TYPE_P (TREE_TYPE (op
)))
451 op
= ubsan_maybe_instrument_reference_or_call (EXPR_LOCATION (stmt
), op
,
453 is_ctor
? UBSAN_CTOR_CALL
454 : UBSAN_MEMBER_CALL
);
456 CALL_EXPR_ARG (stmt
, 0) = op
;