 -- | Specifies a context property name and its corresponding value.
 data CLContextProperty = CL_CONTEXT_PLATFORM CLPlatformID 
                          -- ^ Specifies the platform to use.
+#ifdef CL_VERSION_1_1
                        | CL_CGL_SHAREGROUP_KHR (Ptr ())
                          -- ^ Specifies the CGL share group to use.
 #ifndef __APPLE__

                                     CL_CONTEXT_PLATFORM_ 
                                       -> CL_CONTEXT_PLATFORM 
                                          (intPtrToPtr . fromIntegral $ y) : ys
                                     CL_CGL_SHAREGROUP_KHR_ 
                                       -> CL_CGL_SHAREGROUP_KHR 
                                          (intPtrToPtr . fromIntegral $ y) : ys
  
-- -----------------------------------------------------------------------------
mkContextCallback :: (String -> IO ()) -> ContextCallback

                                           , fromIntegral . ptrToIntPtr $ ptr ]
packProperty (CL_WGL_HDC_KHR ptr)        = [ getCLValue CL_WGL_HDC_KHR_
                                           , fromIntegral . ptrToIntPtr $ ptr ]
#endif
#endif

packContextProperties :: [CLContextProperty] -> [CLContextProperty_]
