diff options
Diffstat (limited to 'backend/CMtypecheck.ml')
| -rw-r--r-- | backend/CMtypecheck.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/CMtypecheck.ml b/backend/CMtypecheck.ml index 244a73f..8db488a 100644 --- a/backend/CMtypecheck.ml +++ b/backend/CMtypecheck.ml @@ -125,7 +125,7 @@ let type_binary_operation = function let name_of_constant = function | Ointconst n -> sprintf "intconst %ld" (camlint_of_coqint n) - | Ofloatconst n -> sprintf "floatconst %g" n + | Ofloatconst n -> sprintf "floatconst %g" (camlfloat_of_coqfloat n) | Oaddrsymbol (s, ofs) -> sprintf "addrsymbol %s %ld" (extern_atom s) (camlint_of_coqint ofs) | Oaddrstack n -> sprintf "addrstack %ld" (camlint_of_coqint n) |