From e3a336fca8c785f3f4992a8fd23f573a688c6e37 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Sat, 9 Apr 2016 09:55:03 +0200 Subject: */TargetPrinter.ml: wrong comment attached to Init_float32 constants For informative purposes, the FP value of Init_float* constants is printed as a comment in the generated asm file. However, for Init_float32, it was wrongly printed as a double-precision FP instead of a single-precision FP. --- powerpc/TargetPrinter.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'powerpc/TargetPrinter.ml') diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index ae9d4191..1271e410 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -804,7 +804,7 @@ module Target (System : SYSTEM):TARGET = | Init_float32 n -> fprintf oc " .long 0x%lx %s %.18g\n" (camlint_of_coqint (Floats.Float32.to_bits n)) - comment (camlfloat_of_coqfloat n) + comment (camlfloat_of_coqfloat32 n) | Init_float64 n -> let b = camlint64_of_coqint (Floats.Float.to_bits n) in fprintf oc " .long 0x%Lx, 0x%Lx %s %.18g\n" -- cgit