module Bindings.GLib.CoreApplicationSupport.MemoryAllocation where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Bindings.GLib.Fundamentals
foreign import ccall "g_malloc" c'g_malloc
:: C'gsize -> IO C'gpointer
foreign import ccall "&g_malloc" p'g_malloc
:: FunPtr (C'gsize -> IO C'gpointer)
foreign import ccall "g_malloc0" c'g_malloc0
:: C'gsize -> IO C'gpointer
foreign import ccall "&g_malloc0" p'g_malloc0
:: FunPtr (C'gsize -> IO C'gpointer)
foreign import ccall "g_realloc" c'g_realloc
:: C'gpointer -> C'gsize -> IO C'gpointer
foreign import ccall "&g_realloc" p'g_realloc
:: FunPtr (C'gpointer -> C'gsize -> IO C'gpointer)
foreign import ccall "g_try_malloc" c'g_try_malloc
:: C'gsize -> IO C'gpointer
foreign import ccall "&g_try_malloc" p'g_try_malloc
:: FunPtr (C'gsize -> IO C'gpointer)
foreign import ccall "g_try_malloc0" c'g_try_malloc0
:: C'gsize -> IO C'gpointer
foreign import ccall "&g_try_malloc0" p'g_try_malloc0
:: FunPtr (C'gsize -> IO C'gpointer)
foreign import ccall "g_try_realloc" c'g_try_realloc
:: C'gpointer -> C'gsize -> IO C'gpointer
foreign import ccall "&g_try_realloc" p'g_try_realloc
:: FunPtr (C'gpointer -> C'gsize -> IO C'gpointer)
foreign import ccall "g_free" c'g_free
:: C'gpointer -> IO ()
foreign import ccall "&g_free" p'g_free
:: FunPtr (C'gpointer -> IO ())
foreign import ccall "&g_mem_gc_friendly" p'g_mem_gc_friendly
:: Ptr (C'gboolean)
foreign import ccall "g_memdup" c'g_memdup
:: C'gconstpointer -> C'guint -> IO C'gpointer
foreign import ccall "&g_memdup" p'g_memdup
:: FunPtr (C'gconstpointer -> C'guint -> IO C'gpointer)
data C'GMemVTable = C'GMemVTable{
c'GMemVTable'malloc :: FunPtr (C'gsize -> IO C'gpointer)
,
c'GMemVTable'realloc :: FunPtr (C'gpointer -> C'gsize -> IO C'gpointer)
,
c'GMemVTable'free :: FunPtr (C'gpointer -> IO ())
,
c'GMemVTable'calloc :: FunPtr (C'gsize -> C'gsize -> IO C'gpointer)
,
c'GMemVTable'try_malloc :: FunPtr (C'gsize -> IO C'gpointer)
,
c'GMemVTable'try_realloc :: FunPtr (C'gpointer -> C'gsize -> IO C'gpointer)
} deriving (Eq,Show)
instance Storable C'GMemVTable where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
v5 <- peekByteOff p 20
return $ C'GMemVTable v0 v1 v2 v3 v4 v5
poke p (C'GMemVTable v0 v1 v2 v3 v4 v5) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
pokeByteOff p 20 v5
return ()
foreign import ccall "g_mem_set_vtable" c'g_mem_set_vtable
:: Ptr C'GMemVTable -> IO ()
foreign import ccall "&g_mem_set_vtable" p'g_mem_set_vtable
:: FunPtr (Ptr C'GMemVTable -> IO ())
foreign import ccall "g_mem_is_system_malloc" c'g_mem_is_system_malloc
:: IO C'gboolean
foreign import ccall "&g_mem_is_system_malloc" p'g_mem_is_system_malloc
:: FunPtr (IO C'gboolean)
foreign import ccall "&glib_mem_profiler_table" p'glib_mem_profiler_table
:: Ptr (Ptr C'GMemVTable)
foreign import ccall "g_mem_profile" c'g_mem_profile
:: IO ()
foreign import ccall "&g_mem_profile" p'g_mem_profile
:: FunPtr (IO ())