expose CCFloat.fpclass as a public type

This commit is contained in:
Simon Cruanes 2014-11-30 22:23:03 +01:00
parent ddfebe055e
commit 23c1288849
2 changed files with 12 additions and 2 deletions

View file

@ -24,7 +24,12 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*) *)
type t = float type t = float
type fpclass = Pervasives.fpclass type fpclass = Pervasives.fpclass =
| FP_normal
| FP_subnormal
| FP_zero
| FP_infinite
| FP_nan
let nan = Pervasives.nan let nan = Pervasives.nan

View file

@ -27,7 +27,12 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
@since NEXT_RELEASE *) @since NEXT_RELEASE *)
type t = float type t = float
type fpclass type fpclass = Pervasives.fpclass =
| FP_normal
| FP_subnormal
| FP_zero
| FP_infinite
| FP_nan
val nan : t val nan : t