Commit 33f8886f authored by Clément Fumex's avatar Clément Fumex

fix incorrect order of significand and exponent in the case of denormals in Number.compute_float

parent 3d9cd96a
......@@ -6,6 +6,8 @@ theory A
lemma ebsb32 : Float32.t'eb = 8 /\ Float32.t'sb = 24
lemma ebsb64 : Float64.t'eb = 11 /\ Float64.t'sb = 53
goal a : (0.000000000000000000000000000000000000007346836890042368275170461510179868906534397169301663256398154650103540092009879458601062651723623275756835937500:Float32.t) <> (0.0:Float32.t)
end
module M603_018
......
This diff is collapsed.
......@@ -412,7 +412,7 @@ let compute_float c fp =
(to_string !s) (to_string (sub emax one)) (print_in_base 2 (Some (to_int eb))) zero
(print_in_base 2 (Some (to_int (sub sb one)))) !s;
!s, zero
zero, !s
end else begin
(* normal case *)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment