[Gtk2hs-commit] (main branch): Make explicit use of concurrent finalizers.

[Axel S. <si...@co...>]

Fri Mar 27 07:06:03 EDT 2009  Axel Simon <Axe...@en...>
  * Make explicit use of concurrent finalizers.
  This patch acounts for the change of semantics that finalizers undergo with
  the release of GHC 6.10.1. Specifcially, finalizers are now by default
  run during garbage collection, making it impossible to have them call back
  to Haskell land. This patch uses functions that specifically schedule any
  finilizers to be run as new threads once the mutator springs back to life.

    hunk ./glib/System/Glib/FFI.hs.pp 46
    +#if (__GLASGOW_HASKELL__>=610)
    +import qualified Foreign.Concurrent
    +#endif
    hunk ./glib/System/Glib/FFI.hs.pp 53
    +#if (__GLASGOW_HASKELL__>=610)
    +newForeignPtr :: Ptr a -> FinalizerPtr a -> IO (ForeignPtr a)
    +newForeignPtr p finalizer
    +   = Foreign.Concurrent.newForeignPtr p (mkFinalizer finalizer p)
    +
    +foreign import ccall "dynamic"
    +   mkFinalizer :: FinalizerPtr a -> Ptr a -> IO ()
    +#else
    +newForeignPtr :: Ptr a -> FinalizerPtr a -> IO (ForeignPtr a)
    hunk ./glib/System/Glib/FFI.hs.pp 63
    +#endif