From 47954c351109f0868c716e4c9552b973ce7a53aa Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 25 Nov 2009 23:23:49 +0000 Subject: [PATCH] Tweak layout to work with alternative layout rule --- GHC/ForeignPtr.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/ForeignPtr.hs b/GHC/ForeignPtr.hs index ed6c075..3cd7609 100644 --- a/GHC/ForeignPtr.hs +++ b/GHC/ForeignPtr.hs @@ -214,7 +214,7 @@ addForeignPtrFinalizer (FunPtr fp) (ForeignPtr p c) = case c of PlainForeignPtr r -> f r >> return () MallocPtr _ r -> f r >> return () _ -> error "GHC.ForeignPtr: attempt to add a finalizer to a plain pointer" - where + where f r = noMixing CFinalizers r $ IO $ \s -> @@ -232,7 +232,7 @@ addForeignPtrFinalizerEnv (FunPtr fp) (Ptr ep) (ForeignPtr p c) = case c of PlainForeignPtr r -> f r >> return () MallocPtr _ r -> f r >> return () _ -> error "GHC.ForeignPtr: attempt to add a finalizer to a plain pointer" - where + where f r = noMixing CFinalizers r $ IO $ \s -> -- 1.7.10.4