module Graphics.UI.SDL.CPUInfo
( hasRDTSC
, hasMMX
, hasMMXExt
, has3DNow
, has3DNowExt
, hasSSE
, hasSSE2
, hasAltiVec
) where
import Foreign.Marshal.Utils (toBool)
foreign import ccall unsafe "SDL_HasRDTSC" sdlHasRDTSC :: Int
hasRDTSC :: Bool
hasRDTSC :: Bool
hasRDTSC = Int -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int
sdlHasRDTSC
foreign import ccall unsafe "SDL_HasMMX" sdlHasMMX :: Int
hasMMX :: Bool
hasMMX :: Bool
hasMMX = Int -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int
sdlHasMMX
foreign import ccall unsafe "SDL_HasMMXExt" sdlHasMMXExt :: Int
hasMMXExt :: Bool
hasMMXExt :: Bool
hasMMXExt = Int -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int
sdlHasMMXExt
foreign import ccall unsafe "SDL_Has3DNow" sdlHas3DNow :: Int
has3DNow :: Bool
has3DNow :: Bool
has3DNow = Int -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int
sdlHas3DNow
foreign import ccall unsafe "SDL_Has3DNowExt" sdlHas3DNowExt :: Int
has3DNowExt :: Bool
has3DNowExt :: Bool
has3DNowExt = Int -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int
sdlHas3DNowExt
foreign import ccall unsafe "SDL_HasSSE" sdlHasSSE :: Int
hasSSE :: Bool
hasSSE :: Bool
hasSSE = Int -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int
sdlHasSSE
foreign import ccall unsafe "SDL_HasSSE2" sdlHasSSE2 :: Int
hasSSE2 :: Bool
hasSSE2 :: Bool
hasSSE2 = Int -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int
sdlHasSSE2
foreign import ccall unsafe "SDL_HasAltiVec" sdlHasAltiVec :: Int
hasAltiVec :: Bool
hasAltiVec :: Bool
hasAltiVec = Int -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool Int
sdlHasAltiVec