diff options
Diffstat (limited to 'powerpc/PrintOp.ml')
-rw-r--r-- | powerpc/PrintOp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/powerpc/PrintOp.ml b/powerpc/PrintOp.ml index 5bc46586..a2f9ff83 100644 --- a/powerpc/PrintOp.ml +++ b/powerpc/PrintOp.ml @@ -48,7 +48,7 @@ let print_condition reg pp = function let print_operation reg pp = function | Omove, [r1] -> reg pp r1 | Ointconst n, [] -> fprintf pp "%ld" (camlint_of_coqint n) - | Ofloatconst n, [] -> fprintf pp "%F" n + | Ofloatconst n, [] -> fprintf pp "%F" (camlfloat_of_coqfloat n) | Oaddrsymbol(id, ofs), [] -> fprintf pp "\"%s\" + %ld" (extern_atom id) (camlint_of_coqint ofs) | Oaddrstack ofs, [] -> |