/usr/web/sources/contrib/fernan/nhc98/src/compiler98/Floats.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/compiler98/Floats.hs


{-# OPTIONS -fglasgow-exts #-}
module Floats
  ( floatToInt
  , doubleToInt0
  , doubleToInt1
  ) where

foreign import ccall unsafe "ghc_floats.h floatToInt"   floatToInt   :: Float  -> Int
foreign import ccall unsafe "ghc_floats.h doubleToInt0" doubleToInt0 :: Double -> Int
foreign import ccall unsafe "ghc_floats.h doubleToInt1" doubleToInt1 :: Double -> Int

(Return to Plan 9 Home Page)