let _GLX_ALPHA_SIZE              = GetConf.GLX_ALPHA_SIZE,              (fun (v : _a) -> (Obj.magic v : uint))