[hoc-cvs] [hoc commit] r357 - branches/objc2/hoc/HOC/HOC

[<cod...@go...>]

Author: jam...@us...
Date: Fri Dec  5 13:27:11 2008
New Revision: 357

Modified:
    branches/objc2/hoc/HOC/HOC/Base.hs

Log:
Added a foreign import for "free" as freePtr :: FunPtr (Ptr a -> IO ())
Will be used in a ForeignPtr finalizer.


Modified: branches/objc2/hoc/HOC/HOC/Base.hs
==============================================================================
--- branches/objc2/hoc/HOC/HOC/Base.hs	(original)
+++ branches/objc2/hoc/HOC/HOC/Base.hs	Fri Dec  5 13:27:11 2008
@@ -20,6 +20,10 @@

  --

+foreign import ccall "stdlib.h &free"
+    freePtr :: FunPtr (Ptr a -> IO ())
+
+--

  foreign import ccall "MemoryManagement.h retainObject"
      retainObject :: Ptr ObjCObject -> IO ()