diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-10-04 20:53:15 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-10-04 20:53:15 +0200 |
commit | d1311e63edac5606b76478c7b7bd114021f4ba54 (patch) | |
tree | e65ff5fe6ad8f6cdb090feb0c04c80863674b758 /driver/Interp.ml | |
parent | ad2a2c862abef3aee701d1bca0524fcbf2d07b30 (diff) | |
download | compcert-d1311e63edac5606b76478c7b7bd114021f4ba54.tar.gz compcert-d1311e63edac5606b76478c7b7bd114021f4ba54.zip |
Fixed regression in printing of floats.
Commit 60402c5 breaks printing of default floats by adding support for
%lf. This commit adds back support for %f.
Diffstat (limited to 'driver/Interp.ml')
-rw-r--r-- | driver/Interp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/Interp.ml b/driver/Interp.ml index c197d004..d7e0b1bc 100644 --- a/driver/Interp.ml +++ b/driver/Interp.ml @@ -304,7 +304,7 @@ let format_value m flags length conv arg = format_int64 (flags ^ conv) (camlint64_of_coqint i) | ('d'|'i'|'u'|'o'|'x'|'X'), ("ll"|"j"), _ -> "<long long argument expected" - | ('f'|'e'|'E'|'g'|'G'|'a'), "l", Vfloat f -> + | ('f'|'e'|'E'|'g'|'G'|'a'), (""|"l"), Vfloat f -> format_float (flags ^ conv) (camlfloat_of_coqfloat f) | ('f'|'e'|'E'|'g'|'G'|'a'), "", _ -> "<float argument expected" |