                                            , fromIntegral . ptrToIntPtr $ ptr ]
 packProperty (CL_WGL_HDC_KHR ptr)        = [ getCLValue CL_WGL_HDC_KHR_
                                            , fromIntegral . ptrToIntPtr $ ptr ]
+#endif
 #endif
 
 packContextProperties :: [CLContextProperty] -> [CLContextProperty_]

                                     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

  cL_WGL_HDC_KHR_=CL_WGL_HDC_KHR,
  cL_CGL_SHAREGROUP_KHR_=CL_CGL_SHAREGROUP_KHR
#endif
#endif
  };
#endc
{#enum CLContextProperties {upcaseFirstLetter} #}
