qd-0.1: Numeric/QD/FPU/Raw.hs

{-# LANGUAGE ForeignFunctionInterface #-}
module Numeric.QD.FPU.Raw
  ( fpu_fix_start
  , fpu_fix_end
  ) where

import Foreign (Ptr)
import Foreign.C (CInt)

foreign import ccall unsafe "qd/fpu.h fpu_fix_start" fpu_fix_start :: Ptr CInt -> IO ()
foreign import ccall unsafe "qd/fpu.h fpu_fix_end" fpu_fix_end :: Ptr CInt -> IO ()