Skip to content

Commit c551782

Browse files
committed
Remove ill-placed attributes
1 parent 58f0afb commit c551782

File tree

1 file changed

+1
-8
lines changed
  • lib/coq_verified_extraction_malfunction_ffi/lib

1 file changed

+1
-8
lines changed

lib/coq_verified_extraction_malfunction_ffi/lib/float64.mli

Lines changed: 1 addition & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -57,13 +57,11 @@ val le : t -> t -> bool
5757
(** The IEEE 754 float comparison.
5858
* NotComparable is returned if there is a NaN in the arguments *)
5959
val compare : t -> t -> float_comparison
60-
[@@ocaml.inline always]
6160

6261
type float_class =
6362
| PNormal | NNormal | PSubn | NSubn | PZero | NZero | PInf | NInf | NaN
6463

6564
val classify : t -> float_class
66-
[@@ocaml.inline always]
6765

6866
val mul : t -> t -> t
6967

@@ -77,19 +75,15 @@ val sqrt : t -> t
7775

7876
(** Link with integers *)
7977
val of_uint63 : Uint63.t -> t
80-
[@@ocaml.inline always]
8178

8279
val normfr_mantissa : t -> Uint63.t
83-
[@@ocaml.inline always]
8480

8581
(** Shifted exponent extraction *)
8682
val eshift : int
8783

8884
val frshiftexp : t -> t * Uint63.t (* float remainder, shifted exponent *)
89-
[@@ocaml.inline always]
9085

9186
val ldshiftexp : t -> Uint63.t -> t
92-
[@@ocaml.inline always]
9387

9488
val next_up : t -> t
9589

@@ -98,12 +92,11 @@ val next_down : t -> t
9892
(** Return true if two floats are equal.
9993
* All NaN values are considered equal. *)
10094
val equal : t -> t -> bool
101-
[@@ocaml.inline always]
10295

10396
val hash : t -> int
10497

10598
(** Total order relation over float values. Behaves like [Pervasives.compare].*)
10699
val total_compare : t -> t -> int
107100

108101
val is_float64 : Obj.t -> bool
109-
[@@ocaml.inline always]
102+

0 commit comments

Comments
 (0)