                                      CL_CONTEXT_PLATFORM_ 
                                        -> CL_CONTEXT_PLATFORM 
                                           (intPtrToPtr . fromIntegral $ y) : ys
+#ifdef CL_VERSION_1_1
                                      CL_CGL_SHAREGROUP_KHR_ 
                                        -> CL_CGL_SHAREGROUP_KHR 
                                           (intPtrToPtr . fromIntegral $ y) : ys
+#endif
   
 -- -----------------------------------------------------------------------------
 mkContextCallback :: (String -> IO ()) -> ContextCallback

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

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

packContextProperties :: [CLContextProperty] -> [CLContextProperty_]
