|
|
@@ -0,0 +1,67 @@
|
|
|
+/// Find missing clk_puts.
|
|
|
+///
|
|
|
+//# This only signals a missing clk_put when there is a clk_put later
|
|
|
+//# in the same function.
|
|
|
+//# False positives can be due to loops.
|
|
|
+//
|
|
|
+// Confidence: Moderate
|
|
|
+// Copyright: (C) 2012 Julia Lawall, INRIA/LIP6. GPLv2.
|
|
|
+// Copyright: (C) 2012 Gilles Muller, INRIA/LiP6. GPLv2.
|
|
|
+// URL: http://coccinelle.lip6.fr/
|
|
|
+// Comments:
|
|
|
+// Options:
|
|
|
+
|
|
|
+virtual context
|
|
|
+virtual org
|
|
|
+virtual report
|
|
|
+
|
|
|
+@clk@
|
|
|
+expression e;
|
|
|
+statement S,S1;
|
|
|
+int ret;
|
|
|
+position p1,p2,p3;
|
|
|
+@@
|
|
|
+
|
|
|
+e = clk_get@p1(...)
|
|
|
+... when != clk_put(e)
|
|
|
+if (<+...e...+>) S
|
|
|
+... when any
|
|
|
+ when != clk_put(e)
|
|
|
+ when != if (...) { ... clk_put(e); ... }
|
|
|
+(
|
|
|
+ if (ret == 0) S1
|
|
|
+|
|
|
|
+if (...)
|
|
|
+ { ...
|
|
|
+ return 0; }
|
|
|
+|
|
|
|
+if (...)
|
|
|
+ { ...
|
|
|
+ return <+...e...+>; }
|
|
|
+|
|
|
|
+*if@p2 (...)
|
|
|
+ { ... when != clk_put(e)
|
|
|
+ when forall
|
|
|
+ return@p3 ...; }
|
|
|
+)
|
|
|
+... when any
|
|
|
+clk_put(e);
|
|
|
+
|
|
|
+@script:python depends on org@
|
|
|
+p1 << clk.p1;
|
|
|
+p2 << clk.p2;
|
|
|
+p3 << clk.p3;
|
|
|
+@@
|
|
|
+
|
|
|
+cocci.print_main("clk_get",p1)
|
|
|
+cocci.print_secs("if",p2)
|
|
|
+cocci.print_secs("needed clk_put",p3)
|
|
|
+
|
|
|
+@script:python depends on report@
|
|
|
+p1 << clk.p1;
|
|
|
+p2 << clk.p2;
|
|
|
+p3 << clk.p3;
|
|
|
+@@
|
|
|
+
|
|
|
+msg = "ERROR: missing clk_put; clk_get on line %s and execution via conditional on line %s" % (p1[0].line,p2[0].line)
|
|
|
+coccilib.report.print_report(p3[0],msg)
|
Julia Lawall