Merge branch 'fix/eva/multidim-compare' into 'master'

[Eva] multidim: fix comparison operators

See merge request frama-c/frama-c!3952

src/plugins/eva/domains/multidim/abstract_memory.ml

@@ -26,7 +26,7 @@ open Lattice_bounds
 (* Composition operator for compare function *)
 
 let (<?>) c lcmp =
-  if c = 0 then 0 else Lazy.force lcmp
+  if c <> 0 then c else Lazy.force lcmp
 
 
 (* Imprecise bits abstraction *)

src/plugins/eva/domains/multidim/abstract_structure.ml

@@ -28,7 +28,7 @@ let no_oracle = fun _exp -> Int_val.top
 (* Composition operator for compare function *)
 
 let (<?>) c lcmp =
-  if c = 0 then 0 else Lazy.force lcmp
+  if c <> 0 then c else Lazy.force lcmp
 
 
 (* ------------------------------------------------------------------------ *)

src/plugins/eva/domains/multidim/segmentation.ml

@@ -30,7 +30,7 @@ let no_oracle = fun _exp -> Int_val.top
 (* Composition operator for compare function *)
 
 let (<?>) c lcmp =
-  if c = 0 then 0 else Lazy.force lcmp
+  if c <> 0 then c else Lazy.force lcmp
 
 
 (* ------------------------------------------------------------------------ *)

src/plugins/eva/domains/multidim/typed_memory.ml

@@ -33,7 +33,7 @@ module Bound = Segmentation.Bound
 (* Composition operator for compare function *)
 
 let (<?>) c lcmp =
-  if c = 0 then 0 else Lazy.force lcmp
+  if c <> 0 then c else Lazy.force lcmp
 
 (* Types compatibility *)