Commit 77f80af0 authored by David Bühler's avatar David Bühler

[Eva] Fixes the octagon domain with respect to the ival rewriting.

parent 840640e0
...@@ -99,7 +99,7 @@ module Arith = struct ...@@ -99,7 +99,7 @@ module Arith = struct
let widen = let widen =
let hints = Integer.zero, let hints = Integer.zero,
(Ival.Widen_Hints.default_widen_hints, (Ival.Widen_Hints.empty,
Fc_float.Widen_Hints.default_widen_hints) Fc_float.Widen_Hints.default_widen_hints)
in in
Ival.widen hints Ival.widen hints
...@@ -109,9 +109,10 @@ module Arith = struct ...@@ -109,9 +109,10 @@ module Arith = struct
if Ival.(equal top ival) then Fval.top if Ival.(equal top ival) then Fval.top
else project_float ival else project_float ival
let neg = function let neg ival =
| Float f -> inject_float (Fval.neg f) if Ival.is_int ival
| ival -> neg_int ival then neg_int ival
else inject_float (Fval.neg (project_float ival))
let int_or_float_operation i_op f_op = fun typ -> let int_or_float_operation i_op f_op = fun typ ->
match Cil.unrollType typ with match Cil.unrollType typ with
......
Markdown is supported
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