1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
| /// Find double locks. False positives may occur when some paths cannot
| /// occur at execution, due to the values of variables, and when there is
| /// an intervening function call that releases the lock.
| ///
| // Confidence: Moderate
| // Copyright: (C) 2010 Nicolas Palix, DIKU. GPLv2.
| // Copyright: (C) 2010 Julia Lawall, DIKU. GPLv2.
| // Copyright: (C) 2010 Gilles Muller, INRIA/LiP6. GPLv2.
| // URL: http://coccinelle.lip6.fr/
| // Comments:
| // Options: --no-includes --include-headers
|
| virtual org
| virtual report
|
| @locked@
| position p1;
| expression E1;
| position p;
| @@
|
| (
| mutex_lock@p1
| |
| mutex_trylock@p1
| |
| spin_lock@p1
| |
| spin_trylock@p1
| |
| read_lock@p1
| |
| read_trylock@p1
| |
| write_lock@p1
| |
| write_trylock@p1
| ) (E1@p,...);
|
| @balanced@
| position p1 != locked.p1;
| position locked.p;
| identifier lock,unlock;
| expression x <= locked.E1;
| expression E,locked.E1;
| expression E2;
| @@
|
| if (E) {
| <+... when != E1
| lock(E1@p,...)
| ...+>
| }
| ... when != E1
| when != \(x = E2\|&x\)
| when forall
| if (E) {
| <+... when != E1
| unlock@p1(E1,...)
| ...+>
| }
|
| @r depends on !balanced exists@
| expression x <= locked.E1;
| expression locked.E1;
| expression E2;
| identifier lock;
| position locked.p,p1,p2;
| @@
|
| lock@p1 (E1@p,...);
| ... when != E1
| when != \(x = E2\|&x\)
| lock@p2 (E1,...);
|
| @script:python depends on org@
| p1 << r.p1;
| p2 << r.p2;
| lock << r.lock;
| @@
|
| cocci.print_main(lock,p1)
| cocci.print_secs("second lock",p2)
|
| @script:python depends on report@
| p1 << r.p1;
| p2 << r.p2;
| lock << r.lock;
| @@
|
| msg = "second lock on line %s" % (p2[0].line)
| coccilib.report.print_report(p1[0],msg)
|
|
