withPtrPtrObject :: [Object ()] -> (CInt -> Ptr (Ptr ()) -> IO a) -> IO a
withPtrPtrObject xs f
  = withArray0 ptrNull (map ptrFromObject xs) $ \carr ->
    f (toCInt (length xs)) carr
withPtrPtrObject :: [Object ()] -> (CInt -> Ptr (Ptr ()) -> IO a) -> IO a
withPtrPtrObject xs f
  = withArray0 ptrNull (map ptrFromObject xs) $ \carr ->
    f (toCInt (length xs)) carr
withPtrPtrObject xs f
  = withArray0 ptrNull (map ptrFromObject xs) $ \carr ->
    f (toCInt (length xs)) carr