diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-09-22 10:10:48 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-09-22 10:10:48 +0200 |
commit | 60402c551f309b3eb87f83f2b67906229f688625 (patch) | |
tree | 56908a9e03f3bd5b9e1b2e5468bb5f6b14d79554 | |
parent | 01a154119c41accf35e41f34f761170687fe2979 (diff) | |
download | compcert-60402c551f309b3eb87f83f2b67906229f688625.tar.gz compcert-60402c551f309b3eb87f83f2b67906229f688625.zip |
Allow %lf type specifier in printf.
%lf is official part of the C99 standard.
Bug 19877
-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 f42bed32..c197d004 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'), "", 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" |