                        | CL_GLX_DISPLAY_KHR (Ptr ())
                        | CL_WGL_HDC_KHR (Ptr ())
 #endif
+#endif
                        deriving( Show )
 
 packProperty :: CLContextProperty -> [CLContextProperty_]
 packProperty (CL_CONTEXT_PLATFORM pid)   = [ getCLValue CL_CONTEXT_PLATFORM_
                                            , fromIntegral . ptrToIntPtr $ pid ]
+#ifdef CL_VERSION_1_1
 packProperty (CL_CGL_SHAREGROUP_KHR ptr) = [ getCLValue CL_CGL_SHAREGROUP_KHR_
                                            , fromIntegral . ptrToIntPtr $ ptr ]
 #ifndef __APPLE__

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

packContextProperties :: [CLContextProperty] -> [CLContextProperty_]

                                     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
