| /// Find missing unlocks.  This semantic match considers the specific case | 
 | /// where the unlock is missing from an if branch, and there is a lock | 
 | /// before the if and an unlock after the if.  False positives are due to | 
 | /// cases where the if branch represents a case where the function is | 
 | /// supposed to exit with the lock held, or where there is some preceding | 
 | /// function call that releases the lock. | 
 | /// | 
 | // Confidence: Moderate | 
 | // Copyright: (C) 2010-2012 Nicolas Palix.  GPLv2. | 
 | // Copyright: (C) 2010-2012 Julia Lawall, INRIA/LIP6.  GPLv2. | 
 | // Copyright: (C) 2010-2012 Gilles Muller, INRIA/LiP6.  GPLv2. | 
 | // URL: http://coccinelle.lip6.fr/ | 
 |  | 
 | virtual context | 
 | virtual org | 
 | virtual report | 
 |  | 
 | @prelocked depends on !(file in "ext")@ | 
 | position p1,p; | 
 | expression E1; | 
 | @@ | 
 |  | 
 | ( | 
 | irq_lock@p1 | 
 | | | 
 | k_mutex_lock@p1 | 
 | | | 
 | k_sem_take@p1 | 
 | | | 
 | k_spin_lock@p1 | 
 | ) (E1@p,...); | 
 |  | 
 | @looped depends on !(file in "ext")@ | 
 | position r; | 
 | @@ | 
 |  | 
 | for(...;...;...) { <+... return@r ...; ...+> } | 
 |  | 
 | @balanced exists@ | 
 | position p1 != prelocked.p1; | 
 | position prelocked.p; | 
 | position pif; | 
 | identifier lock,unlock; | 
 | expression x <= prelocked.E1; | 
 | expression E,prelocked.E1; | 
 | expression E2; | 
 | @@ | 
 |  | 
 | if (E) { | 
 |  ... when != E1 | 
 |  lock(E1@p,...) | 
 |  ... when any | 
 | } | 
 | ... when != E1 | 
 |     when != \(x = E2\|&x\) | 
 | if@pif (E) { | 
 |  ... when != E1 | 
 |  unlock@p1(E1,...) | 
 |  ... when any | 
 | } | 
 |  | 
 | @err depends on !(file in "ext") exists@ | 
 | expression E1; | 
 | position prelocked.p,balanced.pif; | 
 | position up != prelocked.p1; | 
 | position r!=looped.r; | 
 | identifier lock,unlock; | 
 | statement S1,S2; | 
 | @@ | 
 |  | 
 | *lock(E1@p,...); | 
 | ... when != E1 | 
 |     when any | 
 |     when != if@pif (...) S1 | 
 | if (...) { | 
 |   ... when != E1 | 
 |       when != if@pif (...) S2 | 
 | *  return@r ...; | 
 | } | 
 | ... when != E1 | 
 |     when any | 
 | *unlock@up(E1,...); | 
 |  | 
 | @script:python depends on org@ | 
 | p << prelocked.p1; | 
 | lock << err.lock; | 
 | unlock << err.unlock; | 
 | p2 << err.r; | 
 | @@ | 
 |  | 
 | cocci.print_main(lock,p) | 
 | cocci.print_secs(unlock,p2) | 
 |  | 
 | @script:python depends on report@ | 
 | p << prelocked.p1; | 
 | lock << err.lock; | 
 | unlock << err.unlock; | 
 | p2 << err.r; | 
 | @@ | 
 |  | 
 | msg = "preceding lock on line %s" % (p[0].line) | 
 | coccilib.report.print_report(p2[0],msg) |