module WinDll.Debug.Exports where
import qualified WinDll.Debug.Alloc as F ( freeUnknown )
import qualified Foreign.Marshal.Alloc as G
import WinDll.Debug.Stack ()
import Foreign
import Foreign.Ptr
foreign export stdcall "freeS" freeS :: Ptr () -> IO ()
foreign export ccall "freeC" freeC :: Ptr () -> IO ()
foreign export stdcall "recordS" freeS :: Ptr () -> IO ()
foreign export ccall "recordC" freeC :: Ptr () -> IO ()
freeS :: Ptr () -> IO ()
freeS ptr = F.freeUnknown "[External Source]" ptr G.free
freeC :: Ptr () -> IO ()
freeC ptr = F.freeUnknown "[External Source]" ptr G.free
recordS :: Ptr () -> IO ()
recordS ptr = F.freeUnknown "[External Source]" ptr (const (return ()))
recordC :: Ptr () -> IO ()
recordC ptr = F.freeUnknown "[External Source]" ptr (const (return ()))