ghc/lib/glaExts/ByteOps_mp.hi

   1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
   2 interface ByteOps where
   3 import PreludeBuiltin(Char(..), Double(..), Float(..), Int(..), List(..), Tuple2)
   4 bytesToDouble :: [Char] -> (Double, [Char])
   5         {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
   6 bytesToFloat :: [Char] -> (Float, [Char])
   7         {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
   8 bytesToInt :: [Char] -> (Int, [Char])
   9         {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
  10 bytesToLong :: [Char] -> (Int, [Char])
  11         {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
  12 bytesToShort :: [Char] -> (Int, [Char])
  13         {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
  14 doubleToBytes :: Double -> [Char] -> [Char]
  15         {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
  16 floatToBytes :: Float -> [Char] -> [Char]
  17         {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
  18 intToBytes :: Int -> [Char] -> [Char]
  19         {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
  20 longToBytes :: Int -> [Char] -> [Char]
  21         {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
  22 shortToBytes :: Int -> [Char] -> [Char]
  23         {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
  24