X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Bindings%2FAPR%2FPortable.hsc;h=66288f5fb2c03c5f66219928df8811ca1d5560b2;hb=HEAD;hp=288b49f0038365d41298d082a7daad94ef4b69ac;hpb=c3100272dedde8dcb76594ad7b3c0559707ec638;p=bindings-apr.git

diff --git a/Bindings/APR/Portable.hsc b/Bindings/APR/Portable.hsc
index 288b49f..66288f5 100644
--- a/Bindings/APR/Portable.hsc
+++ b/Bindings/APR/Portable.hsc
@@ -31,7 +31,7 @@ import Bindings.APR.Time
 
 #starttype struct apr_os_sock_info_t
 #  field os_sock , Ptr <apr_os_sock_t>
--- FIXME
+-- FIXME: sockaddr
 -- #  field local   , Ptr <sockaddr>
 -- #  field remote  , Ptr <sockaddr>
 #  field family  , CInt
@@ -39,22 +39,8 @@ import Bindings.APR.Time
 #  field protocol, CInt
 #stoptype
 
-#if APR_PROC_MUTEX_IS_GLOBAL
-type C'apr_os_global_mutex_t = C'apr_os_proc_mutex_t
-
-c'apr_os_global_mutex_get :: Ptr C'apr_os_global_mutex_t -> Ptr C'apr_global_mutex_t -> IO C'apr_status_t
-c'apr_os_global_mutex_get = c'apr_os_proc_mutex_get
-#else
-#  starttype struct apr_os_global_mutex_t
-#    field pool      , Ptr <apr_pool_t>
-#    field proc_mutex, Ptr <apr_proc_mutex_t>
-#    if APR_HAS_THREADS
-#      field thread_mutex, Ptr <apr_thread_mutex_t>
-#    endif
-#  stoptype
-
-#  ccall apr_os_global_mutex_get, Ptr <apr_os_global_mutex_t> -> Ptr <apr_global_mutex_t> -> IO <apr_status_t>
-#endif
+#opaque_t apr_os_global_mutex_t
+#cinline apr_os_global_mutex_get, Ptr <apr_os_global_mutex_t> -> Ptr <apr_global_mutex_t> -> IO <apr_status_t>
 
 #ccall apr_os_file_get      , Ptr <apr_os_file_t> -> Ptr <apr_file_t> -> IO <apr_status_t>
 #ccall apr_os_dir_get       , Ptr (Ptr <apr_os_dir_t>) -> Ptr <apr_dir_t> -> IO <apr_status_t>