Commit c8f85d9f authored by Julien Signoles's avatar Julien Signoles
Browse files


parent 275b0201
......@@ -124,10 +124,10 @@ let build ~infer t =
let args_lty = List.map2
(fun lv arg ->
(* speed-up convergence *)
(* speed-up convergence; because of this approximation, no need to
associate [i] to [lv] in [Interval.Env]: the very same interval
will be computed anyway. *)
let i = interv_of_typ_containing_interv (infer arg) in
(* TODO: *)
(* Env.add lv i;*)
Ctype (TInt(ikind_of_interv i, []))
| Cil.Not_representable -> Linteger
......@@ -151,7 +151,6 @@ let build ~infer t =
let ieqs = Ivar.Map.add ivar iexp ieqs in
ieqs, ivars
(* List.iter (fun lv -> Env.remove lv) li.l_profile;*)
Ivar ivar, ieqs, ivars
end else
(try Iconst(infer t), ieqs, ivars
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