Skip to content
Snippets Groups Projects
Commit 49e355e8 authored by David Bühler's avatar David Bühler
Browse files

[Eva] Fixes a crash on INFINITY with option -eva-all-rounding-modes-constants.

parent 9fdd9961
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/plugins/value/values/cvalue_forward.ml
+ 3
− 2
View file @ 49e355e8
...@@ -528,9 +528,10 @@ let eval_float_constant f fkind fstring = ...@@ -528,9 +528,10 @@ let eval_float_constant f fkind fstring =
if Fc_float.is_nan f if Fc_float.is_nan f
then V.inject_float Fval.nan then V.inject_float Fval.nan
else else
let all_rounding = Value_parameters.AllRoundingModesConstants.get in
let fl, fu = match fstring with let fl, fu = match fstring with
| Some string when fkind = Cil_types.FLongDouble || | Some "INFINITY" -> f, f (* Special case for the INFINITY macro. *)
Value_parameters.AllRoundingModesConstants.get () -> | Some string when fkind = Cil_types.FLongDouble || all_rounding () ->
let open Floating_point in let open Floating_point in
let {f_lower; f_upper} = snd (parse string) in let {f_lower; f_upper} = snd (parse string) in
(* Computations are done in double. For long double constants, if we (* Computations are done in double. For long double constants, if we
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment