summaryrefslogtreecommitdiff
path: root/src/reporting.ml
diff options
context:
space:
mode:
authorAlasdair2019-06-28 03:34:09 +0100
committerAlasdair2019-06-28 03:34:09 +0100
commitf615d68ac1c5efe016b20678df3a66ac87e44e5f (patch)
tree12ab2d41ae8874a0f0ed354be7795b17ded3bd01 /src/reporting.ml
parentd9e8b93142c3d4cfd75c123800b714b0393c5a6e (diff)
Add a warning for potentially unsafe casts
Diffstat (limited to 'src/reporting.ml')
-rw-r--r--src/reporting.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/reporting.ml b/src/reporting.ml
index 0b727836..e89ce396 100644
--- a/src/reporting.ml
+++ b/src/reporting.ml
@@ -180,10 +180,10 @@ let warn str1 l str2 =
if !opt_warnings then
match simp_loc l with
| None ->
- prerr_endline (Util.("Warning" |> yellow |> clear) ^ ": " ^ str1 ^ "\n" ^ str2)
+ prerr_endline (Util.("Warning" |> yellow |> clear) ^ ": " ^ str1 ^ "\n" ^ str2 ^ "\n")
| Some (p1, p2) when not (StringSet.mem p1.pos_fname !ignored_files) ->
prerr_endline (Util.("Warning" |> yellow |> clear) ^ ": "
- ^ str1 ^ (if str1 <> "" then " " else "") ^ loc_to_string l ^ str2)
+ ^ str1 ^ (if str1 <> "" then " " else "") ^ loc_to_string l ^ str2 ^ "\n")
| Some _ -> ()
else
()