1 /* GCC instrumentation plugin for ThreadSanitizer.
2 Copyright (C) 2011-2020 Free Software Foundation, Inc.
3 Contributed by Dmitry Vyukov <dvyukov@google.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/>. */
24 #include "coretypes.h"
30 #include "tree-pass.h"
33 #include "fold-const.h"
35 #include "gimple-iterator.h"
36 #include "gimplify-me.h"
38 #include "tree-iterator.h"
39 #include "tree-ssa-propagate.h"
40 #include "tree-ssa-loop-ivopts.h"
43 #include "stringpool.h"
49 /* Number of instrumented memory accesses in the current function. */
51 /* Builds the following decl
52 void __tsan_read/writeX (void *addr); */
55 get_memory_access_decl (bool is_write
, unsigned size
, bool volatilep
)
57 enum built_in_function fcode
;
71 if (param_tsan_distinguish_volatile
&& volatilep
)
72 fcode
= is_write
? BUILT_IN_TSAN_VOLATILE_WRITE1
73 : BUILT_IN_TSAN_VOLATILE_READ1
;
75 fcode
= is_write
? BUILT_IN_TSAN_WRITE1
76 : BUILT_IN_TSAN_READ1
;
77 fcode
= (built_in_function
)(fcode
+ pos
);
79 return builtin_decl_implicit (fcode
);
82 /* Check as to whether EXPR refers to a store to vptr. */
85 is_vptr_store (gimple
*stmt
, tree expr
, bool is_write
)
88 && gimple_assign_single_p (stmt
)
89 && TREE_CODE (expr
) == COMPONENT_REF
)
91 tree field
= TREE_OPERAND (expr
, 1);
92 if (TREE_CODE (field
) == FIELD_DECL
93 && DECL_VIRTUAL_P (field
))
94 return gimple_assign_rhs1 (stmt
);
99 /* Instruments EXPR if needed. If any instrumentation is inserted,
103 instrument_expr (gimple_stmt_iterator gsi
, tree expr
, bool is_write
)
105 tree base
, rhs
, expr_ptr
, builtin_decl
;
113 size
= int_size_in_bytes (TREE_TYPE (expr
));
117 poly_int64 unused_bitsize
, unused_bitpos
;
120 int unsignedp
, reversep
, volatilep
= 0;
121 base
= get_inner_reference (expr
, &unused_bitsize
, &unused_bitpos
, &offset
,
122 &mode
, &unsignedp
, &reversep
, &volatilep
);
124 /* No need to instrument accesses to decls that don't escape,
125 they can't escape to other threads then. */
126 if (DECL_P (base
) && !is_global_var (base
))
128 struct pt_solution pt
;
129 memset (&pt
, 0, sizeof (pt
));
131 pt
.ipa_escaped
= flag_ipa_pta
!= 0;
132 if (!pt_solution_includes (&pt
, base
))
134 if (!may_be_aliased (base
))
138 if (TREE_READONLY (base
) || (VAR_P (base
) && DECL_HARD_REGISTER (base
)))
141 stmt
= gsi_stmt (gsi
);
142 loc
= gimple_location (stmt
);
143 rhs
= is_vptr_store (stmt
, expr
, is_write
);
145 if ((TREE_CODE (expr
) == COMPONENT_REF
146 && DECL_BIT_FIELD_TYPE (TREE_OPERAND (expr
, 1)))
147 || TREE_CODE (expr
) == BIT_FIELD_REF
)
149 HOST_WIDE_INT bitpos
, bitsize
;
150 base
= TREE_OPERAND (expr
, 0);
151 if (TREE_CODE (expr
) == COMPONENT_REF
)
153 expr
= TREE_OPERAND (expr
, 1);
154 if (is_write
&& DECL_BIT_FIELD_REPRESENTATIVE (expr
))
155 expr
= DECL_BIT_FIELD_REPRESENTATIVE (expr
);
156 if (!tree_fits_uhwi_p (DECL_FIELD_OFFSET (expr
))
157 || !tree_fits_uhwi_p (DECL_FIELD_BIT_OFFSET (expr
))
158 || !tree_fits_uhwi_p (DECL_SIZE (expr
)))
160 bitpos
= tree_to_uhwi (DECL_FIELD_OFFSET (expr
)) * BITS_PER_UNIT
161 + tree_to_uhwi (DECL_FIELD_BIT_OFFSET (expr
));
162 bitsize
= tree_to_uhwi (DECL_SIZE (expr
));
166 if (!tree_fits_uhwi_p (TREE_OPERAND (expr
, 2))
167 || !tree_fits_uhwi_p (TREE_OPERAND (expr
, 1)))
169 bitpos
= tree_to_uhwi (TREE_OPERAND (expr
, 2));
170 bitsize
= tree_to_uhwi (TREE_OPERAND (expr
, 1));
172 if (bitpos
< 0 || bitsize
<= 0)
174 size
= (bitpos
% BITS_PER_UNIT
+ bitsize
+ BITS_PER_UNIT
- 1)
176 if (may_be_nonaddressable_p (base
))
178 align
= get_object_alignment (base
);
179 if (align
< BITS_PER_UNIT
)
181 bitpos
= bitpos
& ~(BITS_PER_UNIT
- 1);
182 if ((align
- 1) & bitpos
)
184 align
= (align
- 1) & bitpos
;
185 align
= least_bit_hwi (align
);
187 expr
= build_fold_addr_expr (unshare_expr (base
));
188 expr
= build2 (MEM_REF
, char_type_node
, expr
,
189 build_int_cst (TREE_TYPE (expr
), bitpos
/ BITS_PER_UNIT
));
190 expr_ptr
= build_fold_addr_expr (expr
);
194 if (may_be_nonaddressable_p (expr
))
196 align
= get_object_alignment (expr
);
197 if (align
< BITS_PER_UNIT
)
199 expr_ptr
= build_fold_addr_expr (unshare_expr (expr
));
201 expr_ptr
= force_gimple_operand (expr_ptr
, &seq
, true, NULL_TREE
);
202 if ((size
& (size
- 1)) != 0 || size
> 16
203 || align
< MIN (size
, 8) * BITS_PER_UNIT
)
205 builtin_decl
= builtin_decl_implicit (is_write
206 ? BUILT_IN_TSAN_WRITE_RANGE
207 : BUILT_IN_TSAN_READ_RANGE
);
208 g
= gimple_build_call (builtin_decl
, 2, expr_ptr
, size_int (size
));
210 else if (rhs
== NULL
)
211 g
= gimple_build_call (get_memory_access_decl (is_write
, size
,
212 TREE_THIS_VOLATILE (expr
)),
216 builtin_decl
= builtin_decl_implicit (BUILT_IN_TSAN_VPTR_UPDATE
);
217 g
= gimple_build_call (builtin_decl
, 2, expr_ptr
, unshare_expr (rhs
));
219 gimple_set_location (g
, loc
);
220 gimple_seq_add_stmt_without_update (&seq
, g
);
221 /* Instrumentation for assignment of a function result
222 must be inserted after the call. Instrumentation for
223 reads of function arguments must be inserted before the call.
224 That's because the call can contain synchronization. */
225 if (is_gimple_call (stmt
) && is_write
)
227 /* If the call can throw, it must be the last stmt in
228 a basic block, so the instrumented stmts need to be
229 inserted in successor bbs. */
230 if (is_ctrl_altering_stmt (stmt
))
235 e
= find_fallthru_edge (bb
->succs
);
237 gsi_insert_seq_on_edge_immediate (e
, seq
);
240 gsi_insert_seq_after (&gsi
, seq
, GSI_NEW_STMT
);
243 gsi_insert_seq_before (&gsi
, seq
, GSI_SAME_STMT
);
248 /* Actions for sync/atomic builtin transformations. */
249 enum tsan_atomic_action
251 check_last
, add_seq_cst
, add_acquire
, weak_cas
, strong_cas
,
252 bool_cas
, val_cas
, lock_release
, fetch_op
, fetch_op_seq_cst
,
253 bool_clear
, bool_test_and_set
256 /* Table how to map sync/atomic builtins to their corresponding
258 static const struct tsan_map_atomic
260 enum built_in_function fcode
, tsan_fcode
;
261 enum tsan_atomic_action action
;
263 } tsan_atomic_table
[] =
265 #define TRANSFORM(fcode, tsan_fcode, action, code) \
266 { BUILT_IN_##fcode, BUILT_IN_##tsan_fcode, action, code }
267 #define CHECK_LAST(fcode, tsan_fcode) \
268 TRANSFORM (fcode, tsan_fcode, check_last, ERROR_MARK)
269 #define ADD_SEQ_CST(fcode, tsan_fcode) \
270 TRANSFORM (fcode, tsan_fcode, add_seq_cst, ERROR_MARK)
271 #define ADD_ACQUIRE(fcode, tsan_fcode) \
272 TRANSFORM (fcode, tsan_fcode, add_acquire, ERROR_MARK)
273 #define WEAK_CAS(fcode, tsan_fcode) \
274 TRANSFORM (fcode, tsan_fcode, weak_cas, ERROR_MARK)
275 #define STRONG_CAS(fcode, tsan_fcode) \
276 TRANSFORM (fcode, tsan_fcode, strong_cas, ERROR_MARK)
277 #define BOOL_CAS(fcode, tsan_fcode) \
278 TRANSFORM (fcode, tsan_fcode, bool_cas, ERROR_MARK)
279 #define VAL_CAS(fcode, tsan_fcode) \
280 TRANSFORM (fcode, tsan_fcode, val_cas, ERROR_MARK)
281 #define LOCK_RELEASE(fcode, tsan_fcode) \
282 TRANSFORM (fcode, tsan_fcode, lock_release, ERROR_MARK)
283 #define FETCH_OP(fcode, tsan_fcode, code) \
284 TRANSFORM (fcode, tsan_fcode, fetch_op, code)
285 #define FETCH_OPS(fcode, tsan_fcode, code) \
286 TRANSFORM (fcode, tsan_fcode, fetch_op_seq_cst, code)
287 #define BOOL_CLEAR(fcode, tsan_fcode) \
288 TRANSFORM (fcode, tsan_fcode, bool_clear, ERROR_MARK)
289 #define BOOL_TEST_AND_SET(fcode, tsan_fcode) \
290 TRANSFORM (fcode, tsan_fcode, bool_test_and_set, ERROR_MARK)
292 CHECK_LAST (ATOMIC_LOAD_1
, TSAN_ATOMIC8_LOAD
),
293 CHECK_LAST (ATOMIC_LOAD_2
, TSAN_ATOMIC16_LOAD
),
294 CHECK_LAST (ATOMIC_LOAD_4
, TSAN_ATOMIC32_LOAD
),
295 CHECK_LAST (ATOMIC_LOAD_8
, TSAN_ATOMIC64_LOAD
),
296 CHECK_LAST (ATOMIC_LOAD_16
, TSAN_ATOMIC128_LOAD
),
297 CHECK_LAST (ATOMIC_STORE_1
, TSAN_ATOMIC8_STORE
),
298 CHECK_LAST (ATOMIC_STORE_2
, TSAN_ATOMIC16_STORE
),
299 CHECK_LAST (ATOMIC_STORE_4
, TSAN_ATOMIC32_STORE
),
300 CHECK_LAST (ATOMIC_STORE_8
, TSAN_ATOMIC64_STORE
),
301 CHECK_LAST (ATOMIC_STORE_16
, TSAN_ATOMIC128_STORE
),
302 CHECK_LAST (ATOMIC_EXCHANGE_1
, TSAN_ATOMIC8_EXCHANGE
),
303 CHECK_LAST (ATOMIC_EXCHANGE_2
, TSAN_ATOMIC16_EXCHANGE
),
304 CHECK_LAST (ATOMIC_EXCHANGE_4
, TSAN_ATOMIC32_EXCHANGE
),
305 CHECK_LAST (ATOMIC_EXCHANGE_8
, TSAN_ATOMIC64_EXCHANGE
),
306 CHECK_LAST (ATOMIC_EXCHANGE_16
, TSAN_ATOMIC128_EXCHANGE
),
307 CHECK_LAST (ATOMIC_FETCH_ADD_1
, TSAN_ATOMIC8_FETCH_ADD
),
308 CHECK_LAST (ATOMIC_FETCH_ADD_2
, TSAN_ATOMIC16_FETCH_ADD
),
309 CHECK_LAST (ATOMIC_FETCH_ADD_4
, TSAN_ATOMIC32_FETCH_ADD
),
310 CHECK_LAST (ATOMIC_FETCH_ADD_8
, TSAN_ATOMIC64_FETCH_ADD
),
311 CHECK_LAST (ATOMIC_FETCH_ADD_16
, TSAN_ATOMIC128_FETCH_ADD
),
312 CHECK_LAST (ATOMIC_FETCH_SUB_1
, TSAN_ATOMIC8_FETCH_SUB
),
313 CHECK_LAST (ATOMIC_FETCH_SUB_2
, TSAN_ATOMIC16_FETCH_SUB
),
314 CHECK_LAST (ATOMIC_FETCH_SUB_4
, TSAN_ATOMIC32_FETCH_SUB
),
315 CHECK_LAST (ATOMIC_FETCH_SUB_8
, TSAN_ATOMIC64_FETCH_SUB
),
316 CHECK_LAST (ATOMIC_FETCH_SUB_16
, TSAN_ATOMIC128_FETCH_SUB
),
317 CHECK_LAST (ATOMIC_FETCH_AND_1
, TSAN_ATOMIC8_FETCH_AND
),
318 CHECK_LAST (ATOMIC_FETCH_AND_2
, TSAN_ATOMIC16_FETCH_AND
),
319 CHECK_LAST (ATOMIC_FETCH_AND_4
, TSAN_ATOMIC32_FETCH_AND
),
320 CHECK_LAST (ATOMIC_FETCH_AND_8
, TSAN_ATOMIC64_FETCH_AND
),
321 CHECK_LAST (ATOMIC_FETCH_AND_16
, TSAN_ATOMIC128_FETCH_AND
),
322 CHECK_LAST (ATOMIC_FETCH_OR_1
, TSAN_ATOMIC8_FETCH_OR
),
323 CHECK_LAST (ATOMIC_FETCH_OR_2
, TSAN_ATOMIC16_FETCH_OR
),
324 CHECK_LAST (ATOMIC_FETCH_OR_4
, TSAN_ATOMIC32_FETCH_OR
),
325 CHECK_LAST (ATOMIC_FETCH_OR_8
, TSAN_ATOMIC64_FETCH_OR
),
326 CHECK_LAST (ATOMIC_FETCH_OR_16
, TSAN_ATOMIC128_FETCH_OR
),
327 CHECK_LAST (ATOMIC_FETCH_XOR_1
, TSAN_ATOMIC8_FETCH_XOR
),
328 CHECK_LAST (ATOMIC_FETCH_XOR_2
, TSAN_ATOMIC16_FETCH_XOR
),
329 CHECK_LAST (ATOMIC_FETCH_XOR_4
, TSAN_ATOMIC32_FETCH_XOR
),
330 CHECK_LAST (ATOMIC_FETCH_XOR_8
, TSAN_ATOMIC64_FETCH_XOR
),
331 CHECK_LAST (ATOMIC_FETCH_XOR_16
, TSAN_ATOMIC128_FETCH_XOR
),
332 CHECK_LAST (ATOMIC_FETCH_NAND_1
, TSAN_ATOMIC8_FETCH_NAND
),
333 CHECK_LAST (ATOMIC_FETCH_NAND_2
, TSAN_ATOMIC16_FETCH_NAND
),
334 CHECK_LAST (ATOMIC_FETCH_NAND_4
, TSAN_ATOMIC32_FETCH_NAND
),
335 CHECK_LAST (ATOMIC_FETCH_NAND_8
, TSAN_ATOMIC64_FETCH_NAND
),
336 CHECK_LAST (ATOMIC_FETCH_NAND_16
, TSAN_ATOMIC128_FETCH_NAND
),
338 CHECK_LAST (ATOMIC_THREAD_FENCE
, TSAN_ATOMIC_THREAD_FENCE
),
339 CHECK_LAST (ATOMIC_SIGNAL_FENCE
, TSAN_ATOMIC_SIGNAL_FENCE
),
341 FETCH_OP (ATOMIC_ADD_FETCH_1
, TSAN_ATOMIC8_FETCH_ADD
, PLUS_EXPR
),
342 FETCH_OP (ATOMIC_ADD_FETCH_2
, TSAN_ATOMIC16_FETCH_ADD
, PLUS_EXPR
),
343 FETCH_OP (ATOMIC_ADD_FETCH_4
, TSAN_ATOMIC32_FETCH_ADD
, PLUS_EXPR
),
344 FETCH_OP (ATOMIC_ADD_FETCH_8
, TSAN_ATOMIC64_FETCH_ADD
, PLUS_EXPR
),
345 FETCH_OP (ATOMIC_ADD_FETCH_16
, TSAN_ATOMIC128_FETCH_ADD
, PLUS_EXPR
),
346 FETCH_OP (ATOMIC_SUB_FETCH_1
, TSAN_ATOMIC8_FETCH_SUB
, MINUS_EXPR
),
347 FETCH_OP (ATOMIC_SUB_FETCH_2
, TSAN_ATOMIC16_FETCH_SUB
, MINUS_EXPR
),
348 FETCH_OP (ATOMIC_SUB_FETCH_4
, TSAN_ATOMIC32_FETCH_SUB
, MINUS_EXPR
),
349 FETCH_OP (ATOMIC_SUB_FETCH_8
, TSAN_ATOMIC64_FETCH_SUB
, MINUS_EXPR
),
350 FETCH_OP (ATOMIC_SUB_FETCH_16
, TSAN_ATOMIC128_FETCH_SUB
, MINUS_EXPR
),
351 FETCH_OP (ATOMIC_AND_FETCH_1
, TSAN_ATOMIC8_FETCH_AND
, BIT_AND_EXPR
),
352 FETCH_OP (ATOMIC_AND_FETCH_2
, TSAN_ATOMIC16_FETCH_AND
, BIT_AND_EXPR
),
353 FETCH_OP (ATOMIC_AND_FETCH_4
, TSAN_ATOMIC32_FETCH_AND
, BIT_AND_EXPR
),
354 FETCH_OP (ATOMIC_AND_FETCH_8
, TSAN_ATOMIC64_FETCH_AND
, BIT_AND_EXPR
),
355 FETCH_OP (ATOMIC_AND_FETCH_16
, TSAN_ATOMIC128_FETCH_AND
, BIT_AND_EXPR
),
356 FETCH_OP (ATOMIC_OR_FETCH_1
, TSAN_ATOMIC8_FETCH_OR
, BIT_IOR_EXPR
),
357 FETCH_OP (ATOMIC_OR_FETCH_2
, TSAN_ATOMIC16_FETCH_OR
, BIT_IOR_EXPR
),
358 FETCH_OP (ATOMIC_OR_FETCH_4
, TSAN_ATOMIC32_FETCH_OR
, BIT_IOR_EXPR
),
359 FETCH_OP (ATOMIC_OR_FETCH_8
, TSAN_ATOMIC64_FETCH_OR
, BIT_IOR_EXPR
),
360 FETCH_OP (ATOMIC_OR_FETCH_16
, TSAN_ATOMIC128_FETCH_OR
, BIT_IOR_EXPR
),
361 FETCH_OP (ATOMIC_XOR_FETCH_1
, TSAN_ATOMIC8_FETCH_XOR
, BIT_XOR_EXPR
),
362 FETCH_OP (ATOMIC_XOR_FETCH_2
, TSAN_ATOMIC16_FETCH_XOR
, BIT_XOR_EXPR
),
363 FETCH_OP (ATOMIC_XOR_FETCH_4
, TSAN_ATOMIC32_FETCH_XOR
, BIT_XOR_EXPR
),
364 FETCH_OP (ATOMIC_XOR_FETCH_8
, TSAN_ATOMIC64_FETCH_XOR
, BIT_XOR_EXPR
),
365 FETCH_OP (ATOMIC_XOR_FETCH_16
, TSAN_ATOMIC128_FETCH_XOR
, BIT_XOR_EXPR
),
366 FETCH_OP (ATOMIC_NAND_FETCH_1
, TSAN_ATOMIC8_FETCH_NAND
, BIT_NOT_EXPR
),
367 FETCH_OP (ATOMIC_NAND_FETCH_2
, TSAN_ATOMIC16_FETCH_NAND
, BIT_NOT_EXPR
),
368 FETCH_OP (ATOMIC_NAND_FETCH_4
, TSAN_ATOMIC32_FETCH_NAND
, BIT_NOT_EXPR
),
369 FETCH_OP (ATOMIC_NAND_FETCH_8
, TSAN_ATOMIC64_FETCH_NAND
, BIT_NOT_EXPR
),
370 FETCH_OP (ATOMIC_NAND_FETCH_16
, TSAN_ATOMIC128_FETCH_NAND
, BIT_NOT_EXPR
),
372 ADD_ACQUIRE (SYNC_LOCK_TEST_AND_SET_1
, TSAN_ATOMIC8_EXCHANGE
),
373 ADD_ACQUIRE (SYNC_LOCK_TEST_AND_SET_2
, TSAN_ATOMIC16_EXCHANGE
),
374 ADD_ACQUIRE (SYNC_LOCK_TEST_AND_SET_4
, TSAN_ATOMIC32_EXCHANGE
),
375 ADD_ACQUIRE (SYNC_LOCK_TEST_AND_SET_8
, TSAN_ATOMIC64_EXCHANGE
),
376 ADD_ACQUIRE (SYNC_LOCK_TEST_AND_SET_16
, TSAN_ATOMIC128_EXCHANGE
),
378 ADD_SEQ_CST (SYNC_FETCH_AND_ADD_1
, TSAN_ATOMIC8_FETCH_ADD
),
379 ADD_SEQ_CST (SYNC_FETCH_AND_ADD_2
, TSAN_ATOMIC16_FETCH_ADD
),
380 ADD_SEQ_CST (SYNC_FETCH_AND_ADD_4
, TSAN_ATOMIC32_FETCH_ADD
),
381 ADD_SEQ_CST (SYNC_FETCH_AND_ADD_8
, TSAN_ATOMIC64_FETCH_ADD
),
382 ADD_SEQ_CST (SYNC_FETCH_AND_ADD_16
, TSAN_ATOMIC128_FETCH_ADD
),
383 ADD_SEQ_CST (SYNC_FETCH_AND_SUB_1
, TSAN_ATOMIC8_FETCH_SUB
),
384 ADD_SEQ_CST (SYNC_FETCH_AND_SUB_2
, TSAN_ATOMIC16_FETCH_SUB
),
385 ADD_SEQ_CST (SYNC_FETCH_AND_SUB_4
, TSAN_ATOMIC32_FETCH_SUB
),
386 ADD_SEQ_CST (SYNC_FETCH_AND_SUB_8
, TSAN_ATOMIC64_FETCH_SUB
),
387 ADD_SEQ_CST (SYNC_FETCH_AND_SUB_16
, TSAN_ATOMIC128_FETCH_SUB
),
388 ADD_SEQ_CST (SYNC_FETCH_AND_AND_1
, TSAN_ATOMIC8_FETCH_AND
),
389 ADD_SEQ_CST (SYNC_FETCH_AND_AND_2
, TSAN_ATOMIC16_FETCH_AND
),
390 ADD_SEQ_CST (SYNC_FETCH_AND_AND_4
, TSAN_ATOMIC32_FETCH_AND
),
391 ADD_SEQ_CST (SYNC_FETCH_AND_AND_8
, TSAN_ATOMIC64_FETCH_AND
),
392 ADD_SEQ_CST (SYNC_FETCH_AND_AND_16
, TSAN_ATOMIC128_FETCH_AND
),
393 ADD_SEQ_CST (SYNC_FETCH_AND_OR_1
, TSAN_ATOMIC8_FETCH_OR
),
394 ADD_SEQ_CST (SYNC_FETCH_AND_OR_2
, TSAN_ATOMIC16_FETCH_OR
),
395 ADD_SEQ_CST (SYNC_FETCH_AND_OR_4
, TSAN_ATOMIC32_FETCH_OR
),
396 ADD_SEQ_CST (SYNC_FETCH_AND_OR_8
, TSAN_ATOMIC64_FETCH_OR
),
397 ADD_SEQ_CST (SYNC_FETCH_AND_OR_16
, TSAN_ATOMIC128_FETCH_OR
),
398 ADD_SEQ_CST (SYNC_FETCH_AND_XOR_1
, TSAN_ATOMIC8_FETCH_XOR
),
399 ADD_SEQ_CST (SYNC_FETCH_AND_XOR_2
, TSAN_ATOMIC16_FETCH_XOR
),
400 ADD_SEQ_CST (SYNC_FETCH_AND_XOR_4
, TSAN_ATOMIC32_FETCH_XOR
),
401 ADD_SEQ_CST (SYNC_FETCH_AND_XOR_8
, TSAN_ATOMIC64_FETCH_XOR
),
402 ADD_SEQ_CST (SYNC_FETCH_AND_XOR_16
, TSAN_ATOMIC128_FETCH_XOR
),
403 ADD_SEQ_CST (SYNC_FETCH_AND_NAND_1
, TSAN_ATOMIC8_FETCH_NAND
),
404 ADD_SEQ_CST (SYNC_FETCH_AND_NAND_2
, TSAN_ATOMIC16_FETCH_NAND
),
405 ADD_SEQ_CST (SYNC_FETCH_AND_NAND_4
, TSAN_ATOMIC32_FETCH_NAND
),
406 ADD_SEQ_CST (SYNC_FETCH_AND_NAND_8
, TSAN_ATOMIC64_FETCH_NAND
),
407 ADD_SEQ_CST (SYNC_FETCH_AND_NAND_16
, TSAN_ATOMIC128_FETCH_NAND
),
409 ADD_SEQ_CST (SYNC_SYNCHRONIZE
, TSAN_ATOMIC_THREAD_FENCE
),
411 FETCH_OPS (SYNC_ADD_AND_FETCH_1
, TSAN_ATOMIC8_FETCH_ADD
, PLUS_EXPR
),
412 FETCH_OPS (SYNC_ADD_AND_FETCH_2
, TSAN_ATOMIC16_FETCH_ADD
, PLUS_EXPR
),
413 FETCH_OPS (SYNC_ADD_AND_FETCH_4
, TSAN_ATOMIC32_FETCH_ADD
, PLUS_EXPR
),
414 FETCH_OPS (SYNC_ADD_AND_FETCH_8
, TSAN_ATOMIC64_FETCH_ADD
, PLUS_EXPR
),
415 FETCH_OPS (SYNC_ADD_AND_FETCH_16
, TSAN_ATOMIC128_FETCH_ADD
, PLUS_EXPR
),
416 FETCH_OPS (SYNC_SUB_AND_FETCH_1
, TSAN_ATOMIC8_FETCH_SUB
, MINUS_EXPR
),
417 FETCH_OPS (SYNC_SUB_AND_FETCH_2
, TSAN_ATOMIC16_FETCH_SUB
, MINUS_EXPR
),
418 FETCH_OPS (SYNC_SUB_AND_FETCH_4
, TSAN_ATOMIC32_FETCH_SUB
, MINUS_EXPR
),
419 FETCH_OPS (SYNC_SUB_AND_FETCH_8
, TSAN_ATOMIC64_FETCH_SUB
, MINUS_EXPR
),
420 FETCH_OPS (SYNC_SUB_AND_FETCH_16
, TSAN_ATOMIC128_FETCH_SUB
, MINUS_EXPR
),
421 FETCH_OPS (SYNC_AND_AND_FETCH_1
, TSAN_ATOMIC8_FETCH_AND
, BIT_AND_EXPR
),
422 FETCH_OPS (SYNC_AND_AND_FETCH_2
, TSAN_ATOMIC16_FETCH_AND
, BIT_AND_EXPR
),
423 FETCH_OPS (SYNC_AND_AND_FETCH_4
, TSAN_ATOMIC32_FETCH_AND
, BIT_AND_EXPR
),
424 FETCH_OPS (SYNC_AND_AND_FETCH_8
, TSAN_ATOMIC64_FETCH_AND
, BIT_AND_EXPR
),
425 FETCH_OPS (SYNC_AND_AND_FETCH_16
, TSAN_ATOMIC128_FETCH_AND
, BIT_AND_EXPR
),
426 FETCH_OPS (SYNC_OR_AND_FETCH_1
, TSAN_ATOMIC8_FETCH_OR
, BIT_IOR_EXPR
),
427 FETCH_OPS (SYNC_OR_AND_FETCH_2
, TSAN_ATOMIC16_FETCH_OR
, BIT_IOR_EXPR
),
428 FETCH_OPS (SYNC_OR_AND_FETCH_4
, TSAN_ATOMIC32_FETCH_OR
, BIT_IOR_EXPR
),
429 FETCH_OPS (SYNC_OR_AND_FETCH_8
, TSAN_ATOMIC64_FETCH_OR
, BIT_IOR_EXPR
),
430 FETCH_OPS (SYNC_OR_AND_FETCH_16
, TSAN_ATOMIC128_FETCH_OR
, BIT_IOR_EXPR
),
431 FETCH_OPS (SYNC_XOR_AND_FETCH_1
, TSAN_ATOMIC8_FETCH_XOR
, BIT_XOR_EXPR
),
432 FETCH_OPS (SYNC_XOR_AND_FETCH_2
, TSAN_ATOMIC16_FETCH_XOR
, BIT_XOR_EXPR
),
433 FETCH_OPS (SYNC_XOR_AND_FETCH_4
, TSAN_ATOMIC32_FETCH_XOR
, BIT_XOR_EXPR
),
434 FETCH_OPS (SYNC_XOR_AND_FETCH_8
, TSAN_ATOMIC64_FETCH_XOR
, BIT_XOR_EXPR
),
435 FETCH_OPS (SYNC_XOR_AND_FETCH_16
, TSAN_ATOMIC128_FETCH_XOR
, BIT_XOR_EXPR
),
436 FETCH_OPS (SYNC_NAND_AND_FETCH_1
, TSAN_ATOMIC8_FETCH_NAND
, BIT_NOT_EXPR
),
437 FETCH_OPS (SYNC_NAND_AND_FETCH_2
, TSAN_ATOMIC16_FETCH_NAND
, BIT_NOT_EXPR
),
438 FETCH_OPS (SYNC_NAND_AND_FETCH_4
, TSAN_ATOMIC32_FETCH_NAND
, BIT_NOT_EXPR
),
439 FETCH_OPS (SYNC_NAND_AND_FETCH_8
, TSAN_ATOMIC64_FETCH_NAND
, BIT_NOT_EXPR
),
440 FETCH_OPS (SYNC_NAND_AND_FETCH_16
, TSAN_ATOMIC128_FETCH_NAND
, BIT_NOT_EXPR
),
442 WEAK_CAS (ATOMIC_COMPARE_EXCHANGE_1
, TSAN_ATOMIC8_COMPARE_EXCHANGE_WEAK
),
443 WEAK_CAS (ATOMIC_COMPARE_EXCHANGE_2
, TSAN_ATOMIC16_COMPARE_EXCHANGE_WEAK
),
444 WEAK_CAS (ATOMIC_COMPARE_EXCHANGE_4
, TSAN_ATOMIC32_COMPARE_EXCHANGE_WEAK
),
445 WEAK_CAS (ATOMIC_COMPARE_EXCHANGE_8
, TSAN_ATOMIC64_COMPARE_EXCHANGE_WEAK
),
446 WEAK_CAS (ATOMIC_COMPARE_EXCHANGE_16
, TSAN_ATOMIC128_COMPARE_EXCHANGE_WEAK
),
448 STRONG_CAS (ATOMIC_COMPARE_EXCHANGE_1
, TSAN_ATOMIC8_COMPARE_EXCHANGE_STRONG
),
449 STRONG_CAS (ATOMIC_COMPARE_EXCHANGE_2
,
450 TSAN_ATOMIC16_COMPARE_EXCHANGE_STRONG
),
451 STRONG_CAS (ATOMIC_COMPARE_EXCHANGE_4
,
452 TSAN_ATOMIC32_COMPARE_EXCHANGE_STRONG
),
453 STRONG_CAS (ATOMIC_COMPARE_EXCHANGE_8
,
454 TSAN_ATOMIC64_COMPARE_EXCHANGE_STRONG
),
455 STRONG_CAS (ATOMIC_COMPARE_EXCHANGE_16
,
456 TSAN_ATOMIC128_COMPARE_EXCHANGE_STRONG
),
458 BOOL_CAS (SYNC_BOOL_COMPARE_AND_SWAP_1
,
459 TSAN_ATOMIC8_COMPARE_EXCHANGE_STRONG
),
460 BOOL_CAS (SYNC_BOOL_COMPARE_AND_SWAP_2
,
461 TSAN_ATOMIC16_COMPARE_EXCHANGE_STRONG
),
462 BOOL_CAS (SYNC_BOOL_COMPARE_AND_SWAP_4
,
463 TSAN_ATOMIC32_COMPARE_EXCHANGE_STRONG
),
464 BOOL_CAS (SYNC_BOOL_COMPARE_AND_SWAP_8
,
465 TSAN_ATOMIC64_COMPARE_EXCHANGE_STRONG
),
466 BOOL_CAS (SYNC_BOOL_COMPARE_AND_SWAP_16
,
467 TSAN_ATOMIC128_COMPARE_EXCHANGE_STRONG
),
469 VAL_CAS (SYNC_VAL_COMPARE_AND_SWAP_1
, TSAN_ATOMIC8_COMPARE_EXCHANGE_STRONG
),
470 VAL_CAS (SYNC_VAL_COMPARE_AND_SWAP_2
, TSAN_ATOMIC16_COMPARE_EXCHANGE_STRONG
),
471 VAL_CAS (SYNC_VAL_COMPARE_AND_SWAP_4
, TSAN_ATOMIC32_COMPARE_EXCHANGE_STRONG
),
472 VAL_CAS (SYNC_VAL_COMPARE_AND_SWAP_8
, TSAN_ATOMIC64_COMPARE_EXCHANGE_STRONG
),
473 VAL_CAS (SYNC_VAL_COMPARE_AND_SWAP_16
,
474 TSAN_ATOMIC128_COMPARE_EXCHANGE_STRONG
),
476 LOCK_RELEASE (SYNC_LOCK_RELEASE_1
, TSAN_ATOMIC8_STORE
),
477 LOCK_RELEASE (SYNC_LOCK_RELEASE_2
, TSAN_ATOMIC16_STORE
),
478 LOCK_RELEASE (SYNC_LOCK_RELEASE_4
, TSAN_ATOMIC32_STORE
),
479 LOCK_RELEASE (SYNC_LOCK_RELEASE_8
, TSAN_ATOMIC64_STORE
),
480 LOCK_RELEASE (SYNC_LOCK_RELEASE_16
, TSAN_ATOMIC128_STORE
),
482 BOOL_CLEAR (ATOMIC_CLEAR
, TSAN_ATOMIC8_STORE
),
484 BOOL_TEST_AND_SET (ATOMIC_TEST_AND_SET
, TSAN_ATOMIC8_EXCHANGE
)
487 /* Instrument an atomic builtin. */
490 instrument_builtin_call (gimple_stmt_iterator
*gsi
)
492 gimple
*stmt
= gsi_stmt (*gsi
), *g
;
493 tree callee
= gimple_call_fndecl (stmt
), last_arg
, args
[6], t
, lhs
;
494 enum built_in_function fcode
= DECL_FUNCTION_CODE (callee
);
495 unsigned int i
, num
= gimple_call_num_args (stmt
), j
;
496 for (j
= 0; j
< 6 && j
< num
; j
++)
497 args
[j
] = gimple_call_arg (stmt
, j
);
498 for (i
= 0; i
< ARRAY_SIZE (tsan_atomic_table
); i
++)
499 if (fcode
!= tsan_atomic_table
[i
].fcode
)
503 tree decl
= builtin_decl_implicit (tsan_atomic_table
[i
].tsan_fcode
);
504 if (decl
== NULL_TREE
)
506 switch (tsan_atomic_table
[i
].action
)
510 last_arg
= gimple_call_arg (stmt
, num
- 1);
511 if (tree_fits_uhwi_p (last_arg
)
512 && memmodel_base (tree_to_uhwi (last_arg
)) >= MEMMODEL_LAST
)
514 gimple_call_set_fndecl (stmt
, decl
);
516 maybe_clean_eh_stmt (stmt
);
517 if (tsan_atomic_table
[i
].action
== fetch_op
)
519 args
[1] = gimple_call_arg (stmt
, 1);
525 case fetch_op_seq_cst
:
526 gcc_assert (num
<= 2);
527 for (j
= 0; j
< num
; j
++)
528 args
[j
] = gimple_call_arg (stmt
, j
);
531 args
[num
] = build_int_cst (NULL_TREE
,
532 tsan_atomic_table
[i
].action
536 update_gimple_call (gsi
, decl
, num
+ 1, args
[0], args
[1], args
[2]);
537 maybe_clean_or_replace_eh_stmt (stmt
, gsi_stmt (*gsi
));
538 stmt
= gsi_stmt (*gsi
);
539 if (tsan_atomic_table
[i
].action
== fetch_op_seq_cst
)
542 lhs
= gimple_call_lhs (stmt
);
543 if (lhs
== NULL_TREE
)
545 if (!useless_type_conversion_p (TREE_TYPE (lhs
),
546 TREE_TYPE (args
[1])))
548 tree var
= make_ssa_name (TREE_TYPE (lhs
));
549 g
= gimple_build_assign (var
, NOP_EXPR
, args
[1]);
550 gsi_insert_after (gsi
, g
, GSI_NEW_STMT
);
553 gimple_call_set_lhs (stmt
, make_ssa_name (TREE_TYPE (lhs
)));
554 /* BIT_NOT_EXPR stands for NAND. */
555 if (tsan_atomic_table
[i
].code
== BIT_NOT_EXPR
)
557 tree var
= make_ssa_name (TREE_TYPE (lhs
));
558 g
= gimple_build_assign (var
, BIT_AND_EXPR
,
559 gimple_call_lhs (stmt
), args
[1]);
560 gsi_insert_after (gsi
, g
, GSI_NEW_STMT
);
561 g
= gimple_build_assign (lhs
, BIT_NOT_EXPR
, var
);
564 g
= gimple_build_assign (lhs
, tsan_atomic_table
[i
].code
,
565 gimple_call_lhs (stmt
), args
[1]);
567 gsi_insert_after (gsi
, g
, GSI_NEW_STMT
);
571 if (!integer_nonzerop (gimple_call_arg (stmt
, 3)))
575 gcc_assert (num
== 6);
576 for (j
= 0; j
< 6; j
++)
577 args
[j
] = gimple_call_arg (stmt
, j
);
578 if (tree_fits_uhwi_p (args
[4])
579 && memmodel_base (tree_to_uhwi (args
[4])) >= MEMMODEL_LAST
)
581 if (tree_fits_uhwi_p (args
[5])
582 && memmodel_base (tree_to_uhwi (args
[5])) >= MEMMODEL_LAST
)
584 update_gimple_call (gsi
, decl
, 5, args
[0], args
[1], args
[2],
586 maybe_clean_or_replace_eh_stmt (stmt
, gsi_stmt (*gsi
));
590 gcc_assert (num
== 3);
591 for (j
= 0; j
< 3; j
++)
592 args
[j
] = gimple_call_arg (stmt
, j
);
593 t
= TYPE_ARG_TYPES (TREE_TYPE (decl
));
594 t
= TREE_VALUE (TREE_CHAIN (TREE_CHAIN (t
)));
595 t
= create_tmp_var (t
);
596 mark_addressable (t
);
597 if (!useless_type_conversion_p (TREE_TYPE (t
),
598 TREE_TYPE (args
[1])))
600 g
= gimple_build_assign (make_ssa_name (TREE_TYPE (t
)),
602 gsi_insert_before (gsi
, g
, GSI_SAME_STMT
);
603 args
[1] = gimple_assign_lhs (g
);
605 g
= gimple_build_assign (t
, args
[1]);
606 gsi_insert_before (gsi
, g
, GSI_SAME_STMT
);
607 lhs
= gimple_call_lhs (stmt
);
608 update_gimple_call (gsi
, decl
, 5, args
[0],
609 build_fold_addr_expr (t
), args
[2],
610 build_int_cst (NULL_TREE
,
612 build_int_cst (NULL_TREE
,
614 maybe_clean_or_replace_eh_stmt (stmt
, gsi_stmt (*gsi
));
615 if (tsan_atomic_table
[i
].action
== val_cas
&& lhs
)
618 stmt
= gsi_stmt (*gsi
);
619 g
= gimple_build_assign (make_ssa_name (TREE_TYPE (t
)), t
);
620 gsi_insert_after (gsi
, g
, GSI_NEW_STMT
);
621 t
= make_ssa_name (TREE_TYPE (TREE_TYPE (decl
)), stmt
);
622 cond
= build2 (NE_EXPR
, boolean_type_node
, t
,
623 build_int_cst (TREE_TYPE (t
), 0));
624 g
= gimple_build_assign (lhs
, COND_EXPR
, cond
, args
[1],
625 gimple_assign_lhs (g
));
626 gimple_call_set_lhs (stmt
, t
);
628 gsi_insert_after (gsi
, g
, GSI_NEW_STMT
);
632 gcc_assert (num
== 1);
633 t
= TYPE_ARG_TYPES (TREE_TYPE (decl
));
634 t
= TREE_VALUE (TREE_CHAIN (t
));
635 update_gimple_call (gsi
, decl
, 3, gimple_call_arg (stmt
, 0),
636 build_int_cst (t
, 0),
637 build_int_cst (NULL_TREE
,
639 maybe_clean_or_replace_eh_stmt (stmt
, gsi_stmt (*gsi
));
642 case bool_test_and_set
:
643 if (BOOL_TYPE_SIZE
!= 8)
646 for (j
= 1; j
< 5; j
++)
647 if (BOOL_TYPE_SIZE
== (8 << j
))
649 enum built_in_function tsan_fcode
650 = (enum built_in_function
)
651 (tsan_atomic_table
[i
].tsan_fcode
+ j
);
652 decl
= builtin_decl_implicit (tsan_fcode
);
655 if (decl
== NULL_TREE
)
658 last_arg
= gimple_call_arg (stmt
, num
- 1);
659 if (tree_fits_uhwi_p (last_arg
)
660 && memmodel_base (tree_to_uhwi (last_arg
)) >= MEMMODEL_LAST
)
662 t
= TYPE_ARG_TYPES (TREE_TYPE (decl
));
663 t
= TREE_VALUE (TREE_CHAIN (t
));
664 if (tsan_atomic_table
[i
].action
== bool_clear
)
666 update_gimple_call (gsi
, decl
, 3, gimple_call_arg (stmt
, 0),
667 build_int_cst (t
, 0), last_arg
);
668 maybe_clean_or_replace_eh_stmt (stmt
, gsi_stmt (*gsi
));
671 t
= build_int_cst (t
, targetm
.atomic_test_and_set_trueval
);
672 update_gimple_call (gsi
, decl
, 3, gimple_call_arg (stmt
, 0),
674 maybe_clean_or_replace_eh_stmt (stmt
, gsi_stmt (*gsi
));
675 stmt
= gsi_stmt (*gsi
);
676 lhs
= gimple_call_lhs (stmt
);
677 if (lhs
== NULL_TREE
)
679 if (targetm
.atomic_test_and_set_trueval
!= 1
680 || !useless_type_conversion_p (TREE_TYPE (lhs
),
683 tree new_lhs
= make_ssa_name (TREE_TYPE (t
));
684 gimple_call_set_lhs (stmt
, new_lhs
);
685 if (targetm
.atomic_test_and_set_trueval
!= 1)
686 g
= gimple_build_assign (lhs
, NE_EXPR
, new_lhs
,
687 build_int_cst (TREE_TYPE (t
), 0));
689 g
= gimple_build_assign (lhs
, NOP_EXPR
, new_lhs
);
690 gsi_insert_after (gsi
, g
, GSI_NEW_STMT
);
700 /* Instruments the gimple pointed to by GSI. Return
701 true if func entry/exit should be instrumented. */
704 instrument_gimple (gimple_stmt_iterator
*gsi
)
708 bool instrumented
= false;
710 stmt
= gsi_stmt (*gsi
);
711 if (is_gimple_call (stmt
)
712 && (gimple_call_fndecl (stmt
)
713 != builtin_decl_implicit (BUILT_IN_TSAN_INIT
)))
715 /* All functions with function call will have exit instrumented,
716 therefore no function calls other than __tsan_func_exit
717 shall appear in the functions. */
718 gimple_call_set_tail (as_a
<gcall
*> (stmt
), false);
719 if (gimple_call_builtin_p (stmt
, BUILT_IN_NORMAL
))
720 instrument_builtin_call (gsi
);
723 else if (is_gimple_assign (stmt
)
724 && !gimple_clobber_p (stmt
))
726 if (gimple_store_p (stmt
))
728 lhs
= gimple_assign_lhs (stmt
);
729 instrumented
= instrument_expr (*gsi
, lhs
, true);
731 if (gimple_assign_load_p (stmt
))
733 rhs
= gimple_assign_rhs1 (stmt
);
734 instrumented
= instrument_expr (*gsi
, rhs
, false);
740 /* Replace TSAN_FUNC_EXIT internal call with function exit tsan builtin. */
743 replace_func_exit (gimple
*stmt
)
745 tree builtin_decl
= builtin_decl_implicit (BUILT_IN_TSAN_FUNC_EXIT
);
746 gimple
*g
= gimple_build_call (builtin_decl
, 0);
747 gimple_set_location (g
, cfun
->function_end_locus
);
748 gimple_stmt_iterator gsi
= gsi_for_stmt (stmt
);
749 gsi_replace (&gsi
, g
, true);
752 /* Instrument function exit. Used when TSAN_FUNC_EXIT does not exist. */
755 instrument_func_exit (void)
759 gimple_stmt_iterator gsi
;
765 /* Find all function exits. */
766 exit_bb
= EXIT_BLOCK_PTR_FOR_FN (cfun
);
767 FOR_EACH_EDGE (e
, ei
, exit_bb
->preds
)
769 gsi
= gsi_last_bb (e
->src
);
770 stmt
= gsi_stmt (gsi
);
771 gcc_assert (gimple_code (stmt
) == GIMPLE_RETURN
772 || gimple_call_builtin_p (stmt
, BUILT_IN_RETURN
));
773 loc
= gimple_location (stmt
);
774 builtin_decl
= builtin_decl_implicit (BUILT_IN_TSAN_FUNC_EXIT
);
775 g
= gimple_build_call (builtin_decl
, 0);
776 gimple_set_location (g
, loc
);
777 gsi_insert_before (&gsi
, g
, GSI_SAME_STMT
);
781 /* Instruments all interesting memory accesses in the current function.
782 Return true if func entry/exit should be instrumented. */
785 instrument_memory_accesses (bool *cfg_changed
)
788 gimple_stmt_iterator gsi
;
789 bool fentry_exit_instrument
= false;
790 bool func_exit_seen
= false;
791 auto_vec
<gimple
*> tsan_func_exits
;
793 FOR_EACH_BB_FN (bb
, cfun
)
795 for (gsi
= gsi_start_bb (bb
); !gsi_end_p (gsi
); gsi_next (&gsi
))
797 gimple
*stmt
= gsi_stmt (gsi
);
798 if (gimple_call_internal_p (stmt
, IFN_TSAN_FUNC_EXIT
))
800 if (fentry_exit_instrument
)
801 replace_func_exit (stmt
);
803 tsan_func_exits
.safe_push (stmt
);
804 func_exit_seen
= true;
807 fentry_exit_instrument
808 |= (instrument_gimple (&gsi
)
809 && param_tsan_instrument_func_entry_exit
);
811 if (gimple_purge_dead_eh_edges (bb
))
816 FOR_EACH_VEC_ELT (tsan_func_exits
, i
, stmt
)
817 if (fentry_exit_instrument
)
818 replace_func_exit (stmt
);
821 gsi
= gsi_for_stmt (stmt
);
822 gsi_remove (&gsi
, true);
824 if (fentry_exit_instrument
&& !func_exit_seen
)
825 instrument_func_exit ();
826 return fentry_exit_instrument
;
829 /* Instruments function entry. */
832 instrument_func_entry (void)
834 tree ret_addr
, builtin_decl
;
836 gimple_seq seq
= NULL
;
838 builtin_decl
= builtin_decl_implicit (BUILT_IN_RETURN_ADDRESS
);
839 g
= gimple_build_call (builtin_decl
, 1, integer_zero_node
);
840 ret_addr
= make_ssa_name (ptr_type_node
);
841 gimple_call_set_lhs (g
, ret_addr
);
842 gimple_set_location (g
, cfun
->function_start_locus
);
843 gimple_seq_add_stmt_without_update (&seq
, g
);
845 builtin_decl
= builtin_decl_implicit (BUILT_IN_TSAN_FUNC_ENTRY
);
846 g
= gimple_build_call (builtin_decl
, 1, ret_addr
);
847 gimple_set_location (g
, cfun
->function_start_locus
);
848 gimple_seq_add_stmt_without_update (&seq
, g
);
850 edge e
= single_succ_edge (ENTRY_BLOCK_PTR_FOR_FN (cfun
));
851 gsi_insert_seq_on_edge_immediate (e
, seq
);
854 /* ThreadSanitizer instrumentation pass. */
859 initialize_sanitizer_builtins ();
860 bool cfg_changed
= false;
861 if (instrument_memory_accesses (&cfg_changed
))
862 instrument_func_entry ();
863 return cfg_changed
? TODO_cleanup_cfg
: 0;
866 /* Inserts __tsan_init () into the list of CTORs. */
869 tsan_finish_file (void)
871 tree ctor_statements
= NULL_TREE
;
873 initialize_sanitizer_builtins ();
874 tree init_decl
= builtin_decl_implicit (BUILT_IN_TSAN_INIT
);
875 append_to_statement_list (build_call_expr (init_decl
, 0),
877 cgraph_build_static_cdtor ('I', ctor_statements
,
878 MAX_RESERVED_INIT_PRIORITY
- 1);
881 /* The pass descriptor. */
885 const pass_data pass_data_tsan
=
887 GIMPLE_PASS
, /* type */
889 OPTGROUP_NONE
, /* optinfo_flags */
891 ( PROP_ssa
| PROP_cfg
), /* properties_required */
892 0, /* properties_provided */
893 0, /* properties_destroyed */
894 0, /* todo_flags_start */
895 TODO_update_ssa
, /* todo_flags_finish */
898 class pass_tsan
: public gimple_opt_pass
901 pass_tsan (gcc::context
*ctxt
)
902 : gimple_opt_pass (pass_data_tsan
, ctxt
)
905 /* opt_pass methods: */
906 opt_pass
* clone () { return new pass_tsan (m_ctxt
); }
907 virtual bool gate (function
*)
909 return sanitize_flags_p (SANITIZE_THREAD
);
912 virtual unsigned int execute (function
*) { return tsan_pass (); }
914 }; // class pass_tsan
919 make_pass_tsan (gcc::context
*ctxt
)
921 return new pass_tsan (ctxt
);
926 const pass_data pass_data_tsan_O0
=
928 GIMPLE_PASS
, /* type */
930 OPTGROUP_NONE
, /* optinfo_flags */
932 ( PROP_ssa
| PROP_cfg
), /* properties_required */
933 0, /* properties_provided */
934 0, /* properties_destroyed */
935 0, /* todo_flags_start */
936 TODO_update_ssa
, /* todo_flags_finish */
939 class pass_tsan_O0
: public gimple_opt_pass
942 pass_tsan_O0 (gcc::context
*ctxt
)
943 : gimple_opt_pass (pass_data_tsan_O0
, ctxt
)
946 /* opt_pass methods: */
947 virtual bool gate (function
*)
949 return (sanitize_flags_p (SANITIZE_THREAD
) && !optimize
);
952 virtual unsigned int execute (function
*) { return tsan_pass (); }
954 }; // class pass_tsan_O0
959 make_pass_tsan_O0 (gcc::context
*ctxt
)
961 return new pass_tsan_O0 (ctxt
);