Commit c801b15c authored by Sylvain Dailler's avatar Sylvain Dailler

Allow to disable interp_float (for API users)

parent ba5986be
......@@ -37,8 +37,11 @@ type float_type =
| Float_hexa of string * float
let interp_float b eb sb =
let interp_float ?(interp=true) b eb sb =
try
(* We don't interpret when this is disable *)
if not interp then
raise Exit;
let is_neg = match b with
| "#b0" -> false
| "#b1" -> true
......
......@@ -24,7 +24,7 @@ type float_type =
| Float_value of string * string * string
| Float_hexa of string * float
val interp_float: string -> string -> string -> float_type
val interp_float: ?interp:bool -> string -> string -> string -> float_type
type model_value =
| Integer of string
......
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