diff options
Diffstat (limited to 'driver/Interp.ml')
| -rw-r--r-- | driver/Interp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/driver/Interp.ml b/driver/Interp.ml index fb1c85f0..4b6d0a44 100644 --- a/driver/Interp.ml +++ b/driver/Interp.ml @@ -45,8 +45,8 @@ let print_id_ofs p (id, ofs) = let print_eventval p = function | EVint n -> fprintf p "%ld" (camlint_of_coqint n) - | EVfloat f -> fprintf p "%F" (camlfloat_of_coqfloat f) - | EVsingle f -> fprintf p "%F" (camlfloat_of_coqfloat32 f) + | EVfloat f -> fprintf p "%.15F" (camlfloat_of_coqfloat f) + | EVsingle f -> fprintf p "%.15F" (camlfloat_of_coqfloat32 f) | EVlong n -> fprintf p "%LdLL" (camlint64_of_coqint n) | EVptr_global(id, ofs) -> fprintf p "&%a" print_id_ofs (id, ofs) |