src/mesa/main/get.c

   1 /*
   2  * Copyright (C) 2010  Brian Paul   All Rights Reserved.
   3  * Copyright (C) 2010  Intel Corporation
   4  *
   5  * Permission is hereby granted, free of charge, to any person obtaining a
   6  * copy of this software and associated documentation files (the "Software"),
   7  * to deal in the Software without restriction, including without limitation
   8  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
   9  * and/or sell copies of the Software, and to permit persons to whom the
  10  * Software is furnished to do so, subject to the following conditions:
  11  *
  12  * The above copyright notice and this permission notice shall be included
  13  * in all copies or substantial portions of the Software.
  14  *
  15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
  18  * THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
  19  * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  20  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  21  *
  22  * Author: Kristian Høgsberg <krh@bitplanet.net>
  23  */
  24
  25 #include "glheader.h"
  26 #include "context.h"
  27 #include "blend.h"
  28 #include "enable.h"
  29 #include "enums.h"
  30 #include "extensions.h"
  31 #include "get.h"
  32 #include "macros.h"
  33 #include "mtypes.h"
  34 #include "state.h"
  35 #include "texcompress.h"
  36 #include "framebuffer.h"
  37 #include "samplerobj.h"
  38
  39 /* This is a table driven implemetation of the glGet*v() functions.
  40  * The basic idea is that most getters just look up an int somewhere
  41  * in struct gl_context and then convert it to a bool or float according to
  42  * which of glGetIntegerv() glGetBooleanv() etc is being called.
  43  * Instead of generating code to do this, we can just record the enum
  44  * value and the offset into struct gl_context in an array of structs.  Then
  45  * in glGet*(), we lookup the struct for the enum in question, and use
  46  * the offset to get the int we need.
  47  *
  48  * Sometimes we need to look up a float, a boolean, a bit in a
  49  * bitfield, a matrix or other types instead, so we need to track the
  50  * type of the value in struct gl_context.  And sometimes the value isn't in
  51  * struct gl_context but in the drawbuffer, the array object, current texture
  52  * unit, or maybe it's a computed value.  So we need to also track
  53  * where or how to find the value.  Finally, we sometimes need to
  54  * check that one of a number of extensions are enabled, the GL
  55  * version or flush or call _mesa_update_state().  This is done by
  56  * attaching optional extra information to the value description
  57  * struct, it's sort of like an array of opcodes that describe extra
  58  * checks or actions.
  59  *
  60  * Putting all this together we end up with struct value_desc below,
  61  * and with a couple of macros to help, the table of struct value_desc
  62  * is about as concise as the specification in the old python script.
  63  */
  64
  65 #define FLOAT_TO_BOOLEAN(X)   ( (X) ? GL_TRUE : GL_FALSE )
  66 #define FLOAT_TO_FIXED(F)     ( ((F) * 65536.0f > INT_MAX) ? INT_MAX : \
  67                                 ((F) * 65536.0f < INT_MIN) ? INT_MIN : \
  68                                 (GLint) ((F) * 65536.0f) )
  69
  70 #define INT_TO_BOOLEAN(I)     ( (I) ? GL_TRUE : GL_FALSE )
  71 #define INT_TO_FIXED(I)       ( ((I) > SHRT_MAX) ? INT_MAX : \
  72                                 ((I) < SHRT_MIN) ? INT_MIN : \
  73                                 (GLint) ((I) * 65536) )
  74
  75 #define INT64_TO_BOOLEAN(I)   ( (I) ? GL_TRUE : GL_FALSE )
  76 #define INT64_TO_INT(I)       ( (GLint)((I > INT_MAX) ? INT_MAX : ((I < INT_MIN) ? INT_MIN : (I))) )
  77
  78 #define BOOLEAN_TO_INT(B)     ( (GLint) (B) )
  79 #define BOOLEAN_TO_INT64(B)   ( (GLint64) (B) )
  80 #define BOOLEAN_TO_FLOAT(B)   ( (B) ? 1.0F : 0.0F )
  81 #define BOOLEAN_TO_FIXED(B)   ( (GLint) ((B) ? 1 : 0) << 16 )
  82
  83 #define ENUM_TO_INT64(E)      ( (GLint64) (E) )
  84 #define ENUM_TO_FIXED(E)      (E)
  85
  86 enum value_type {
  87    TYPE_INVALID,
  88    TYPE_INT,
  89    TYPE_INT_2,
  90    TYPE_INT_3,
  91    TYPE_INT_4,
  92    TYPE_INT_N,
  93    TYPE_INT64,
  94    TYPE_ENUM,
  95    TYPE_ENUM_2,
  96    TYPE_BOOLEAN,
  97    TYPE_BIT_0,
  98    TYPE_BIT_1,
  99    TYPE_BIT_2,
 100    TYPE_BIT_3,
 101    TYPE_BIT_4,
 102    TYPE_BIT_5,
 103    TYPE_BIT_6,
 104    TYPE_BIT_7,
 105    TYPE_FLOAT,
 106    TYPE_FLOAT_2,
 107    TYPE_FLOAT_3,
 108    TYPE_FLOAT_4,
 109    TYPE_FLOATN,
 110    TYPE_FLOATN_2,
 111    TYPE_FLOATN_3,
 112    TYPE_FLOATN_4,
 113    TYPE_DOUBLEN,
 114    TYPE_MATRIX,
 115    TYPE_MATRIX_T,
 116    TYPE_CONST
 117 };
 118
 119 enum value_location {
 120    LOC_BUFFER,
 121    LOC_CONTEXT,
 122    LOC_ARRAY,
 123    LOC_TEXUNIT,
 124    LOC_CUSTOM
 125 };
 126
 127 enum value_extra {
 128    EXTRA_END = 0x8000,
 129    EXTRA_VERSION_30,
 130    EXTRA_VERSION_31,
 131    EXTRA_VERSION_32,
 132    EXTRA_API_GL,
 133    EXTRA_API_GL_CORE,
 134    EXTRA_API_ES2,
 135    EXTRA_API_ES3,
 136    EXTRA_NEW_BUFFERS,
 137    EXTRA_NEW_FRAG_CLAMP,
 138    EXTRA_VALID_DRAW_BUFFER,
 139    EXTRA_VALID_TEXTURE_UNIT,
 140    EXTRA_VALID_CLIP_DISTANCE,
 141    EXTRA_FLUSH_CURRENT,
 142    EXTRA_GLSL_130,
 143 };
 144
 145 #define NO_EXTRA NULL
 146 #define NO_OFFSET 0
 147
 148 struct value_desc {
 149    GLenum pname;
 150    GLubyte location;  /**< enum value_location */
 151    GLubyte type;      /**< enum value_type */
 152    int offset;
 153    const int *extra;
 154 };
 155
 156 union value {
 157    GLfloat value_float;
 158    GLfloat value_float_4[4];
 159    GLmatrix *value_matrix;
 160    GLint value_int;
 161    GLint value_int_4[4];
 162    GLint64 value_int64;
 163    GLenum value_enum;
 164
 165    /* Sigh, see GL_COMPRESSED_TEXTURE_FORMATS_ARB handling */
 166    struct {
 167       GLint n, ints[100];
 168    } value_int_n;
 169    GLboolean value_bool;
 170 };
 171
 172 #define BUFFER_FIELD(field, type) \
 173    LOC_BUFFER, type, offsetof(struct gl_framebuffer, field)
 174 #define CONTEXT_FIELD(field, type) \
 175    LOC_CONTEXT, type, offsetof(struct gl_context, field)
 176 #define ARRAY_FIELD(field, type) \
 177    LOC_ARRAY, type, offsetof(struct gl_array_object, field)
 178 #undef CONST /* already defined through windows.h */
 179 #define CONST(value) \
 180    LOC_CONTEXT, TYPE_CONST, value
 181
 182 #define BUFFER_INT(field) BUFFER_FIELD(field, TYPE_INT)
 183 #define BUFFER_ENUM(field) BUFFER_FIELD(field, TYPE_ENUM)
 184 #define BUFFER_BOOL(field) BUFFER_FIELD(field, TYPE_BOOLEAN)
 185
 186 #define CONTEXT_INT(field) CONTEXT_FIELD(field, TYPE_INT)
 187 #define CONTEXT_INT2(field) CONTEXT_FIELD(field, TYPE_INT_2)
 188 #define CONTEXT_INT64(field) CONTEXT_FIELD(field, TYPE_INT64)
 189 #define CONTEXT_ENUM(field) CONTEXT_FIELD(field, TYPE_ENUM)
 190 #define CONTEXT_ENUM2(field) CONTEXT_FIELD(field, TYPE_ENUM_2)
 191 #define CONTEXT_BOOL(field) CONTEXT_FIELD(field, TYPE_BOOLEAN)
 192 #define CONTEXT_BIT0(field) CONTEXT_FIELD(field, TYPE_BIT_0)
 193 #define CONTEXT_BIT1(field) CONTEXT_FIELD(field, TYPE_BIT_1)
 194 #define CONTEXT_BIT2(field) CONTEXT_FIELD(field, TYPE_BIT_2)
 195 #define CONTEXT_BIT3(field) CONTEXT_FIELD(field, TYPE_BIT_3)
 196 #define CONTEXT_BIT4(field) CONTEXT_FIELD(field, TYPE_BIT_4)
 197 #define CONTEXT_BIT5(field) CONTEXT_FIELD(field, TYPE_BIT_5)
 198 #define CONTEXT_BIT6(field) CONTEXT_FIELD(field, TYPE_BIT_6)
 199 #define CONTEXT_BIT7(field) CONTEXT_FIELD(field, TYPE_BIT_7)
 200 #define CONTEXT_FLOAT(field) CONTEXT_FIELD(field, TYPE_FLOAT)
 201 #define CONTEXT_FLOAT2(field) CONTEXT_FIELD(field, TYPE_FLOAT_2)
 202 #define CONTEXT_FLOAT3(field) CONTEXT_FIELD(field, TYPE_FLOAT_3)
 203 #define CONTEXT_FLOAT4(field) CONTEXT_FIELD(field, TYPE_FLOAT_4)
 204 #define CONTEXT_MATRIX(field) CONTEXT_FIELD(field, TYPE_MATRIX)
 205 #define CONTEXT_MATRIX_T(field) CONTEXT_FIELD(field, TYPE_MATRIX_T)
 206
 207 #define ARRAY_INT(field) ARRAY_FIELD(field, TYPE_INT)
 208 #define ARRAY_ENUM(field) ARRAY_FIELD(field, TYPE_ENUM)
 209 #define ARRAY_BOOL(field) ARRAY_FIELD(field, TYPE_BOOLEAN)
 210
 211 #define EXT(f)                                  \
 212    offsetof(struct gl_extensions, f)
 213
 214 #define EXTRA_EXT(e)                            \
 215    static const int extra_##e[] = {             \
 216       EXT(e), EXTRA_END                         \
 217    }
 218
 219 #define EXTRA_EXT2(e1, e2)                      \
 220    static const int extra_##e1##_##e2[] = {     \
 221       EXT(e1), EXT(e2), EXTRA_END               \
 222    }
 223
 224 /* The 'extra' mechanism is a way to specify extra checks (such as
 225  * extensions or specific gl versions) or actions (flush current, new
 226  * buffers) that we need to do before looking up an enum.  We need to
 227  * declare them all up front so we can refer to them in the value_desc
 228  * structs below. */
 229
 230 static const int extra_new_buffers[] = {
 231    EXTRA_NEW_BUFFERS,
 232    EXTRA_END
 233 };
 234
 235 static const int extra_new_frag_clamp[] = {
 236    EXTRA_NEW_FRAG_CLAMP,
 237    EXTRA_END
 238 };
 239
 240 static const int extra_valid_draw_buffer[] = {
 241    EXTRA_VALID_DRAW_BUFFER,
 242    EXTRA_END
 243 };
 244
 245 static const int extra_valid_texture_unit[] = {
 246    EXTRA_VALID_TEXTURE_UNIT,
 247    EXTRA_END
 248 };
 249
 250 static const int extra_valid_clip_distance[] = {
 251    EXTRA_VALID_CLIP_DISTANCE,
 252    EXTRA_END
 253 };
 254
 255 static const int extra_flush_current_valid_texture_unit[] = {
 256    EXTRA_FLUSH_CURRENT,
 257    EXTRA_VALID_TEXTURE_UNIT,
 258    EXTRA_END
 259 };
 260
 261 static const int extra_flush_current[] = {
 262    EXTRA_FLUSH_CURRENT,
 263    EXTRA_END
 264 };
 265
 266 static const int extra_EXT_secondary_color_flush_current[] = {
 267    EXT(EXT_secondary_color),
 268    EXTRA_FLUSH_CURRENT,
 269    EXTRA_END
 270 };
 271
 272 static const int extra_EXT_fog_coord_flush_current[] = {
 273    EXT(EXT_fog_coord),
 274    EXTRA_FLUSH_CURRENT,
 275    EXTRA_END
 276 };
 277
 278 static const int extra_EXT_texture_integer[] = {
 279    EXT(EXT_texture_integer),
 280    EXTRA_END
 281 };
 282
 283 static const int extra_EXT_texture_integer_and_new_buffers[] = {
 284    EXT(EXT_texture_integer),
 285    EXTRA_NEW_BUFFERS,
 286    EXTRA_END
 287 };
 288
 289 static const int extra_GLSL_130[] = {
 290    EXTRA_GLSL_130,
 291    EXTRA_END
 292 };
 293
 294 static const int extra_texture_buffer_object[] = {
 295    EXTRA_API_GL_CORE,
 296    EXTRA_VERSION_31,
 297    EXT(ARB_texture_buffer_object),
 298    EXTRA_END
 299 };
 300
 301 static const int extra_ARB_transform_feedback2_api_es3[] = {
 302    EXT(ARB_transform_feedback2),
 303    EXTRA_API_ES3,
 304    EXTRA_END
 305 };
 306
 307 static const int extra_ARB_uniform_buffer_object_and_geometry_shader[] = {
 308    EXT(ARB_uniform_buffer_object),
 309    EXT(ARB_geometry_shader4),
 310    EXTRA_END
 311 };
 312
 313 static const int extra_ARB_ES2_compatibility_api_es2[] = {
 314    EXT(ARB_ES2_compatibility),
 315    EXTRA_API_ES2,
 316    EXTRA_END
 317 };
 318
 319 static const int extra_ARB_ES3_compatibility_api_es3[] = {
 320    EXT(ARB_ES3_compatibility),
 321    EXTRA_API_ES3,
 322    EXTRA_END
 323 };
 324
 325 static const int extra_EXT_framebuffer_sRGB_and_new_buffers[] = {
 326    EXT(EXT_framebuffer_sRGB),
 327    EXTRA_NEW_BUFFERS,
 328    EXTRA_END
 329 };
 330
 331 EXTRA_EXT(ARB_texture_cube_map);
 332 EXTRA_EXT(MESA_texture_array);
 333 EXTRA_EXT2(EXT_secondary_color, ARB_vertex_program);
 334 EXTRA_EXT(EXT_secondary_color);
 335 EXTRA_EXT(EXT_fog_coord);
 336 EXTRA_EXT(NV_fog_distance);
 337 EXTRA_EXT(EXT_texture_filter_anisotropic);
 338 EXTRA_EXT(NV_point_sprite);
 339 EXTRA_EXT(NV_texture_rectangle);
 340 EXTRA_EXT(EXT_stencil_two_side);
 341 EXTRA_EXT(EXT_depth_bounds_test);
 342 EXTRA_EXT(ARB_depth_clamp);
 343 EXTRA_EXT(ATI_fragment_shader);
 344 EXTRA_EXT(EXT_framebuffer_blit);
 345 EXTRA_EXT(ARB_shader_objects);
 346 EXTRA_EXT(EXT_provoking_vertex);
 347 EXTRA_EXT(ARB_fragment_shader);
 348 EXTRA_EXT(ARB_fragment_program);
 349 EXTRA_EXT2(ARB_framebuffer_object, EXT_framebuffer_multisample);
 350 EXTRA_EXT(EXT_framebuffer_object);
 351 EXTRA_EXT(ARB_seamless_cube_map);
 352 EXTRA_EXT(ARB_sync);
 353 EXTRA_EXT(ARB_vertex_shader);
 354 EXTRA_EXT(EXT_transform_feedback);
 355 EXTRA_EXT(ARB_transform_feedback3);
 356 EXTRA_EXT(EXT_pixel_buffer_object);
 357 EXTRA_EXT(ARB_vertex_program);
 358 EXTRA_EXT2(NV_point_sprite, ARB_point_sprite);
 359 EXTRA_EXT2(ARB_vertex_program, ARB_fragment_program);
 360 EXTRA_EXT(ARB_geometry_shader4);
 361 EXTRA_EXT(ARB_color_buffer_float);
 362 EXTRA_EXT(EXT_framebuffer_sRGB);
 363 EXTRA_EXT(OES_EGL_image_external);
 364 EXTRA_EXT(ARB_blend_func_extended);
 365 EXTRA_EXT(ARB_uniform_buffer_object);
 366 EXTRA_EXT(ARB_timer_query);
 367 EXTRA_EXT(ARB_map_buffer_alignment);
 368 EXTRA_EXT(ARB_texture_cube_map_array);
 369 EXTRA_EXT(ARB_texture_buffer_range);
 370 EXTRA_EXT(ARB_texture_multisample);
 371
 372 static const int
 373 extra_ARB_color_buffer_float_or_glcore[] = {
 374    EXT(ARB_color_buffer_float),
 375    EXTRA_API_GL_CORE,
 376    EXTRA_END
 377 };
 378
 379 static const int
 380 extra_NV_primitive_restart[] = {
 381    EXT(NV_primitive_restart),
 382    EXTRA_END
 383 };
 384
 385 static const int extra_version_30[] = { EXTRA_VERSION_30, EXTRA_END };
 386 static const int extra_version_31[] = { EXTRA_VERSION_31, EXTRA_END };
 387 static const int extra_version_32[] = { EXTRA_VERSION_32, EXTRA_END };
 388
 389 static const int extra_gl30_es3[] = {
 390     EXTRA_VERSION_30,
 391     EXTRA_API_ES3,
 392     EXTRA_END,
 393 };
 394
 395 static const int
 396 extra_ARB_vertex_program_api_es2[] = {
 397    EXT(ARB_vertex_program),
 398    EXTRA_API_ES2,
 399    EXTRA_END
 400 };
 401
 402 /* The ReadBuffer get token is valid under either full GL or under
 403  * GLES2 if the NV_read_buffer extension is available. */
 404 static const int
 405 extra_NV_read_buffer_api_gl[] = {
 406    EXTRA_API_ES2,
 407    EXTRA_API_GL,
 408    EXTRA_END
 409 };
 410
 411 static const int extra_core_ARB_color_buffer_float_and_new_buffers[] = {
 412    EXTRA_API_GL_CORE,
 413    EXT(ARB_color_buffer_float),
 414    EXTRA_NEW_BUFFERS,
 415    EXTRA_END
 416 };
 417
 418 /* This is the big table describing all the enums we accept in
 419  * glGet*v().  The table is partitioned into six parts: enums
 420  * understood by all GL APIs (OpenGL, GLES and GLES2), enums shared
 421  * between OpenGL and GLES, enums exclusive to GLES, etc for the
 422  * remaining combinations. To look up the enums valid in a given API
 423  * we will use a hash table specific to that API. These tables are in
 424  * turn generated at build time and included through get_hash.h.
 425  */
 426
 427 #include "get_hash.h"
 428
 429 /* All we need now is a way to look up the value struct from the enum.
 430  * The code generated by gcc for the old generated big switch
 431  * statement is a big, balanced, open coded if/else tree, essentially
 432  * an unrolled binary search.  It would be natural to sort the new
 433  * enum table and use bsearch(), but we will use a read-only hash
 434  * table instead.  bsearch() has a nice guaranteed worst case
 435  * performance, but we're also guaranteed to hit that worst case
 436  * (log2(n) iterations) for about half the enums.  Instead, using an
 437  * open addressing hash table, we can find the enum on the first try
 438  * for 80% of the enums, 1 collision for 10% and never more than 5
 439  * collisions for any enum (typical numbers).  And the code is very
 440  * simple, even though it feels a little magic. */
 441
 442 #ifdef GET_DEBUG
 443 static void
 444 print_table_stats(int api)
 445 {
 446    int i, j, collisions[11], count, hash, mask;
 447    const struct value_desc *d;
 448    const char *api_names[] = {
 449       [API_OPENGL_COMPAT] = "GL",
 450       [API_OPENGL_CORE] = "GL_CORE",
 451       [API_OPENGLES] = "GLES",
 452       [API_OPENGLES2] = "GLES2",
 453    };
 454    const char *api_name;
 455
 456    api_name = api < Elements(api_names) ? api_names[api] : "N/A";
 457    count = 0;
 458    mask = Elements(table(api)) - 1;
 459    memset(collisions, 0, sizeof collisions);
 460
 461    for (i = 0; i < Elements(table(api)); i++) {
 462       if (!table(api)[i])
 463          continue;
 464       count++;
 465       d = &values[table(api)[i]];
 466       hash = (d->pname * prime_factor);
 467       j = 0;
 468       while (1) {
 469          if (values[table(api)[hash & mask]].pname == d->pname)
 470             break;
 471          hash += prime_step;
 472          j++;
 473       }
 474
 475       if (j < 10)
 476          collisions[j]++;
 477       else
 478          collisions[10]++;
 479    }
 480
 481    printf("number of enums for %s: %d (total %ld)\n",
 482          api_name, count, Elements(values));
 483    for (i = 0; i < Elements(collisions) - 1; i++)
 484       if (collisions[i] > 0)
 485          printf("  %d enums with %d %scollisions\n",
 486                collisions[i], i, i == 10 ? "or more " : "");
 487 }
 488 #endif
 489
 490 /**
 491  * Initialize the enum hash for a given API
 492  *
 493  * This is called from one_time_init() to insert the enum values that
 494  * are valid for the API in question into the enum hash table.
 495  *
 496  * \param the current context, for determining the API in question
 497  */
 498 void _mesa_init_get_hash(struct gl_context *ctx)
 499 {
 500 #ifdef GET_DEBUG
 501    print_table_stats();
 502 #endif
 503 }
 504
 505 /**
 506  * Handle irregular enums
 507  *
 508  * Some values don't conform to the "well-known type at context
 509  * pointer + offset" pattern, so we have this function to catch all
 510  * the corner cases.  Typically, it's a computed value or a one-off
 511  * pointer to a custom struct or something.
 512  *
 513  * In this case we can't return a pointer to the value, so we'll have
 514  * to use the temporary variable 'v' declared back in the calling
 515  * glGet*v() function to store the result.
 516  *
 517  * \param ctx the current context
 518  * \param d the struct value_desc that describes the enum
 519  * \param v pointer to the tmp declared in the calling glGet*v() function
 520  */
 521 static void
 522 find_custom_value(struct gl_context *ctx, const struct value_desc *d, union value *v)
 523 {
 524    struct gl_buffer_object **buffer_obj;
 525    struct gl_client_array *array;
 526    GLuint unit, *p;
 527
 528    switch (d->pname) {
 529    case GL_MAJOR_VERSION:
 530       v->value_int = ctx->Version / 10;
 531       break;
 532    case GL_MINOR_VERSION:
 533       v->value_int = ctx->Version % 10;
 534       break;
 535
 536    case GL_TEXTURE_1D:
 537    case GL_TEXTURE_2D:
 538    case GL_TEXTURE_3D:
 539    case GL_TEXTURE_1D_ARRAY_EXT:
 540    case GL_TEXTURE_2D_ARRAY_EXT:
 541    case GL_TEXTURE_CUBE_MAP_ARB:
 542    case GL_TEXTURE_RECTANGLE_NV:
 543    case GL_TEXTURE_EXTERNAL_OES:
 544       v->value_bool = _mesa_IsEnabled(d->pname);
 545       break;
 546
 547    case GL_LINE_STIPPLE_PATTERN:
 548       /* This is the only GLushort, special case it here by promoting
 549        * to an int rather than introducing a new type. */
 550       v->value_int = ctx->Line.StipplePattern;
 551       break;
 552
 553    case GL_CURRENT_RASTER_TEXTURE_COORDS:
 554       unit = ctx->Texture.CurrentUnit;
 555       v->value_float_4[0] = ctx->Current.RasterTexCoords[unit][0];
 556       v->value_float_4[1] = ctx->Current.RasterTexCoords[unit][1];
 557       v->value_float_4[2] = ctx->Current.RasterTexCoords[unit][2];
 558       v->value_float_4[3] = ctx->Current.RasterTexCoords[unit][3];
 559       break;
 560
 561    case GL_CURRENT_TEXTURE_COORDS:
 562       unit = ctx->Texture.CurrentUnit;
 563       v->value_float_4[0] = ctx->Current.Attrib[VERT_ATTRIB_TEX0 + unit][0];
 564       v->value_float_4[1] = ctx->Current.Attrib[VERT_ATTRIB_TEX0 + unit][1];
 565       v->value_float_4[2] = ctx->Current.Attrib[VERT_ATTRIB_TEX0 + unit][2];
 566       v->value_float_4[3] = ctx->Current.Attrib[VERT_ATTRIB_TEX0 + unit][3];
 567       break;
 568
 569    case GL_COLOR_WRITEMASK:
 570       v->value_int_4[0] = ctx->Color.ColorMask[0][RCOMP] ? 1 : 0;
 571       v->value_int_4[1] = ctx->Color.ColorMask[0][GCOMP] ? 1 : 0;
 572       v->value_int_4[2] = ctx->Color.ColorMask[0][BCOMP] ? 1 : 0;
 573       v->value_int_4[3] = ctx->Color.ColorMask[0][ACOMP] ? 1 : 0;
 574       break;
 575
 576    case GL_EDGE_FLAG:
 577       v->value_bool = ctx->Current.Attrib[VERT_ATTRIB_EDGEFLAG][0] == 1.0;
 578       break;
 579
 580    case GL_READ_BUFFER:
 581       v->value_enum = ctx->ReadBuffer->ColorReadBuffer;
 582       break;
 583
 584    case GL_MAP2_GRID_DOMAIN:
 585       v->value_float_4[0] = ctx->Eval.MapGrid2u1;
 586       v->value_float_4[1] = ctx->Eval.MapGrid2u2;
 587       v->value_float_4[2] = ctx->Eval.MapGrid2v1;
 588       v->value_float_4[3] = ctx->Eval.MapGrid2v2;
 589       break;
 590
 591    case GL_TEXTURE_STACK_DEPTH:
 592       unit = ctx->Texture.CurrentUnit;
 593       v->value_int = ctx->TextureMatrixStack[unit].Depth + 1;
 594       break;
 595    case GL_TEXTURE_MATRIX:
 596       unit = ctx->Texture.CurrentUnit;
 597       v->value_matrix = ctx->TextureMatrixStack[unit].Top;
 598       break;
 599
 600    case GL_TEXTURE_COORD_ARRAY:
 601    case GL_TEXTURE_COORD_ARRAY_SIZE:
 602    case GL_TEXTURE_COORD_ARRAY_TYPE:
 603    case GL_TEXTURE_COORD_ARRAY_STRIDE:
 604       array = &ctx->Array.ArrayObj->VertexAttrib[VERT_ATTRIB_TEX(ctx->Array.ActiveTexture)];
 605       v->value_int = *(GLuint *) ((char *) array + d->offset);
 606       break;
 607
 608    case GL_ACTIVE_TEXTURE_ARB:
 609       v->value_int = GL_TEXTURE0_ARB + ctx->Texture.CurrentUnit;
 610       break;
 611    case GL_CLIENT_ACTIVE_TEXTURE_ARB:
 612       v->value_int = GL_TEXTURE0_ARB + ctx->Array.ActiveTexture;
 613       break;
 614
 615    case GL_MODELVIEW_STACK_DEPTH:
 616    case GL_PROJECTION_STACK_DEPTH:
 617       v->value_int = *(GLint *) ((char *) ctx + d->offset) + 1;
 618       break;
 619
 620    case GL_MAX_TEXTURE_SIZE:
 621    case GL_MAX_3D_TEXTURE_SIZE:
 622    case GL_MAX_CUBE_MAP_TEXTURE_SIZE_ARB:
 623       p = (GLuint *) ((char *) ctx + d->offset);
 624       v->value_int = 1 << (*p - 1);
 625       break;
 626
 627    case GL_SCISSOR_BOX:
 628       v->value_int_4[0] = ctx->Scissor.X;
 629       v->value_int_4[1] = ctx->Scissor.Y;
 630       v->value_int_4[2] = ctx->Scissor.Width;
 631       v->value_int_4[3] = ctx->Scissor.Height;
 632       break;
 633
 634    case GL_LIST_INDEX:
 635       v->value_int =
 636          ctx->ListState.CurrentList ? ctx->ListState.CurrentList->Name : 0;
 637       break;
 638    case GL_LIST_MODE:
 639       if (!ctx->CompileFlag)
 640          v->value_enum = 0;
 641       else if (ctx->ExecuteFlag)
 642          v->value_enum = GL_COMPILE_AND_EXECUTE;
 643       else
 644          v->value_enum = GL_COMPILE;
 645       break;
 646
 647    case GL_VIEWPORT:
 648       v->value_int_4[0] = ctx->Viewport.X;
 649       v->value_int_4[1] = ctx->Viewport.Y;
 650       v->value_int_4[2] = ctx->Viewport.Width;
 651       v->value_int_4[3] = ctx->Viewport.Height;
 652       break;
 653
 654    case GL_ACTIVE_STENCIL_FACE_EXT:
 655       v->value_enum = ctx->Stencil.ActiveFace ? GL_BACK : GL_FRONT;
 656       break;
 657
 658    case GL_STENCIL_FAIL:
 659       v->value_enum = ctx->Stencil.FailFunc[ctx->Stencil.ActiveFace];
 660       break;
 661    case GL_STENCIL_FUNC:
 662       v->value_enum = ctx->Stencil.Function[ctx->Stencil.ActiveFace];
 663       break;
 664    case GL_STENCIL_PASS_DEPTH_FAIL:
 665       v->value_enum = ctx->Stencil.ZFailFunc[ctx->Stencil.ActiveFace];
 666       break;
 667    case GL_STENCIL_PASS_DEPTH_PASS:
 668       v->value_enum = ctx->Stencil.ZPassFunc[ctx->Stencil.ActiveFace];
 669       break;
 670    case GL_STENCIL_REF:
 671       v->value_int = ctx->Stencil.Ref[ctx->Stencil.ActiveFace];
 672       break;
 673    case GL_STENCIL_VALUE_MASK:
 674       v->value_int = ctx->Stencil.ValueMask[ctx->Stencil.ActiveFace];
 675       break;
 676    case GL_STENCIL_WRITEMASK:
 677       v->value_int = ctx->Stencil.WriteMask[ctx->Stencil.ActiveFace];
 678       break;
 679
 680    case GL_NUM_EXTENSIONS:
 681       v->value_int = _mesa_get_extension_count(ctx);
 682       break;
 683
 684    case GL_IMPLEMENTATION_COLOR_READ_TYPE_OES:
 685       v->value_int = _mesa_get_color_read_type(ctx);
 686       break;
 687    case GL_IMPLEMENTATION_COLOR_READ_FORMAT_OES:
 688       v->value_int = _mesa_get_color_read_format(ctx);
 689       break;
 690
 691    case GL_CURRENT_MATRIX_STACK_DEPTH_ARB:
 692       v->value_int = ctx->CurrentStack->Depth + 1;
 693       break;
 694    case GL_CURRENT_MATRIX_ARB:
 695    case GL_TRANSPOSE_CURRENT_MATRIX_ARB:
 696       v->value_matrix = ctx->CurrentStack->Top;
 697       break;
 698
 699    case GL_NUM_COMPRESSED_TEXTURE_FORMATS_ARB:
 700       v->value_int = _mesa_get_compressed_formats(ctx, NULL);
 701       break;
 702    case GL_COMPRESSED_TEXTURE_FORMATS_ARB:
 703       v->value_int_n.n =
 704          _mesa_get_compressed_formats(ctx, v->value_int_n.ints);
 705       ASSERT(v->value_int_n.n <= 100);
 706       break;
 707
 708    case GL_MAX_VARYING_FLOATS_ARB:
 709       v->value_int = ctx->Const.MaxVarying * 4;
 710       break;
 711
 712    /* Various object names */
 713
 714    case GL_TEXTURE_BINDING_1D:
 715    case GL_TEXTURE_BINDING_2D:
 716    case GL_TEXTURE_BINDING_3D:
 717    case GL_TEXTURE_BINDING_1D_ARRAY_EXT:
 718    case GL_TEXTURE_BINDING_2D_ARRAY_EXT:
 719    case GL_TEXTURE_BINDING_CUBE_MAP_ARB:
 720    case GL_TEXTURE_BINDING_RECTANGLE_NV:
 721    case GL_TEXTURE_BINDING_EXTERNAL_OES:
 722    case GL_TEXTURE_BINDING_CUBE_MAP_ARRAY:
 723    case GL_TEXTURE_BINDING_2D_MULTISAMPLE:
 724    case GL_TEXTURE_BINDING_2D_MULTISAMPLE_ARRAY:
 725       unit = ctx->Texture.CurrentUnit;
 726       v->value_int =
 727          ctx->Texture.Unit[unit].CurrentTex[d->offset]->Name;
 728       break;
 729
 730    /* GL_ARB_vertex_buffer_object */
 731    case GL_VERTEX_ARRAY_BUFFER_BINDING_ARB:
 732    case GL_NORMAL_ARRAY_BUFFER_BINDING_ARB:
 733    case GL_COLOR_ARRAY_BUFFER_BINDING_ARB:
 734    case GL_INDEX_ARRAY_BUFFER_BINDING_ARB:
 735    case GL_EDGE_FLAG_ARRAY_BUFFER_BINDING_ARB:
 736    case GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING_ARB:
 737    case GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING_ARB:
 738       buffer_obj = (struct gl_buffer_object **)
 739          ((char *) ctx->Array.ArrayObj + d->offset);
 740       v->value_int = (*buffer_obj)->Name;
 741       break;
 742    case GL_ARRAY_BUFFER_BINDING_ARB:
 743       v->value_int = ctx->Array.ArrayBufferObj->Name;
 744       break;
 745    case GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING_ARB:
 746       v->value_int =
 747          ctx->Array.ArrayObj->VertexAttrib[VERT_ATTRIB_TEX(ctx->Array.ActiveTexture)].BufferObj->Name;
 748       break;
 749    case GL_ELEMENT_ARRAY_BUFFER_BINDING_ARB:
 750       v->value_int = ctx->Array.ArrayObj->ElementArrayBufferObj->Name;
 751       break;
 752
 753    /* ARB_copy_buffer */
 754    case GL_COPY_READ_BUFFER:
 755       v->value_int = ctx->CopyReadBuffer->Name;
 756       break;
 757    case GL_COPY_WRITE_BUFFER:
 758       v->value_int = ctx->CopyWriteBuffer->Name;
 759       break;
 760
 761    case GL_PIXEL_PACK_BUFFER_BINDING_EXT:
 762       v->value_int = ctx->Pack.BufferObj->Name;
 763       break;
 764    case GL_PIXEL_UNPACK_BUFFER_BINDING_EXT:
 765       v->value_int = ctx->Unpack.BufferObj->Name;
 766       break;
 767    case GL_TRANSFORM_FEEDBACK_BUFFER_BINDING:
 768       v->value_int = ctx->TransformFeedback.CurrentBuffer->Name;
 769       break;
 770    case GL_TRANSFORM_FEEDBACK_BUFFER_PAUSED:
 771       v->value_int = ctx->TransformFeedback.CurrentObject->Paused;
 772       break;
 773    case GL_TRANSFORM_FEEDBACK_BUFFER_ACTIVE:
 774       v->value_int = ctx->TransformFeedback.CurrentObject->Active;
 775       break;
 776    case GL_TRANSFORM_FEEDBACK_BINDING:
 777       v->value_int = ctx->TransformFeedback.CurrentObject->Name;
 778       break;
 779    case GL_CURRENT_PROGRAM:
 780       v->value_int =
 781          ctx->Shader.ActiveProgram ? ctx->Shader.ActiveProgram->Name : 0;
 782       break;
 783    case GL_READ_FRAMEBUFFER_BINDING_EXT:
 784       v->value_int = ctx->ReadBuffer->Name;
 785       break;
 786    case GL_RENDERBUFFER_BINDING_EXT:
 787       v->value_int =
 788          ctx->CurrentRenderbuffer ? ctx->CurrentRenderbuffer->Name : 0;
 789       break;
 790    case GL_POINT_SIZE_ARRAY_BUFFER_BINDING_OES:
 791       v->value_int = ctx->Array.ArrayObj->VertexAttrib[VERT_ATTRIB_POINT_SIZE].BufferObj->Name;
 792       break;
 793
 794    case GL_FOG_COLOR:
 795       if (_mesa_get_clamp_fragment_color(ctx))
 796          COPY_4FV(v->value_float_4, ctx->Fog.Color);
 797       else
 798          COPY_4FV(v->value_float_4, ctx->Fog.ColorUnclamped);
 799       break;
 800    case GL_COLOR_CLEAR_VALUE:
 801       if (_mesa_get_clamp_fragment_color(ctx)) {
 802          v->value_float_4[0] = CLAMP(ctx->Color.ClearColor.f[0], 0.0F, 1.0F);
 803          v->value_float_4[1] = CLAMP(ctx->Color.ClearColor.f[1], 0.0F, 1.0F);
 804          v->value_float_4[2] = CLAMP(ctx->Color.ClearColor.f[2], 0.0F, 1.0F);
 805          v->value_float_4[3] = CLAMP(ctx->Color.ClearColor.f[3], 0.0F, 1.0F);
 806       } else
 807          COPY_4FV(v->value_float_4, ctx->Color.ClearColor.f);
 808       break;
 809    case GL_BLEND_COLOR_EXT:
 810       if (_mesa_get_clamp_fragment_color(ctx))
 811          COPY_4FV(v->value_float_4, ctx->Color.BlendColor);
 812       else
 813          COPY_4FV(v->value_float_4, ctx->Color.BlendColorUnclamped);
 814       break;
 815    case GL_ALPHA_TEST_REF:
 816       if (_mesa_get_clamp_fragment_color(ctx))
 817          v->value_float = ctx->Color.AlphaRef;
 818       else
 819          v->value_float = ctx->Color.AlphaRefUnclamped;
 820       break;
 821    case GL_MAX_VERTEX_UNIFORM_VECTORS:
 822       v->value_int = ctx->Const.VertexProgram.MaxUniformComponents / 4;
 823       break;
 824
 825    case GL_MAX_FRAGMENT_UNIFORM_VECTORS:
 826       v->value_int = ctx->Const.FragmentProgram.MaxUniformComponents / 4;
 827       break;
 828
 829    /* GL_ARB_texture_buffer_object */
 830    case GL_TEXTURE_BUFFER_ARB:
 831       v->value_int = ctx->Texture.BufferObject->Name;
 832       break;
 833    case GL_TEXTURE_BINDING_BUFFER_ARB:
 834       unit = ctx->Texture.CurrentUnit;
 835       v->value_int =
 836          ctx->Texture.Unit[unit].CurrentTex[TEXTURE_BUFFER_INDEX]->Name;
 837       break;
 838    case GL_TEXTURE_BUFFER_DATA_STORE_BINDING_ARB:
 839       {
 840          struct gl_buffer_object *buf =
 841             ctx->Texture.Unit[ctx->Texture.CurrentUnit]
 842             .CurrentTex[TEXTURE_BUFFER_INDEX]->BufferObject;
 843          v->value_int = buf ? buf->Name : 0;
 844       }
 845       break;
 846    case GL_TEXTURE_BUFFER_FORMAT_ARB:
 847       v->value_int = ctx->Texture.Unit[ctx->Texture.CurrentUnit]
 848          .CurrentTex[TEXTURE_BUFFER_INDEX]->BufferObjectFormat;
 849       break;
 850
 851    /* GL_ARB_sampler_objects */
 852    case GL_SAMPLER_BINDING:
 853       {
 854          struct gl_sampler_object *samp =
 855             ctx->Texture.Unit[ctx->Texture.CurrentUnit].Sampler;
 856
 857          /*
 858           * The sampler object may have been deleted on another context,
 859           * so we try to lookup the sampler object before returning its Name.
 860           */
 861          if (samp && _mesa_lookup_samplerobj(ctx, samp->Name)) {
 862             v->value_int = samp->Name;
 863          } else {
 864             v->value_int = 0;
 865          }
 866       }
 867       break;
 868    /* GL_ARB_uniform_buffer_object */
 869    case GL_UNIFORM_BUFFER_BINDING:
 870       v->value_int = ctx->UniformBuffer->Name;
 871       break;
 872    /* GL_ARB_timer_query */
 873    case GL_TIMESTAMP:
 874       if (ctx->Driver.GetTimestamp) {
 875          v->value_int64 = ctx->Driver.GetTimestamp(ctx);
 876       }
 877       else {
 878          _mesa_problem(ctx, "driver doesn't implement GetTimestamp");
 879       }
 880       break;
 881    }
 882 }
 883
 884 /**
 885  * Check extra constraints on a struct value_desc descriptor
 886  *
 887  * If a struct value_desc has a non-NULL extra pointer, it means that
 888  * there are a number of extra constraints to check or actions to
 889  * perform.  The extras is just an integer array where each integer
 890  * encode different constraints or actions.
 891  *
 892  * \param ctx current context
 893  * \param func name of calling glGet*v() function for error reporting
 894  * \param d the struct value_desc that has the extra constraints
 895  *
 896  * \return GL_FALSE if all of the constraints were not satisfied,
 897  *     otherwise GL_TRUE.
 898  */
 899 static GLboolean
 900 check_extra(struct gl_context *ctx, const char *func, const struct value_desc *d)
 901 {
 902    const GLuint version = ctx->Version;
 903    int total, enabled;
 904    const int *e;
 905
 906    total = 0;
 907    enabled = 0;
 908    for (e = d->extra; *e != EXTRA_END; e++)
 909       switch (*e) {
 910       case EXTRA_VERSION_30:
 911          if (version >= 30) {
 912             total++;
 913             enabled++;
 914          }
 915          break;
 916       case EXTRA_VERSION_31:
 917          if (version >= 31) {
 918             total++;
 919             enabled++;
 920          }
 921          break;
 922       case EXTRA_VERSION_32:
 923          if (version >= 32) {
 924             total++;
 925             enabled++;
 926          }
 927          break;
 928       case EXTRA_NEW_FRAG_CLAMP:
 929          if (ctx->NewState & (_NEW_BUFFERS | _NEW_FRAG_CLAMP))
 930             _mesa_update_state(ctx);
 931          break;
 932       case EXTRA_API_ES2:
 933          if (ctx->API == API_OPENGLES2) {
 934             total++;
 935             enabled++;
 936          }
 937          break;
 938       case EXTRA_API_ES3:
 939          if (_mesa_is_gles3(ctx)) {
 940             total++;
 941             enabled++;
 942          }
 943          break;
 944       case EXTRA_API_GL:
 945          if (_mesa_is_desktop_gl(ctx)) {
 946             total++;
 947             enabled++;
 948          }
 949          break;
 950       case EXTRA_API_GL_CORE:
 951          if (ctx->API == API_OPENGL_CORE) {
 952             total++;
 953             enabled++;
 954          }
 955          break;
 956       case EXTRA_NEW_BUFFERS:
 957          if (ctx->NewState & _NEW_BUFFERS)
 958             _mesa_update_state(ctx);
 959          break;
 960       case EXTRA_FLUSH_CURRENT:
 961          FLUSH_CURRENT(ctx, 0);
 962          break;
 963       case EXTRA_VALID_DRAW_BUFFER:
 964          if (d->pname - GL_DRAW_BUFFER0_ARB >= ctx->Const.MaxDrawBuffers) {
 965             _mesa_error(ctx, GL_INVALID_OPERATION, "%s(draw buffer %u)",
 966                         func, d->pname - GL_DRAW_BUFFER0_ARB);
 967             return GL_FALSE;
 968          }
 969          break;
 970       case EXTRA_VALID_TEXTURE_UNIT:
 971          if (ctx->Texture.CurrentUnit >= ctx->Const.MaxTextureCoordUnits) {
 972             _mesa_error(ctx, GL_INVALID_OPERATION, "%s(texture %u)",
 973                         func, ctx->Texture.CurrentUnit);
 974             return GL_FALSE;
 975          }
 976          break;
 977       case EXTRA_VALID_CLIP_DISTANCE:
 978          if (d->pname - GL_CLIP_DISTANCE0 >= ctx->Const.MaxClipPlanes) {
 979             _mesa_error(ctx, GL_INVALID_ENUM, "%s(clip distance %u)",
 980                         func, d->pname - GL_CLIP_DISTANCE0);
 981             return GL_FALSE;
 982          }
 983          break;
 984       case EXTRA_GLSL_130:
 985          if (ctx->Const.GLSLVersion >= 130) {
 986             total++;
 987             enabled++;
 988          }
 989          break;
 990       case EXTRA_END:
 991          break;
 992       default: /* *e is a offset into the extension struct */
 993          total++;
 994          if (*(GLboolean *) ((char *) &ctx->Extensions + *e))
 995             enabled++;
 996          break;
 997       }
 998
 999    if (total > 0 && enabled == 0) {
1000       _mesa_error(ctx, GL_INVALID_ENUM, "%s(pname=%s)", func,
1001                   _mesa_lookup_enum_by_nr(d->pname));
1002       return GL_FALSE;
1003    }
1004
1005    return GL_TRUE;
1006 }
1007
1008 static const struct value_desc error_value =
1009    { 0, 0, TYPE_INVALID, NO_OFFSET, NO_EXTRA };
1010
1011 /**
1012  * Find the struct value_desc corresponding to the enum 'pname'.
1013  *
1014  * We hash the enum value to get an index into the 'table' array,
1015  * which holds the index in the 'values' array of struct value_desc.
1016  * Once we've found the entry, we do the extra checks, if any, then
1017  * look up the value and return a pointer to it.
1018  *
1019  * If the value has to be computed (for example, it's the result of a
1020  * function call or we need to add 1 to it), we use the tmp 'v' to
1021  * store the result.
1022  *
1023  * \param func name of glGet*v() func for error reporting
1024  * \param pname the enum value we're looking up
1025  * \param p is were we return the pointer to the value
1026  * \param v a tmp union value variable in the calling glGet*v() function
1027  *
1028  * \return the struct value_desc corresponding to the enum or a struct
1029  *     value_desc of TYPE_INVALID if not found.  This lets the calling
1030  *     glGet*v() function jump right into a switch statement and
1031  *     handle errors there instead of having to check for NULL.
1032  */
1033 static const struct value_desc *
1034 find_value(const char *func, GLenum pname, void **p, union value *v)
1035 {
1036    GET_CURRENT_CONTEXT(ctx);
1037    struct gl_texture_unit *unit;
1038    int mask, hash;
1039    const struct value_desc *d;
1040    int api;
1041
1042    api = ctx->API;
1043    /* We index into the table_set[] list of per-API hash tables using the API's
1044     * value in the gl_api enum. Since GLES 3 doesn't have an API_OPENGL* enum
1045     * value since it's compatible with GLES2 its entry in table_set[] is at the
1046     * end.
1047     */
1048    STATIC_ASSERT(Elements(table_set) == API_OPENGL_LAST + 2);
1049    if (_mesa_is_gles3(ctx)) {
1050       api = API_OPENGL_LAST + 1;
1051    }
1052    mask = Elements(table(api)) - 1;
1053    hash = (pname * prime_factor);
1054    while (1) {
1055       int idx = table(api)[hash & mask];
1056
1057       /* If the enum isn't valid, the hash walk ends with index 0,
1058        * pointing to the first entry of values[] which doesn't hold
1059        * any valid enum. */
1060       if (unlikely(idx == 0)) {
1061          _mesa_error(ctx, GL_INVALID_ENUM, "%s(pname=%s)", func,
1062                _mesa_lookup_enum_by_nr(pname));
1063          return &error_value;
1064       }
1065
1066       d = &values[idx];
1067       if (likely(d->pname == pname))
1068          break;
1069
1070       hash += prime_step;
1071    }
1072
1073    if (unlikely(d->extra && !check_extra(ctx, func, d)))
1074       return &error_value;
1075
1076    switch (d->location) {
1077    case LOC_BUFFER:
1078       *p = ((char *) ctx->DrawBuffer + d->offset);
1079       return d;
1080    case LOC_CONTEXT:
1081       *p = ((char *) ctx + d->offset);
1082       return d;
1083    case LOC_ARRAY:
1084       *p = ((char *) ctx->Array.ArrayObj + d->offset);
1085       return d;
1086    case LOC_TEXUNIT:
1087       unit = &ctx->Texture.Unit[ctx->Texture.CurrentUnit];
1088       *p = ((char *) unit + d->offset);
1089       return d;
1090    case LOC_CUSTOM:
1091       find_custom_value(ctx, d, v);
1092       *p = v;
1093       return d;
1094    default:
1095       assert(0);
1096       break;
1097    }
1098
1099    /* silence warning */
1100    return &error_value;
1101 }
1102
1103 static const int transpose[] = {
1104    0, 4,  8, 12,
1105    1, 5,  9, 13,
1106    2, 6, 10, 14,
1107    3, 7, 11, 15
1108 };
1109
1110 void GLAPIENTRY
1111 _mesa_GetBooleanv(GLenum pname, GLboolean *params)
1112 {
1113    const struct value_desc *d;
1114    union value v;
1115    GLmatrix *m;
1116    int shift, i;
1117    void *p;
1118
1119    d = find_value("glGetBooleanv", pname, &p, &v);
1120    switch (d->type) {
1121    case TYPE_INVALID:
1122       break;
1123    case TYPE_CONST:
1124       params[0] = INT_TO_BOOLEAN(d->offset);
1125       break;
1126
1127    case TYPE_FLOAT_4:
1128    case TYPE_FLOATN_4:
1129       params[3] = FLOAT_TO_BOOLEAN(((GLfloat *) p)[3]);
1130    case TYPE_FLOAT_3:
1131    case TYPE_FLOATN_3:
1132       params[2] = FLOAT_TO_BOOLEAN(((GLfloat *) p)[2]);
1133    case TYPE_FLOAT_2:
1134    case TYPE_FLOATN_2:
1135       params[1] = FLOAT_TO_BOOLEAN(((GLfloat *) p)[1]);
1136    case TYPE_FLOAT:
1137    case TYPE_FLOATN:
1138       params[0] = FLOAT_TO_BOOLEAN(((GLfloat *) p)[0]);
1139       break;
1140
1141    case TYPE_DOUBLEN:
1142       params[0] = FLOAT_TO_BOOLEAN(((GLdouble *) p)[0]);
1143       break;
1144
1145    case TYPE_INT_4:
1146       params[3] = INT_TO_BOOLEAN(((GLint *) p)[3]);
1147    case TYPE_INT_3:
1148       params[2] = INT_TO_BOOLEAN(((GLint *) p)[2]);
1149    case TYPE_INT_2:
1150    case TYPE_ENUM_2:
1151       params[1] = INT_TO_BOOLEAN(((GLint *) p)[1]);
1152    case TYPE_INT:
1153    case TYPE_ENUM:
1154       params[0] = INT_TO_BOOLEAN(((GLint *) p)[0]);
1155       break;
1156
1157    case TYPE_INT_N:
1158       for (i = 0; i < v.value_int_n.n; i++)
1159          params[i] = INT_TO_BOOLEAN(v.value_int_n.ints[i]);
1160       break;
1161
1162    case TYPE_INT64:
1163       params[0] = INT64_TO_BOOLEAN(((GLint64 *) p)[0]);
1164       break;
1165
1166    case TYPE_BOOLEAN:
1167       params[0] = ((GLboolean*) p)[0];
1168       break;
1169
1170    case TYPE_MATRIX:
1171       m = *(GLmatrix **) p;
1172       for (i = 0; i < 16; i++)
1173          params[i] = FLOAT_TO_BOOLEAN(m->m[i]);
1174       break;
1175
1176    case TYPE_MATRIX_T:
1177       m = *(GLmatrix **) p;
1178       for (i = 0; i < 16; i++)
1179          params[i] = FLOAT_TO_BOOLEAN(m->m[transpose[i]]);
1180       break;
1181
1182    case TYPE_BIT_0:
1183    case TYPE_BIT_1:
1184    case TYPE_BIT_2:
1185    case TYPE_BIT_3:
1186    case TYPE_BIT_4:
1187    case TYPE_BIT_5:
1188    case TYPE_BIT_6:
1189    case TYPE_BIT_7:
1190       shift = d->type - TYPE_BIT_0;
1191       params[0] = (*(GLbitfield *) p >> shift) & 1;
1192       break;
1193    }
1194 }
1195
1196 void GLAPIENTRY
1197 _mesa_GetFloatv(GLenum pname, GLfloat *params)
1198 {
1199    const struct value_desc *d;
1200    union value v;
1201    GLmatrix *m;
1202    int shift, i;
1203    void *p;
1204
1205    d = find_value("glGetFloatv", pname, &p, &v);
1206    switch (d->type) {
1207    case TYPE_INVALID:
1208       break;
1209    case TYPE_CONST:
1210       params[0] = (GLfloat) d->offset;
1211       break;
1212
1213    case TYPE_FLOAT_4:
1214    case TYPE_FLOATN_4:
1215       params[3] = ((GLfloat *) p)[3];
1216    case TYPE_FLOAT_3:
1217    case TYPE_FLOATN_3:
1218       params[2] = ((GLfloat *) p)[2];
1219    case TYPE_FLOAT_2:
1220    case TYPE_FLOATN_2:
1221       params[1] = ((GLfloat *) p)[1];
1222    case TYPE_FLOAT:
1223    case TYPE_FLOATN:
1224       params[0] = ((GLfloat *) p)[0];
1225       break;
1226
1227    case TYPE_DOUBLEN:
1228       params[0] = (GLfloat) (((GLdouble *) p)[0]);
1229       break;
1230
1231    case TYPE_INT_4:
1232       params[3] = (GLfloat) (((GLint *) p)[3]);
1233    case TYPE_INT_3:
1234       params[2] = (GLfloat) (((GLint *) p)[2]);
1235    case TYPE_INT_2:
1236    case TYPE_ENUM_2:
1237       params[1] = (GLfloat) (((GLint *) p)[1]);
1238    case TYPE_INT:
1239    case TYPE_ENUM:
1240       params[0] = (GLfloat) (((GLint *) p)[0]);
1241       break;
1242
1243    case TYPE_INT_N:
1244       for (i = 0; i < v.value_int_n.n; i++)
1245          params[i] = INT_TO_FLOAT(v.value_int_n.ints[i]);
1246       break;
1247
1248    case TYPE_INT64:
1249       params[0] = (GLfloat) (((GLint64 *) p)[0]);
1250       break;
1251
1252    case TYPE_BOOLEAN:
1253       params[0] = BOOLEAN_TO_FLOAT(*(GLboolean*) p);
1254       break;
1255
1256    case TYPE_MATRIX:
1257       m = *(GLmatrix **) p;
1258       for (i = 0; i < 16; i++)
1259          params[i] = m->m[i];
1260       break;
1261
1262    case TYPE_MATRIX_T:
1263       m = *(GLmatrix **) p;
1264       for (i = 0; i < 16; i++)
1265          params[i] = m->m[transpose[i]];
1266       break;
1267
1268    case TYPE_BIT_0:
1269    case TYPE_BIT_1:
1270    case TYPE_BIT_2:
1271    case TYPE_BIT_3:
1272    case TYPE_BIT_4:
1273    case TYPE_BIT_5:
1274    case TYPE_BIT_6:
1275    case TYPE_BIT_7:
1276       shift = d->type - TYPE_BIT_0;
1277       params[0] = BOOLEAN_TO_FLOAT((*(GLbitfield *) p >> shift) & 1);
1278       break;
1279    }
1280 }
1281
1282 void GLAPIENTRY
1283 _mesa_GetIntegerv(GLenum pname, GLint *params)
1284 {
1285    const struct value_desc *d;
1286    union value v;
1287    GLmatrix *m;
1288    int shift, i;
1289    void *p;
1290
1291    d = find_value("glGetIntegerv", pname, &p, &v);
1292    switch (d->type) {
1293    case TYPE_INVALID:
1294       break;
1295    case TYPE_CONST:
1296       params[0] = d->offset;
1297       break;
1298
1299    case TYPE_FLOAT_4:
1300       params[3] = IROUND(((GLfloat *) p)[3]);
1301    case TYPE_FLOAT_3:
1302       params[2] = IROUND(((GLfloat *) p)[2]);
1303    case TYPE_FLOAT_2:
1304       params[1] = IROUND(((GLfloat *) p)[1]);
1305    case TYPE_FLOAT:
1306       params[0] = IROUND(((GLfloat *) p)[0]);
1307       break;
1308
1309    case TYPE_FLOATN_4:
1310       params[3] = FLOAT_TO_INT(((GLfloat *) p)[3]);
1311    case TYPE_FLOATN_3:
1312       params[2] = FLOAT_TO_INT(((GLfloat *) p)[2]);
1313    case TYPE_FLOATN_2:
1314       params[1] = FLOAT_TO_INT(((GLfloat *) p)[1]);
1315    case TYPE_FLOATN:
1316       params[0] = FLOAT_TO_INT(((GLfloat *) p)[0]);
1317       break;
1318
1319    case TYPE_DOUBLEN:
1320       params[0] = FLOAT_TO_INT(((GLdouble *) p)[0]);
1321       break;
1322
1323    case TYPE_INT_4:
1324       params[3] = ((GLint *) p)[3];
1325    case TYPE_INT_3:
1326       params[2] = ((GLint *) p)[2];
1327    case TYPE_INT_2:
1328    case TYPE_ENUM_2:
1329       params[1] = ((GLint *) p)[1];
1330    case TYPE_INT:
1331    case TYPE_ENUM:
1332       params[0] = ((GLint *) p)[0];
1333       break;
1334
1335    case TYPE_INT_N:
1336       for (i = 0; i < v.value_int_n.n; i++)
1337          params[i] = v.value_int_n.ints[i];
1338       break;
1339
1340    case TYPE_INT64:
1341       params[0] = INT64_TO_INT(((GLint64 *) p)[0]);
1342       break;
1343
1344    case TYPE_BOOLEAN:
1345       params[0] = BOOLEAN_TO_INT(*(GLboolean*) p);
1346       break;
1347
1348    case TYPE_MATRIX:
1349       m = *(GLmatrix **) p;
1350       for (i = 0; i < 16; i++)
1351          params[i] = FLOAT_TO_INT(m->m[i]);
1352       break;
1353
1354    case TYPE_MATRIX_T:
1355       m = *(GLmatrix **) p;
1356       for (i = 0; i < 16; i++)
1357          params[i] = FLOAT_TO_INT(m->m[transpose[i]]);
1358       break;
1359
1360    case TYPE_BIT_0:
1361    case TYPE_BIT_1:
1362    case TYPE_BIT_2:
1363    case TYPE_BIT_3:
1364    case TYPE_BIT_4:
1365    case TYPE_BIT_5:
1366    case TYPE_BIT_6:
1367    case TYPE_BIT_7:
1368       shift = d->type - TYPE_BIT_0;
1369       params[0] = (*(GLbitfield *) p >> shift) & 1;
1370       break;
1371    }
1372 }
1373
1374 void GLAPIENTRY
1375 _mesa_GetInteger64v(GLenum pname, GLint64 *params)
1376 {
1377    const struct value_desc *d;
1378    union value v;
1379    GLmatrix *m;
1380    int shift, i;
1381    void *p;
1382
1383    d = find_value("glGetInteger64v", pname, &p, &v);
1384    switch (d->type) {
1385    case TYPE_INVALID:
1386       break;
1387    case TYPE_CONST:
1388       params[0] = d->offset;
1389       break;
1390
1391    case TYPE_FLOAT_4:
1392       params[3] = IROUND64(((GLfloat *) p)[3]);
1393    case TYPE_FLOAT_3:
1394       params[2] = IROUND64(((GLfloat *) p)[2]);
1395    case TYPE_FLOAT_2:
1396       params[1] = IROUND64(((GLfloat *) p)[1]);
1397    case TYPE_FLOAT:
1398       params[0] = IROUND64(((GLfloat *) p)[0]);
1399       break;
1400
1401    case TYPE_FLOATN_4:
1402       params[3] = FLOAT_TO_INT64(((GLfloat *) p)[3]);
1403    case TYPE_FLOATN_3:
1404       params[2] = FLOAT_TO_INT64(((GLfloat *) p)[2]);
1405    case TYPE_FLOATN_2:
1406       params[1] = FLOAT_TO_INT64(((GLfloat *) p)[1]);
1407    case TYPE_FLOATN:
1408       params[0] = FLOAT_TO_INT64(((GLfloat *) p)[0]);
1409       break;
1410
1411    case TYPE_DOUBLEN:
1412       params[0] = FLOAT_TO_INT64(((GLdouble *) p)[0]);
1413       break;
1414
1415    case TYPE_INT_4:
1416       params[3] = ((GLint *) p)[3];
1417    case TYPE_INT_3:
1418       params[2] = ((GLint *) p)[2];
1419    case TYPE_INT_2:
1420    case TYPE_ENUM_2:
1421       params[1] = ((GLint *) p)[1];
1422    case TYPE_INT:
1423    case TYPE_ENUM:
1424       params[0] = ((GLint *) p)[0];
1425       break;
1426
1427    case TYPE_INT_N:
1428       for (i = 0; i < v.value_int_n.n; i++)
1429          params[i] = INT_TO_BOOLEAN(v.value_int_n.ints[i]);
1430       break;
1431
1432    case TYPE_INT64:
1433       params[0] = ((GLint64 *) p)[0];
1434       break;
1435
1436    case TYPE_BOOLEAN:
1437       params[0] = ((GLboolean*) p)[0];
1438       break;
1439
1440    case TYPE_MATRIX:
1441       m = *(GLmatrix **) p;
1442       for (i = 0; i < 16; i++)
1443          params[i] = FLOAT_TO_INT64(m->m[i]);
1444       break;
1445
1446    case TYPE_MATRIX_T:
1447       m = *(GLmatrix **) p;
1448       for (i = 0; i < 16; i++)
1449          params[i] = FLOAT_TO_INT64(m->m[transpose[i]]);
1450       break;
1451
1452    case TYPE_BIT_0:
1453    case TYPE_BIT_1:
1454    case TYPE_BIT_2:
1455    case TYPE_BIT_3:
1456    case TYPE_BIT_4:
1457    case TYPE_BIT_5:
1458    case TYPE_BIT_6:
1459    case TYPE_BIT_7:
1460       shift = d->type - TYPE_BIT_0;
1461       params[0] = (*(GLbitfield *) p >> shift) & 1;
1462       break;
1463    }
1464 }
1465
1466 void GLAPIENTRY
1467 _mesa_GetDoublev(GLenum pname, GLdouble *params)
1468 {
1469    const struct value_desc *d;
1470    union value v;
1471    GLmatrix *m;
1472    int shift, i;
1473    void *p;
1474
1475    d = find_value("glGetDoublev", pname, &p, &v);
1476    switch (d->type) {
1477    case TYPE_INVALID:
1478       break;
1479    case TYPE_CONST:
1480       params[0] = d->offset;
1481       break;
1482
1483    case TYPE_FLOAT_4:
1484    case TYPE_FLOATN_4:
1485       params[3] = ((GLfloat *) p)[3];
1486    case TYPE_FLOAT_3:
1487    case TYPE_FLOATN_3:
1488       params[2] = ((GLfloat *) p)[2];
1489    case TYPE_FLOAT_2:
1490    case TYPE_FLOATN_2:
1491       params[1] = ((GLfloat *) p)[1];
1492    case TYPE_FLOAT:
1493    case TYPE_FLOATN:
1494       params[0] = ((GLfloat *) p)[0];
1495       break;
1496
1497    case TYPE_DOUBLEN:
1498       params[0] = ((GLdouble *) p)[0];
1499       break;
1500
1501    case TYPE_INT_4:
1502       params[3] = ((GLint *) p)[3];
1503    case TYPE_INT_3:
1504       params[2] = ((GLint *) p)[2];
1505    case TYPE_INT_2:
1506    case TYPE_ENUM_2:
1507       params[1] = ((GLint *) p)[1];
1508    case TYPE_INT:
1509    case TYPE_ENUM:
1510       params[0] = ((GLint *) p)[0];
1511       break;
1512
1513    case TYPE_INT_N:
1514       for (i = 0; i < v.value_int_n.n; i++)
1515          params[i] = v.value_int_n.ints[i];
1516       break;
1517
1518    case TYPE_INT64:
1519       params[0] = (GLdouble) (((GLint64 *) p)[0]);
1520       break;
1521
1522    case TYPE_BOOLEAN:
1523       params[0] = *(GLboolean*) p;
1524       break;
1525
1526    case TYPE_MATRIX:
1527       m = *(GLmatrix **) p;
1528       for (i = 0; i < 16; i++)
1529          params[i] = m->m[i];
1530       break;
1531
1532    case TYPE_MATRIX_T:
1533       m = *(GLmatrix **) p;
1534       for (i = 0; i < 16; i++)
1535          params[i] = m->m[transpose[i]];
1536       break;
1537
1538    case TYPE_BIT_0:
1539    case TYPE_BIT_1:
1540    case TYPE_BIT_2:
1541    case TYPE_BIT_3:
1542    case TYPE_BIT_4:
1543    case TYPE_BIT_5:
1544    case TYPE_BIT_6:
1545    case TYPE_BIT_7:
1546       shift = d->type - TYPE_BIT_0;
1547       params[0] = (*(GLbitfield *) p >> shift) & 1;
1548       break;
1549    }
1550 }
1551
1552 static enum value_type
1553 find_value_indexed(const char *func, GLenum pname, GLuint index, union value *v)
1554 {
1555    GET_CURRENT_CONTEXT(ctx);
1556
1557    switch (pname) {
1558
1559    case GL_BLEND:
1560       if (index >= ctx->Const.MaxDrawBuffers)
1561          goto invalid_value;
1562       if (!ctx->Extensions.EXT_draw_buffers2)
1563          goto invalid_enum;
1564       v->value_int = (ctx->Color.BlendEnabled >> index) & 1;
1565       return TYPE_INT;
1566
1567    case GL_BLEND_SRC:
1568       /* fall-through */
1569    case GL_BLEND_SRC_RGB:
1570       if (index >= ctx->Const.MaxDrawBuffers)
1571          goto invalid_value;
1572       if (!ctx->Extensions.ARB_draw_buffers_blend)
1573          goto invalid_enum;
1574       v->value_int = ctx->Color.Blend[index].SrcRGB;
1575       return TYPE_INT;
1576    case GL_BLEND_SRC_ALPHA:
1577       if (index >= ctx->Const.MaxDrawBuffers)
1578          goto invalid_value;
1579       if (!ctx->Extensions.ARB_draw_buffers_blend)
1580          goto invalid_enum;
1581       v->value_int = ctx->Color.Blend[index].SrcA;
1582       return TYPE_INT;
1583    case GL_BLEND_DST:
1584       /* fall-through */
1585    case GL_BLEND_DST_RGB:
1586       if (index >= ctx->Const.MaxDrawBuffers)
1587          goto invalid_value;
1588       if (!ctx->Extensions.ARB_draw_buffers_blend)
1589          goto invalid_enum;
1590       v->value_int = ctx->Color.Blend[index].DstRGB;
1591       return TYPE_INT;
1592    case GL_BLEND_DST_ALPHA:
1593       if (index >= ctx->Const.MaxDrawBuffers)
1594          goto invalid_value;
1595       if (!ctx->Extensions.ARB_draw_buffers_blend)
1596          goto invalid_enum;
1597       v->value_int = ctx->Color.Blend[index].DstA;
1598       return TYPE_INT;
1599    case GL_BLEND_EQUATION_RGB:
1600       if (index >= ctx->Const.MaxDrawBuffers)
1601          goto invalid_value;
1602       if (!ctx->Extensions.ARB_draw_buffers_blend)
1603          goto invalid_enum;
1604       v->value_int = ctx->Color.Blend[index].EquationRGB;
1605       return TYPE_INT;
1606    case GL_BLEND_EQUATION_ALPHA:
1607       if (index >= ctx->Const.MaxDrawBuffers)
1608          goto invalid_value;
1609       if (!ctx->Extensions.ARB_draw_buffers_blend)
1610          goto invalid_enum;
1611       v->value_int = ctx->Color.Blend[index].EquationA;
1612       return TYPE_INT;
1613
1614    case GL_COLOR_WRITEMASK:
1615       if (index >= ctx->Const.MaxDrawBuffers)
1616          goto invalid_value;
1617       if (!ctx->Extensions.EXT_draw_buffers2)
1618          goto invalid_enum;
1619       v->value_int_4[0] = ctx->Color.ColorMask[index][RCOMP] ? 1 : 0;
1620       v->value_int_4[1] = ctx->Color.ColorMask[index][GCOMP] ? 1 : 0;
1621       v->value_int_4[2] = ctx->Color.ColorMask[index][BCOMP] ? 1 : 0;
1622       v->value_int_4[3] = ctx->Color.ColorMask[index][ACOMP] ? 1 : 0;
1623       return TYPE_INT_4;
1624
1625    case GL_TRANSFORM_FEEDBACK_BUFFER_START:
1626       if (index >= ctx->Const.MaxTransformFeedbackBuffers)
1627          goto invalid_value;
1628       if (!ctx->Extensions.EXT_transform_feedback)
1629          goto invalid_enum;
1630       v->value_int64 = ctx->TransformFeedback.CurrentObject->Offset[index];
1631       return TYPE_INT64;
1632
1633    case GL_TRANSFORM_FEEDBACK_BUFFER_SIZE:
1634       if (index >= ctx->Const.MaxTransformFeedbackBuffers)
1635          goto invalid_value;
1636       if (!ctx->Extensions.EXT_transform_feedback)
1637          goto invalid_enum;
1638       v->value_int64
1639          = ctx->TransformFeedback.CurrentObject->RequestedSize[index];
1640       return TYPE_INT64;
1641
1642    case GL_TRANSFORM_FEEDBACK_BUFFER_BINDING:
1643       if (index >= ctx->Const.MaxTransformFeedbackBuffers)
1644          goto invalid_value;
1645       if (!ctx->Extensions.EXT_transform_feedback)
1646          goto invalid_enum;
1647       v->value_int = ctx->TransformFeedback.CurrentObject->BufferNames[index];
1648       return TYPE_INT;
1649
1650    case GL_UNIFORM_BUFFER_BINDING:
1651       if (index >= ctx->Const.MaxUniformBufferBindings)
1652          goto invalid_value;
1653       if (!ctx->Extensions.ARB_uniform_buffer_object)
1654          goto invalid_enum;
1655       v->value_int = ctx->UniformBufferBindings[index].BufferObject->Name;
1656       return TYPE_INT;
1657
1658    case GL_UNIFORM_BUFFER_START:
1659       if (index >= ctx->Const.MaxUniformBufferBindings)
1660          goto invalid_value;
1661       if (!ctx->Extensions.ARB_uniform_buffer_object)
1662          goto invalid_enum;
1663       v->value_int = ctx->UniformBufferBindings[index].Offset;
1664       return TYPE_INT;
1665
1666    case GL_UNIFORM_BUFFER_SIZE:
1667       if (index >= ctx->Const.MaxUniformBufferBindings)
1668          goto invalid_value;
1669       if (!ctx->Extensions.ARB_uniform_buffer_object)
1670          goto invalid_enum;
1671       v->value_int = ctx->UniformBufferBindings[index].Size;
1672       return TYPE_INT;
1673
1674    /* ARB_texture_multisample / GL3.2 */
1675    case GL_SAMPLE_MASK_VALUE:
1676       if (index != 0)
1677          goto invalid_value;
1678       if (!ctx->Extensions.ARB_texture_multisample)
1679          goto invalid_enum;
1680       v->value_int = ctx->Multisample.SampleMaskValue;
1681       return TYPE_INT;
1682    }
1683
1684  invalid_enum:
1685    _mesa_error(ctx, GL_INVALID_ENUM, "%s(pname=%s)", func,
1686                _mesa_lookup_enum_by_nr(pname));
1687    return TYPE_INVALID;
1688  invalid_value:
1689    _mesa_error(ctx, GL_INVALID_VALUE, "%s(pname=%s)", func,
1690                _mesa_lookup_enum_by_nr(pname));
1691    return TYPE_INVALID;
1692 }
1693
1694 void GLAPIENTRY
1695 _mesa_GetBooleani_v( GLenum pname, GLuint index, GLboolean *params )
1696 {
1697    union value v;
1698    enum value_type type =
1699       find_value_indexed("glGetBooleani_v", pname, index, &v);
1700
1701    switch (type) {
1702    case TYPE_INT:
1703       params[0] = INT_TO_BOOLEAN(v.value_int);
1704       break;
1705    case TYPE_INT_4:
1706       params[0] = INT_TO_BOOLEAN(v.value_int_4[0]);
1707       params[1] = INT_TO_BOOLEAN(v.value_int_4[1]);
1708       params[2] = INT_TO_BOOLEAN(v.value_int_4[2]);
1709       params[3] = INT_TO_BOOLEAN(v.value_int_4[3]);
1710       break;
1711    case TYPE_INT64:
1712       params[0] = INT64_TO_BOOLEAN(v.value_int);
1713       break;
1714    default:
1715       ; /* nothing - GL error was recorded */
1716    }
1717 }
1718
1719 void GLAPIENTRY
1720 _mesa_GetIntegeri_v( GLenum pname, GLuint index, GLint *params )
1721 {
1722    union value v;
1723    enum value_type type =
1724       find_value_indexed("glGetIntegeri_v", pname, index, &v);
1725
1726    switch (type) {
1727    case TYPE_INT:
1728       params[0] = v.value_int;
1729       break;
1730    case TYPE_INT_4:
1731       params[0] = v.value_int_4[0];
1732       params[1] = v.value_int_4[1];
1733       params[2] = v.value_int_4[2];
1734       params[3] = v.value_int_4[3];
1735       break;
1736    case TYPE_INT64:
1737       params[0] = INT64_TO_INT(v.value_int);
1738       break;
1739    default:
1740       ; /* nothing - GL error was recorded */
1741    }
1742 }
1743
1744 void GLAPIENTRY
1745 _mesa_GetInteger64i_v( GLenum pname, GLuint index, GLint64 *params )
1746 {
1747    union value v;
1748    enum value_type type =
1749       find_value_indexed("glGetInteger64i_v", pname, index, &v);
1750
1751    switch (type) {
1752    case TYPE_INT:
1753       params[0] = v.value_int;
1754       break;
1755    case TYPE_INT_4:
1756       params[0] = v.value_int_4[0];
1757       params[1] = v.value_int_4[1];
1758       params[2] = v.value_int_4[2];
1759       params[3] = v.value_int_4[3];
1760       break;
1761    case TYPE_INT64:
1762       params[0] = v.value_int;
1763       break;
1764    default:
1765       ; /* nothing - GL error was recorded */
1766    }
1767 }
1768
1769 void GLAPIENTRY
1770 _mesa_GetFixedv(GLenum pname, GLfixed *params)
1771 {
1772    const struct value_desc *d;
1773    union value v;
1774    GLmatrix *m;
1775    int shift, i;
1776    void *p;
1777
1778    d = find_value("glGetDoublev", pname, &p, &v);
1779    switch (d->type) {
1780    case TYPE_INVALID:
1781       break;
1782    case TYPE_CONST:
1783       params[0] = INT_TO_FIXED(d->offset);
1784       break;
1785
1786    case TYPE_FLOAT_4:
1787    case TYPE_FLOATN_4:
1788       params[3] = FLOAT_TO_FIXED(((GLfloat *) p)[3]);
1789    case TYPE_FLOAT_3:
1790    case TYPE_FLOATN_3:
1791       params[2] = FLOAT_TO_FIXED(((GLfloat *) p)[2]);
1792    case TYPE_FLOAT_2:
1793    case TYPE_FLOATN_2:
1794       params[1] = FLOAT_TO_FIXED(((GLfloat *) p)[1]);
1795    case TYPE_FLOAT:
1796    case TYPE_FLOATN:
1797       params[0] = FLOAT_TO_FIXED(((GLfloat *) p)[0]);
1798       break;
1799
1800    case TYPE_DOUBLEN:
1801       params[0] = FLOAT_TO_FIXED(((GLdouble *) p)[0]);
1802       break;
1803
1804    case TYPE_INT_4:
1805       params[3] = INT_TO_FIXED(((GLint *) p)[3]);
1806    case TYPE_INT_3:
1807       params[2] = INT_TO_FIXED(((GLint *) p)[2]);
1808    case TYPE_INT_2:
1809    case TYPE_ENUM_2:
1810       params[1] = INT_TO_FIXED(((GLint *) p)[1]);
1811    case TYPE_INT:
1812    case TYPE_ENUM:
1813       params[0] = INT_TO_FIXED(((GLint *) p)[0]);
1814       break;
1815
1816    case TYPE_INT_N:
1817       for (i = 0; i < v.value_int_n.n; i++)
1818          params[i] = INT_TO_FIXED(v.value_int_n.ints[i]);
1819       break;
1820
1821    case TYPE_INT64:
1822       params[0] = ((GLint64 *) p)[0];
1823       break;
1824
1825    case TYPE_BOOLEAN:
1826       params[0] = BOOLEAN_TO_FIXED(((GLboolean*) p)[0]);
1827       break;
1828
1829    case TYPE_MATRIX:
1830       m = *(GLmatrix **) p;
1831       for (i = 0; i < 16; i++)
1832          params[i] = FLOAT_TO_FIXED(m->m[i]);
1833       break;
1834
1835    case TYPE_MATRIX_T:
1836       m = *(GLmatrix **) p;
1837       for (i = 0; i < 16; i++)
1838          params[i] = FLOAT_TO_FIXED(m->m[transpose[i]]);
1839       break;
1840
1841    case TYPE_BIT_0:
1842    case TYPE_BIT_1:
1843    case TYPE_BIT_2:
1844    case TYPE_BIT_3:
1845    case TYPE_BIT_4:
1846    case TYPE_BIT_5:
1847    case TYPE_BIT_6:
1848    case TYPE_BIT_7:
1849       shift = d->type - TYPE_BIT_0;
1850       params[0] = BOOLEAN_TO_FIXED((*(GLbitfield *) p >> shift) & 1);
1851       break;
1852    }
1853 }