skipping ReadWrite Locks

Summary: We want to skip readwrite locks for now, maybe report on their misuses later.

Reviewed By: sblackshear

Differential Revision: D4110998

fbshipit-source-id: 986f77e
master
Peter O'Hearn 8 years ago committed by Facebook Github Bot
parent 874e7f000d
commit 2d424b7779

@ -659,16 +659,16 @@ let add_guarded_by_constraints tenv prop lexp pdesc =
IList.find_map_opt annot_extract_guarded_by_str item_annot in
let extract_suppress_warnings_str item_annot =
let annot_suppress_warnings_str ((annot: Annot.t), _) =
if Annotations.annot_ends_with annot Annotations.suppress_lint
then
match annot.parameters with
| [suppr_str] ->
Some suppr_str
| _ ->
None
else
None in
IList.find_map_opt annot_suppress_warnings_str item_annot in
if Annotations.annot_ends_with annot Annotations.suppress_lint
then
match annot.parameters with
| [suppr_str] ->
Some suppr_str
| _ ->
None
else
None in
IList.find_map_opt annot_suppress_warnings_str item_annot in
(* if [fld] is annotated with @GuardedBy("mLock"), return mLock *)
let get_guarded_by_fld_str fld typ =
match StructTyp.get_field_type_and_annotation ~lookup fld typ with
@ -746,7 +746,8 @@ let add_guarded_by_constraints tenv prop lexp pdesc =
let exn = Exceptions.Unsafe_guarded_by_access (err_desc, __POS__) in
Reporting.log_error pname exn in
let rec is_read_write_lock typ =
let str_is_read_write_lock str = string_is_suffix "ReadWriteUpdateLock" str in
let str_is_read_write_lock str = string_is_suffix "ReadWriteUpdateLock" str ||
string_is_suffix "ReadWriteLock" str in
match typ with
| Typ.Tstruct name -> str_is_read_write_lock (Typename.name name)
| Typ.Tptr (typ, _) -> is_read_write_lock typ
@ -770,10 +771,10 @@ let add_guarded_by_constraints tenv prop lexp pdesc =
let proc_signature =
Annotations.get_annotated_signature (Cfg.Procdesc.get_attributes pdesc) in
let proc_annot, _ = proc_signature.Annotations.ret in
match extract_suppress_warnings_str proc_annot with
| Some suppression_str->
suppression_str = "InvalidAccessToGuardedField"
| None -> false in
match extract_suppress_warnings_str proc_annot with
| Some suppression_str->
suppression_str = "InvalidAccessToGuardedField"
| None -> false in
let should_warn pdesc =
(* adding this check implements "by reference" semantics for guarded-by rather than "by value"
semantics. if this access is through a local L or field V.f
@ -800,7 +801,7 @@ let add_guarded_by_constraints tenv prop lexp pdesc =
not (is_accessible_through_local_ref lexp) &&
not guardedby_is_self_referential &&
not (proc_has_suppress_guarded_by_annot pdesc)
in
in
match find_guarded_by_exp guarded_by_str prop.Prop.sigma with
| Some (Sil.Eexp (guarded_by_exp, _), typ) ->
if is_read_write_lock typ

@ -16,6 +16,8 @@ import java.lang.annotation.Target;
import com.google.common.annotations.VisibleForTesting;
import android.annotation.SuppressLint;
import javax.annotation.concurrent.GuardedBy;
import java.util.concurrent.locks.ReadWriteLock;
import java.util.concurrent.locks.ReentrantReadWriteLock;
import java.io.Closeable;
@ -432,4 +434,43 @@ public class GuardedByExample {
}
*/
ReadWriteLock mRWL;
@GuardedBy("mRWL")
Integer guardedbymRWL;
Integer someOtherInt;
void readLockOK() {
mRWL.readLock().lock();
someOtherInt = guardedbymRWL;
mRWL.readLock().unlock();
}
void writeLockOK() {
mRWL.writeLock().lock();
guardedbymRWL = 55;
mRWL.writeLock().unlock();
}
ReentrantReadWriteLock mRRWL;
@GuardedBy("mRRWL")
Integer guardedbymRRWL;
void reentrantReadLockOK() {
mRRWL.readLock().lock();
someOtherInt = guardedbymRRWL;
mRRWL.readLock().unlock();
}
void reentrantWriteLockOK() {
mRRWL.writeLock().lock();
guardedbymRRWL = 55;
mRRWL.writeLock().unlock();
}
// TODO: warn on misuse of read/write locks.
}

Loading…
Cancel
Save