150
|
1 // RUN: %clangxx_tsan -O1 %s -o %t
|
|
2 // RUN: %deflake %run %t 2>&1 | FileCheck %s
|
|
3
|
|
4 #include <pthread.h>
|
|
5 #include <stdio.h>
|
|
6 #include <stdlib.h>
|
|
7 #include <string.h>
|
|
8
|
|
9 #include "../test.h"
|
|
10
|
|
11 extern "C" {
|
|
12 void __tsan_on_report(void *report);
|
|
13 int __tsan_get_report_loc(void *report, unsigned long idx, const char **type,
|
|
14 void **addr, void **start,
|
|
15 unsigned long *size, int *tid, int *fd,
|
|
16 int *suppressable, void **trace,
|
|
17 unsigned long trace_size);
|
|
18 int __tsan_get_report_loc_object_type(void *report, unsigned long idx,
|
|
19 const char **object_type);
|
|
20 }
|
|
21
|
|
22 void *Thread(void *arg) {
|
|
23 barrier_wait(&barrier);
|
|
24 *((long *)arg) = 42;
|
|
25 return NULL;
|
|
26 }
|
|
27
|
|
28 int main() {
|
|
29 barrier_init(&barrier, 2);
|
|
30 void *tag = __tsan_external_register_tag("MyObject");
|
|
31 long *obj = (long *)malloc(sizeof(long));
|
|
32 fprintf(stderr, "obj = %p\n", obj);
|
|
33 // CHECK: obj = [[ADDR:0x[0-9a-f]+]]
|
|
34 __tsan_external_assign_tag(obj, tag);
|
|
35
|
|
36 pthread_t t;
|
|
37 pthread_create(&t, 0, Thread, obj);
|
|
38 *obj = 41;
|
|
39 barrier_wait(&barrier);
|
|
40 pthread_join(t, 0);
|
|
41 fprintf(stderr, "Done.\n");
|
|
42 return 0;
|
|
43 }
|
|
44
|
|
45 void __tsan_on_report(void *report) {
|
|
46 const char *type;
|
|
47 void *addr;
|
|
48 void *start;
|
|
49 unsigned long size;
|
|
50 int tid, fd, suppressable;
|
|
51 void *trace[16] = {0};
|
|
52 __tsan_get_report_loc(report, 0, &type, &addr, &start, &size, &tid, &fd,
|
|
53 &suppressable, trace, 16);
|
|
54 fprintf(stderr, "type = %s, start = %p, size = %ld\n", type, start, size);
|
|
55 // CHECK: type = heap, start = [[ADDR]], size = 8
|
|
56
|
|
57 const char *object_type;
|
|
58 __tsan_get_report_loc_object_type(report, 0, &object_type);
|
|
59 fprintf(stderr, "object_type = %s\n", object_type);
|
|
60 // CHECK: object_type = MyObject
|
|
61 }
|
|
62
|
|
63 // CHECK: Done.
|
|
64 // CHECK: ThreadSanitizer: reported 1 warnings
|