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/optimize.ml | |
| 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/optimize.ml')
| -rw-r--r-- | src/optimize.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/optimize.ml b/src/optimize.ml index a372abf4..1fc2fbe8 100644 --- a/src/optimize.ml +++ b/src/optimize.ml @@ -87,7 +87,7 @@ let recheck (Defs defs) = !specs @ !bodies @ find_optimizations defs | _ -> - Util.warn ("Unrecognised optimize pragma in this context: " ^ pragma); + Reporting.warn "Unrecognised optimize pragma at" p_l ""; def1 :: def2 :: find_optimizations defs end |