diff options
Diffstat (limited to 'dev-haskell/gtk2hs/files/gtk2hs-0.9.10-store.patch')
| -rw-r--r-- | dev-haskell/gtk2hs/files/gtk2hs-0.9.10-store.patch | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/dev-haskell/gtk2hs/files/gtk2hs-0.9.10-store.patch b/dev-haskell/gtk2hs/files/gtk2hs-0.9.10-store.patch new file mode 100644 index 000000000000..38794a89662f --- /dev/null +++ b/dev-haskell/gtk2hs/files/gtk2hs-0.9.10-store.patch @@ -0,0 +1,12 @@ +diff -urwpN gtk2hs-0.9.10.orig/glib/System/Glib/GValue.chs gtk2hs-0.9.10/glib/System/Glib/GValue.chs +--- gtk2hs-0.9.10.orig/glib/System/Glib/GValue.chs 2005-04-18 22:04:08.000000000 -0400 ++++ gtk2hs-0.9.10/glib/System/Glib/GValue.chs 2006-03-05 14:53:20.000000000 -0400 +@@ -68,7 +68,7 @@ valueGetType (GValue gvPtr) = {# get GVa + -- + allocaGValue :: (GValue -> IO b) -> IO b + allocaGValue body = +- allocaBytes {# sizeof GValue #} $ \gvPtr -> do ++ allocaBytes ({# sizeof GType #}+ 2* {# sizeof guint64 #}) $ \gvPtr -> do + -- The g_type field of the value must be zero or g_value_init will fail. + {# set GValue->g_type #} gvPtr (0 :: GType) + result <- body (GValue gvPtr) |