diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2016-04-09 09:55:03 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2016-04-09 09:55:03 +0200 |
| commit | e3a336fca8c785f3f4992a8fd23f573a688c6e37 (patch) | |
| tree | 4e1db1684e4ebbeeaf136f12c8ccd8101c4209a6 | |
| parent | 4f8ba5f0651eb986a63ffc58c072ed06fac0f53b (diff) | |
| download | compcert-e3a336fca8c785f3f4992a8fd23f573a688c6e37.tar.gz compcert-e3a336fca8c785f3f4992a8fd23f573a688c6e37.zip | |
*/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.
| -rw-r--r-- | arm/TargetPrinter.ml | 2 | ||||
| -rw-r--r-- | ia32/TargetPrinter.ml | 2 | ||||
| -rw-r--r-- | powerpc/TargetPrinter.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index bfe11555..4120b188 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -827,7 +827,7 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = fprintf oc " .quad %Ld\n" (camlint64_of_coqint n) | Init_float32 n -> fprintf oc " .word 0x%lx %s %.15g \n" (camlint_of_coqint (Floats.Float32.to_bits n)) - comment (camlfloat_of_coqfloat n) + comment (camlfloat_of_coqfloat32 n) | Init_float64 n -> fprintf oc " .quad %Ld %s %.18g\n" (camlint64_of_coqint (Floats.Float.to_bits n)) comment (camlfloat_of_coqfloat n) diff --git a/ia32/TargetPrinter.ml b/ia32/TargetPrinter.ml index f2358487..979ac800 100644 --- a/ia32/TargetPrinter.ml +++ b/ia32/TargetPrinter.ml @@ -667,7 +667,7 @@ module Target(System: SYSTEM):TARGET = | Init_float32 n -> fprintf oc " .long %ld %s %.18g\n" (camlint_of_coqint (Floats.Float32.to_bits n)) - comment (camlfloat_of_coqfloat n) + comment (camlfloat_of_coqfloat32 n) | Init_float64 n -> fprintf oc " .quad %Ld %s %.18g\n" (camlint64_of_coqint (Floats.Float.to_bits n)) 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" |