diff options
| author | Alasdair Armstrong | 2019-05-22 15:20:54 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-05-22 15:20:54 +0100 |
| commit | 3e56cca75ea1e749fed71cda6a0c8b07659df611 (patch) | |
| tree | 729732074d562a3404df63573e18e67f3ffac4ef /src/jib | |
| parent | 7b4bf2bd14cae99a4d8086a0b66d9875be1acbab (diff) | |
Move Util.warn to Reporting, and make it take the location as a parameter
Also add a $suppress_warnings directive that ensures that no warnings
are generated for a specific file.
Diffstat (limited to 'src/jib')
| -rw-r--r-- | src/jib/anf.ml | 4 | ||||
| -rw-r--r-- | src/jib/jib_smt.ml | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/jib/anf.ml b/src/jib/anf.ml index bd4813ed..fdb4f941 100644 --- a/src/jib/anf.ml +++ b/src/jib/anf.ml @@ -556,8 +556,8 @@ let rec anf (E_aux (e_aux, ((l, _) as exp_annot)) as exp) = | E_lit lit -> mk_aexp (ae_lit lit (typ_of exp)) | E_block [] -> - Util.warn (Reporting.loc_to_string l - ^ "\n\nTranslating empty block (possibly assigning to an uninitialized variable at the end of a block?)"); + Reporting.warn "" l + "Translating empty block (possibly assigning to an uninitialized variable at the end of a block?)"; mk_aexp (ae_lit (L_aux (L_unit, l)) (typ_of exp)) | E_block exps -> let exps, last = split_block l exps in diff --git a/src/jib/jib_smt.ml b/src/jib/jib_smt.ml index 0d6f42fe..74e56ef6 100644 --- a/src/jib/jib_smt.ml +++ b/src/jib/jib_smt.ml @@ -329,7 +329,7 @@ let add_pathcond_event ctx ev = let overflow_check ctx smt = if not !opt_ignore_overflow then ( - Util.warn "Adding overflow check in generated SMT"; + Reporting.warn "Overflow check in generated SMT for" ctx.pragma_l ""; add_event ctx Overflow smt ) |