[project @ 1997-03-20 21:54:55 by sof]

[ghc-hetmet.git] / ghc / lib / cbits / floatExtreme.h

diff --git a/ghc/lib/cbits/floatExtreme.h b/ghc/lib/cbits/floatExtreme.h
new file mode 100644 (file)
index 0000000..e073985
--- /dev/null
+++ b/ghc/lib/cbits/floatExtreme.h
@@ -0,0 +1,13 @@
+#ifndef FLOATEXTREME_H
+#define FLOATEXTREME_H
+
+StgInt isDoubleNaN            PROTO((StgDouble));
+StgInt isDoubleInfinite       PROTO((StgDouble));
+StgInt isDoubleDenormalized   PROTO((StgDouble));
+StgInt isDoubleNegativeZero   PROTO((StgDouble));
+StgInt isFloatNaN             PROTO((StgFloat));
+StgInt isFloatInfinite        PROTO((StgFloat));
+StgInt isFloatDenormalized    PROTO((StgFloat));
+StgInt isFloatNegativeZero    PROTO((StgFloat));
+
+#endif /* FLOATEXTREME_H */