src/mesa/main/dlist.c

   1 /*
   2  * Mesa 3-D graphics library
   3  * Version:  7.1
   4  *
   5  * Copyright (C) 1999-2007  Brian Paul   All Rights Reserved.
   6  *
   7  * Permission is hereby granted, free of charge, to any person obtaining a
   8  * copy of this software and associated documentation files (the "Software"),
   9  * to deal in the Software without restriction, including without limitation
  10  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
  11  * and/or sell copies of the Software, and to permit persons to whom the
  12  * Software is furnished to do so, subject to the following conditions:
  13  *
  14  * The above copyright notice and this permission notice shall be included
  15  * in all copies or substantial portions of the Software.
  16  *
  17  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  18  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  19  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
  20  * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
  21  * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  22  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  23  */
  24
  25
  26 /**
  27  * \file dlist.c
  28  * Display lists management functions.
  29  */
  30
  31 #include "glheader.h"
  32 #include "imports.h"
  33 #include "api_arrayelt.h"
  34 #include "api_loopback.h"
  35 #include "config.h"
  36 #include "mfeatures.h"
  37 #include "attrib.h"
  38 #include "blend.h"
  39 #include "buffers.h"
  40 #if FEATURE_ARB_vertex_buffer_object
  41 #include "bufferobj.h"
  42 #endif
  43 #include "arrayobj.h"
  44 #include "clip.h"
  45 #include "colortab.h"
  46 #include "context.h"
  47 #include "convolve.h"
  48 #include "depth.h"
  49 #include "dlist.h"
  50 #include "enable.h"
  51 #include "enums.h"
  52 #include "eval.h"
  53 #include "extensions.h"
  54 #include "feedback.h"
  55 #include "framebuffer.h"
  56 #include "get.h"
  57 #include "glapi/glapi.h"
  58 #include "hash.h"
  59 #include "histogram.h"
  60 #include "image.h"
  61 #include "light.h"
  62 #include "lines.h"
  63 #include "dlist.h"
  64 #include "macros.h"
  65 #include "matrix.h"
  66 #include "pixel.h"
  67 #include "points.h"
  68 #include "polygon.h"
  69 #include "queryobj.h"
  70 #include "state.h"
  71 #include "texobj.h"
  72 #include "teximage.h"
  73 #include "texstate.h"
  74 #include "mtypes.h"
  75 #include "varray.h"
  76 #if FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
  77 #include "shader/arbprogram.h"
  78 #include "shader/program.h"
  79 #endif
  80 #if FEATURE_NV_vertex_program || FEATURE_NV_fragment_program
  81 #include "shader/nvprogram.h"
  82 #include "shader/program.h"
  83 #endif
  84 #if FEATURE_ATI_fragment_shader
  85 #include "shader/atifragshader.h"
  86 #endif
  87
  88 #include "math/m_matrix.h"
  89
  90 #include "glapi/dispatch.h"
  91
  92
  93 /**
  94  * Flush vertices.
  95  *
  96  * \param ctx GL context.
  97  *
  98  * Checks if dd_function_table::SaveNeedFlush is marked to flush
  99  * stored (save) vertices, and calls
 100  * dd_function_table::SaveFlushVertices if so.
 101  */
 102 #define SAVE_FLUSH_VERTICES(ctx)                \
 103 do {                                            \
 104    if (ctx->Driver.SaveNeedFlush)               \
 105       ctx->Driver.SaveFlushVertices(ctx);       \
 106 } while (0)
 107
 108
 109 /**
 110  * Macro to assert that the API call was made outside the
 111  * glBegin()/glEnd() pair, with return value.
 112  *
 113  * \param ctx GL context.
 114  * \param retval value to return value in case the assertion fails.
 115  */
 116 #define ASSERT_OUTSIDE_SAVE_BEGIN_END_WITH_RETVAL(ctx, retval)          \
 117 do {                                                                    \
 118    if (ctx->Driver.CurrentSavePrimitive <= GL_POLYGON ||                \
 119        ctx->Driver.CurrentSavePrimitive == PRIM_INSIDE_UNKNOWN_PRIM) {  \
 120       _mesa_compile_error( ctx, GL_INVALID_OPERATION, "begin/end" );    \
 121       return retval;                                                    \
 122    }                                                                    \
 123 } while (0)
 124
 125 /**
 126  * Macro to assert that the API call was made outside the
 127  * glBegin()/glEnd() pair.
 128  *
 129  * \param ctx GL context.
 130  */
 131 #define ASSERT_OUTSIDE_SAVE_BEGIN_END(ctx)                              \
 132 do {                                                                    \
 133    if (ctx->Driver.CurrentSavePrimitive <= GL_POLYGON ||                \
 134        ctx->Driver.CurrentSavePrimitive == PRIM_INSIDE_UNKNOWN_PRIM) {  \
 135       _mesa_compile_error( ctx, GL_INVALID_OPERATION, "begin/end" );    \
 136       return;                                                           \
 137    }                                                                    \
 138 } while (0)
 139
 140 /**
 141  * Macro to assert that the API call was made outside the
 142  * glBegin()/glEnd() pair and flush the vertices.
 143  *
 144  * \param ctx GL context.
 145  */
 146 #define ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx)                    \
 147 do {                                                                    \
 148    ASSERT_OUTSIDE_SAVE_BEGIN_END(ctx);                                  \
 149    SAVE_FLUSH_VERTICES(ctx);                                            \
 150 } while (0)
 151
 152 /**
 153  * Macro to assert that the API call was made outside the
 154  * glBegin()/glEnd() pair and flush the vertices, with return value.
 155  *
 156  * \param ctx GL context.
 157  * \param retval value to return value in case the assertion fails.
 158  */
 159 #define ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH_WITH_RETVAL(ctx, retval)\
 160 do {                                                                    \
 161    ASSERT_OUTSIDE_SAVE_BEGIN_END_WITH_RETVAL(ctx, retval);              \
 162    SAVE_FLUSH_VERTICES(ctx);                                            \
 163 } while (0)
 164
 165
 166
 167 /**
 168  * Display list opcodes.
 169  *
 170  * The fact that these identifiers are assigned consecutive
 171  * integer values starting at 0 is very important, see InstSize array usage)
 172  */
 173 typedef enum
 174 {
 175    OPCODE_INVALID = -1,         /* Force signed enum */
 176    OPCODE_ACCUM,
 177    OPCODE_ALPHA_FUNC,
 178    OPCODE_BIND_TEXTURE,
 179    OPCODE_BITMAP,
 180    OPCODE_BLEND_COLOR,
 181    OPCODE_BLEND_EQUATION,
 182    OPCODE_BLEND_EQUATION_SEPARATE,
 183    OPCODE_BLEND_FUNC_SEPARATE,
 184    OPCODE_CALL_LIST,
 185    OPCODE_CALL_LIST_OFFSET,
 186    OPCODE_CLEAR,
 187    OPCODE_CLEAR_ACCUM,
 188    OPCODE_CLEAR_COLOR,
 189    OPCODE_CLEAR_DEPTH,
 190    OPCODE_CLEAR_INDEX,
 191    OPCODE_CLEAR_STENCIL,
 192    OPCODE_CLIP_PLANE,
 193    OPCODE_COLOR_MASK,
 194    OPCODE_COLOR_MATERIAL,
 195    OPCODE_COLOR_TABLE,
 196    OPCODE_COLOR_TABLE_PARAMETER_FV,
 197    OPCODE_COLOR_TABLE_PARAMETER_IV,
 198    OPCODE_COLOR_SUB_TABLE,
 199    OPCODE_CONVOLUTION_FILTER_1D,
 200    OPCODE_CONVOLUTION_FILTER_2D,
 201    OPCODE_CONVOLUTION_PARAMETER_I,
 202    OPCODE_CONVOLUTION_PARAMETER_IV,
 203    OPCODE_CONVOLUTION_PARAMETER_F,
 204    OPCODE_CONVOLUTION_PARAMETER_FV,
 205    OPCODE_COPY_COLOR_SUB_TABLE,
 206    OPCODE_COPY_COLOR_TABLE,
 207    OPCODE_COPY_PIXELS,
 208    OPCODE_COPY_TEX_IMAGE1D,
 209    OPCODE_COPY_TEX_IMAGE2D,
 210    OPCODE_COPY_TEX_SUB_IMAGE1D,
 211    OPCODE_COPY_TEX_SUB_IMAGE2D,
 212    OPCODE_COPY_TEX_SUB_IMAGE3D,
 213    OPCODE_CULL_FACE,
 214    OPCODE_DEPTH_FUNC,
 215    OPCODE_DEPTH_MASK,
 216    OPCODE_DEPTH_RANGE,
 217    OPCODE_DISABLE,
 218    OPCODE_DRAW_BUFFER,
 219    OPCODE_DRAW_PIXELS,
 220    OPCODE_ENABLE,
 221    OPCODE_EVALMESH1,
 222    OPCODE_EVALMESH2,
 223    OPCODE_FOG,
 224    OPCODE_FRONT_FACE,
 225    OPCODE_FRUSTUM,
 226    OPCODE_HINT,
 227    OPCODE_HISTOGRAM,
 228    OPCODE_INDEX_MASK,
 229    OPCODE_INIT_NAMES,
 230    OPCODE_LIGHT,
 231    OPCODE_LIGHT_MODEL,
 232    OPCODE_LINE_STIPPLE,
 233    OPCODE_LINE_WIDTH,
 234    OPCODE_LIST_BASE,
 235    OPCODE_LOAD_IDENTITY,
 236    OPCODE_LOAD_MATRIX,
 237    OPCODE_LOAD_NAME,
 238    OPCODE_LOGIC_OP,
 239    OPCODE_MAP1,
 240    OPCODE_MAP2,
 241    OPCODE_MAPGRID1,
 242    OPCODE_MAPGRID2,
 243    OPCODE_MATRIX_MODE,
 244    OPCODE_MIN_MAX,
 245    OPCODE_MULT_MATRIX,
 246    OPCODE_ORTHO,
 247    OPCODE_PASSTHROUGH,
 248    OPCODE_PIXEL_MAP,
 249    OPCODE_PIXEL_TRANSFER,
 250    OPCODE_PIXEL_ZOOM,
 251    OPCODE_POINT_SIZE,
 252    OPCODE_POINT_PARAMETERS,
 253    OPCODE_POLYGON_MODE,
 254    OPCODE_POLYGON_STIPPLE,
 255    OPCODE_POLYGON_OFFSET,
 256    OPCODE_POP_ATTRIB,
 257    OPCODE_POP_MATRIX,
 258    OPCODE_POP_NAME,
 259    OPCODE_PRIORITIZE_TEXTURE,
 260    OPCODE_PUSH_ATTRIB,
 261    OPCODE_PUSH_MATRIX,
 262    OPCODE_PUSH_NAME,
 263    OPCODE_RASTER_POS,
 264    OPCODE_READ_BUFFER,
 265    OPCODE_RESET_HISTOGRAM,
 266    OPCODE_RESET_MIN_MAX,
 267    OPCODE_ROTATE,
 268    OPCODE_SCALE,
 269    OPCODE_SCISSOR,
 270    OPCODE_SELECT_TEXTURE_SGIS,
 271    OPCODE_SELECT_TEXTURE_COORD_SET,
 272    OPCODE_SHADE_MODEL,
 273    OPCODE_STENCIL_FUNC,
 274    OPCODE_STENCIL_MASK,
 275    OPCODE_STENCIL_OP,
 276    OPCODE_TEXENV,
 277    OPCODE_TEXGEN,
 278    OPCODE_TEXPARAMETER,
 279    OPCODE_TEX_IMAGE1D,
 280    OPCODE_TEX_IMAGE2D,
 281    OPCODE_TEX_IMAGE3D,
 282    OPCODE_TEX_SUB_IMAGE1D,
 283    OPCODE_TEX_SUB_IMAGE2D,
 284    OPCODE_TEX_SUB_IMAGE3D,
 285    OPCODE_TRANSLATE,
 286    OPCODE_VIEWPORT,
 287    OPCODE_WINDOW_POS,
 288    /* GL_ARB_multitexture */
 289    OPCODE_ACTIVE_TEXTURE,
 290    /* GL_ARB_texture_compression */
 291    OPCODE_COMPRESSED_TEX_IMAGE_1D,
 292    OPCODE_COMPRESSED_TEX_IMAGE_2D,
 293    OPCODE_COMPRESSED_TEX_IMAGE_3D,
 294    OPCODE_COMPRESSED_TEX_SUB_IMAGE_1D,
 295    OPCODE_COMPRESSED_TEX_SUB_IMAGE_2D,
 296    OPCODE_COMPRESSED_TEX_SUB_IMAGE_3D,
 297    /* GL_ARB_multisample */
 298    OPCODE_SAMPLE_COVERAGE,
 299    /* GL_ARB_window_pos */
 300    OPCODE_WINDOW_POS_ARB,
 301    /* GL_NV_vertex_program */
 302    OPCODE_BIND_PROGRAM_NV,
 303    OPCODE_EXECUTE_PROGRAM_NV,
 304    OPCODE_REQUEST_RESIDENT_PROGRAMS_NV,
 305    OPCODE_LOAD_PROGRAM_NV,
 306    OPCODE_TRACK_MATRIX_NV,
 307    /* GL_NV_fragment_program */
 308    OPCODE_PROGRAM_LOCAL_PARAMETER_ARB,
 309    OPCODE_PROGRAM_NAMED_PARAMETER_NV,
 310    /* GL_EXT_stencil_two_side */
 311    OPCODE_ACTIVE_STENCIL_FACE_EXT,
 312    /* GL_EXT_depth_bounds_test */
 313    OPCODE_DEPTH_BOUNDS_EXT,
 314    /* GL_ARB_vertex/fragment_program */
 315    OPCODE_PROGRAM_STRING_ARB,
 316    OPCODE_PROGRAM_ENV_PARAMETER_ARB,
 317    /* GL_ARB_occlusion_query */
 318    OPCODE_BEGIN_QUERY_ARB,
 319    OPCODE_END_QUERY_ARB,
 320    /* GL_ARB_draw_buffers */
 321    OPCODE_DRAW_BUFFERS_ARB,
 322    /* GL_ATI_fragment_shader */
 323    OPCODE_TEX_BUMP_PARAMETER_ATI,
 324    /* GL_ATI_fragment_shader */
 325    OPCODE_BIND_FRAGMENT_SHADER_ATI,
 326    OPCODE_SET_FRAGMENT_SHADER_CONSTANTS_ATI,
 327    /* OpenGL 2.0 */
 328    OPCODE_STENCIL_FUNC_SEPARATE,
 329    OPCODE_STENCIL_OP_SEPARATE,
 330    OPCODE_STENCIL_MASK_SEPARATE,
 331
 332    /* GL_EXT_framebuffer_blit */
 333    OPCODE_BLIT_FRAMEBUFFER,
 334
 335    /* Vertex attributes -- fallback for when optimized display
 336     * list build isn't active.
 337     */
 338    OPCODE_ATTR_1F_NV,
 339    OPCODE_ATTR_2F_NV,
 340    OPCODE_ATTR_3F_NV,
 341    OPCODE_ATTR_4F_NV,
 342    OPCODE_ATTR_1F_ARB,
 343    OPCODE_ATTR_2F_ARB,
 344    OPCODE_ATTR_3F_ARB,
 345    OPCODE_ATTR_4F_ARB,
 346    OPCODE_MATERIAL,
 347    OPCODE_BEGIN,
 348    OPCODE_END,
 349    OPCODE_RECTF,
 350    OPCODE_EVAL_C1,
 351    OPCODE_EVAL_C2,
 352    OPCODE_EVAL_P1,
 353    OPCODE_EVAL_P2,
 354
 355    /* GL_EXT_provoking_vertex */
 356    OPCODE_PROVOKING_VERTEX,
 357
 358    /* The following three are meta instructions */
 359    OPCODE_ERROR,                /* raise compiled-in error */
 360    OPCODE_CONTINUE,
 361    OPCODE_END_OF_LIST,
 362    OPCODE_EXT_0
 363 } OpCode;
 364
 365
 366
 367 /**
 368  * Display list node.
 369  *
 370  * Display list instructions are stored as sequences of "nodes".  Nodes
 371  * are allocated in blocks.  Each block has BLOCK_SIZE nodes.  Blocks
 372  * are linked together with a pointer.
 373  *
 374  * Each instruction in the display list is stored as a sequence of
 375  * contiguous nodes in memory.
 376  * Each node is the union of a variety of data types.
 377  */
 378 union gl_dlist_node
 379 {
 380    OpCode opcode;
 381    GLboolean b;
 382    GLbitfield bf;
 383    GLubyte ub;
 384    GLshort s;
 385    GLushort us;
 386    GLint i;
 387    GLuint ui;
 388    GLenum e;
 389    GLfloat f;
 390    GLvoid *data;
 391    void *next;                  /* If prev node's opcode==OPCODE_CONTINUE */
 392 };
 393
 394
 395 typedef union gl_dlist_node Node;
 396
 397
 398 /**
 399  * How many nodes to allocate at a time.
 400  *
 401  * \note Reduced now that we hold vertices etc. elsewhere.
 402  */
 403 #define BLOCK_SIZE 256
 404
 405
 406
 407 /**
 408  * Number of nodes of storage needed for each instruction.
 409  * Sizes for dynamically allocated opcodes are stored in the context struct.
 410  */
 411 static GLuint InstSize[OPCODE_END_OF_LIST + 1];
 412
 413 void mesa_print_display_list(GLuint list);
 414
 415
 416 /**********************************************************************/
 417 /*****                           Private                          *****/
 418 /**********************************************************************/
 419
 420
 421 /**
 422  * Make an empty display list.  This is used by glGenLists() to
 423  * reserve display list IDs.
 424  */
 425 static struct gl_display_list *
 426 make_list(GLuint name, GLuint count)
 427 {
 428    struct gl_display_list *dlist = CALLOC_STRUCT(gl_display_list);
 429    dlist->Name = name;
 430    dlist->Head = (Node *) _mesa_malloc(sizeof(Node) * count);
 431    dlist->Head[0].opcode = OPCODE_END_OF_LIST;
 432    return dlist;
 433 }
 434
 435
 436 /**
 437  * Lookup function to just encapsulate casting.
 438  */
 439 static INLINE struct gl_display_list *
 440 lookup_list(GLcontext *ctx, GLuint list)
 441 {
 442    return (struct gl_display_list *)
 443       _mesa_HashLookup(ctx->Shared->DisplayList, list);
 444 }
 445
 446
 447
 448 /**
 449  * Delete the named display list, but don't remove from hash table.
 450  * \param dlist - display list pointer
 451  */
 452 void
 453 _mesa_delete_list(GLcontext *ctx, struct gl_display_list *dlist)
 454 {
 455    Node *n, *block;
 456    GLboolean done;
 457
 458    n = block = dlist->Head;
 459
 460    done = block ? GL_FALSE : GL_TRUE;
 461    while (!done) {
 462
 463       /* check for extension opcodes first */
 464
 465       GLint i = (GLint) n[0].opcode - (GLint) OPCODE_EXT_0;
 466       if (i >= 0 && i < (GLint) ctx->ListExt.NumOpcodes) {
 467          ctx->ListExt.Opcode[i].Destroy(ctx, &n[1]);
 468          n += ctx->ListExt.Opcode[i].Size;
 469       }
 470       else {
 471          switch (n[0].opcode) {
 472             /* for some commands, we need to free malloc'd memory */
 473          case OPCODE_MAP1:
 474             _mesa_free(n[6].data);
 475             n += InstSize[n[0].opcode];
 476             break;
 477          case OPCODE_MAP2:
 478             _mesa_free(n[10].data);
 479             n += InstSize[n[0].opcode];
 480             break;
 481          case OPCODE_DRAW_PIXELS:
 482             _mesa_free(n[5].data);
 483             n += InstSize[n[0].opcode];
 484             break;
 485          case OPCODE_BITMAP:
 486             _mesa_free(n[7].data);
 487             n += InstSize[n[0].opcode];
 488             break;
 489          case OPCODE_COLOR_TABLE:
 490             _mesa_free(n[6].data);
 491             n += InstSize[n[0].opcode];
 492             break;
 493          case OPCODE_COLOR_SUB_TABLE:
 494             _mesa_free(n[6].data);
 495             n += InstSize[n[0].opcode];
 496             break;
 497          case OPCODE_CONVOLUTION_FILTER_1D:
 498             _mesa_free(n[6].data);
 499             n += InstSize[n[0].opcode];
 500             break;
 501          case OPCODE_CONVOLUTION_FILTER_2D:
 502             _mesa_free(n[7].data);
 503             n += InstSize[n[0].opcode];
 504             break;
 505          case OPCODE_POLYGON_STIPPLE:
 506             _mesa_free(n[1].data);
 507             n += InstSize[n[0].opcode];
 508             break;
 509          case OPCODE_TEX_IMAGE1D:
 510             _mesa_free(n[8].data);
 511             n += InstSize[n[0].opcode];
 512             break;
 513          case OPCODE_TEX_IMAGE2D:
 514             _mesa_free(n[9].data);
 515             n += InstSize[n[0].opcode];
 516             break;
 517          case OPCODE_TEX_IMAGE3D:
 518             _mesa_free(n[10].data);
 519             n += InstSize[n[0].opcode];
 520             break;
 521          case OPCODE_TEX_SUB_IMAGE1D:
 522             _mesa_free(n[7].data);
 523             n += InstSize[n[0].opcode];
 524             break;
 525          case OPCODE_TEX_SUB_IMAGE2D:
 526             _mesa_free(n[9].data);
 527             n += InstSize[n[0].opcode];
 528             break;
 529          case OPCODE_TEX_SUB_IMAGE3D:
 530             _mesa_free(n[11].data);
 531             n += InstSize[n[0].opcode];
 532             break;
 533          case OPCODE_COMPRESSED_TEX_IMAGE_1D:
 534             _mesa_free(n[7].data);
 535             n += InstSize[n[0].opcode];
 536             break;
 537          case OPCODE_COMPRESSED_TEX_IMAGE_2D:
 538             _mesa_free(n[8].data);
 539             n += InstSize[n[0].opcode];
 540             break;
 541          case OPCODE_COMPRESSED_TEX_IMAGE_3D:
 542             _mesa_free(n[9].data);
 543             n += InstSize[n[0].opcode];
 544             break;
 545          case OPCODE_COMPRESSED_TEX_SUB_IMAGE_1D:
 546             _mesa_free(n[7].data);
 547             n += InstSize[n[0].opcode];
 548             break;
 549          case OPCODE_COMPRESSED_TEX_SUB_IMAGE_2D:
 550             _mesa_free(n[9].data);
 551             n += InstSize[n[0].opcode];
 552             break;
 553          case OPCODE_COMPRESSED_TEX_SUB_IMAGE_3D:
 554             _mesa_free(n[11].data);
 555             n += InstSize[n[0].opcode];
 556             break;
 557 #if FEATURE_NV_vertex_program
 558          case OPCODE_LOAD_PROGRAM_NV:
 559             _mesa_free(n[4].data);      /* program string */
 560             n += InstSize[n[0].opcode];
 561             break;
 562          case OPCODE_REQUEST_RESIDENT_PROGRAMS_NV:
 563             _mesa_free(n[2].data);      /* array of program ids */
 564             n += InstSize[n[0].opcode];
 565             break;
 566 #endif
 567 #if FEATURE_NV_fragment_program
 568          case OPCODE_PROGRAM_NAMED_PARAMETER_NV:
 569             _mesa_free(n[3].data);      /* parameter name */
 570             n += InstSize[n[0].opcode];
 571             break;
 572 #endif
 573 #if FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
 574          case OPCODE_PROGRAM_STRING_ARB:
 575             _mesa_free(n[4].data);      /* program string */
 576             n += InstSize[n[0].opcode];
 577             break;
 578 #endif
 579          case OPCODE_CONTINUE:
 580             n = (Node *) n[1].next;
 581             _mesa_free(block);
 582             block = n;
 583             break;
 584          case OPCODE_END_OF_LIST:
 585             _mesa_free(block);
 586             done = GL_TRUE;
 587             break;
 588          default:
 589             /* Most frequent case */
 590             n += InstSize[n[0].opcode];
 591             break;
 592          }
 593       }
 594    }
 595
 596    _mesa_free(dlist);
 597 }
 598
 599
 600 /**
 601  * Destroy a display list and remove from hash table.
 602  * \param list - display list number
 603  */
 604 static void
 605 destroy_list(GLcontext *ctx, GLuint list)
 606 {
 607    struct gl_display_list *dlist;
 608
 609    if (list == 0)
 610       return;
 611
 612    dlist = lookup_list(ctx, list);
 613    if (!dlist)
 614       return;
 615
 616    _mesa_delete_list(ctx, dlist);
 617    _mesa_HashRemove(ctx->Shared->DisplayList, list);
 618 }
 619
 620
 621 /*
 622  * Translate the nth element of list from <type> to GLint.
 623  */
 624 static GLint
 625 translate_id(GLsizei n, GLenum type, const GLvoid * list)
 626 {
 627    GLbyte *bptr;
 628    GLubyte *ubptr;
 629    GLshort *sptr;
 630    GLushort *usptr;
 631    GLint *iptr;
 632    GLuint *uiptr;
 633    GLfloat *fptr;
 634
 635    switch (type) {
 636    case GL_BYTE:
 637       bptr = (GLbyte *) list;
 638       return (GLint) bptr[n];
 639    case GL_UNSIGNED_BYTE:
 640       ubptr = (GLubyte *) list;
 641       return (GLint) ubptr[n];
 642    case GL_SHORT:
 643       sptr = (GLshort *) list;
 644       return (GLint) sptr[n];
 645    case GL_UNSIGNED_SHORT:
 646       usptr = (GLushort *) list;
 647       return (GLint) usptr[n];
 648    case GL_INT:
 649       iptr = (GLint *) list;
 650       return iptr[n];
 651    case GL_UNSIGNED_INT:
 652       uiptr = (GLuint *) list;
 653       return (GLint) uiptr[n];
 654    case GL_FLOAT:
 655       fptr = (GLfloat *) list;
 656       return (GLint) FLOORF(fptr[n]);
 657    case GL_2_BYTES:
 658       ubptr = ((GLubyte *) list) + 2 * n;
 659       return (GLint) ubptr[0] * 256
 660            + (GLint) ubptr[1];
 661    case GL_3_BYTES:
 662       ubptr = ((GLubyte *) list) + 3 * n;
 663       return (GLint) ubptr[0] * 65536
 664            + (GLint) ubptr[1] * 256
 665            + (GLint) ubptr[2];
 666    case GL_4_BYTES:
 667       ubptr = ((GLubyte *) list) + 4 * n;
 668       return (GLint) ubptr[0] * 16777216
 669            + (GLint) ubptr[1] * 65536
 670            + (GLint) ubptr[2] * 256
 671            + (GLint) ubptr[3];
 672    default:
 673       return 0;
 674    }
 675 }
 676
 677
 678
 679
 680 /**********************************************************************/
 681 /*****                        Public                              *****/
 682 /**********************************************************************/
 683
 684 /**
 685  * Wrapper for _mesa_unpack_image() that handles pixel buffer objects.
 686  * \todo This won't suffice when the PBO is really in VRAM/GPU memory.
 687  */
 688 static GLvoid *
 689 unpack_image(GLuint dimensions, GLsizei width, GLsizei height, GLsizei depth,
 690              GLenum format, GLenum type, const GLvoid * pixels,
 691              const struct gl_pixelstore_attrib *unpack)
 692 {
 693    if (unpack->BufferObj->Name == 0) {
 694       /* no PBO */
 695       return _mesa_unpack_image(dimensions, width, height, depth, format,
 696                                 type, pixels, unpack);
 697    }
 698    else
 699       if (_mesa_validate_pbo_access
 700           (dimensions, unpack, width, height, depth, format, type, pixels)) {
 701       const GLubyte *src = ADD_POINTERS(unpack->BufferObj->Data, pixels);
 702       return _mesa_unpack_image(dimensions, width, height, depth, format,
 703                                 type, src, unpack);
 704    }
 705    /* bad access! */
 706    return NULL;
 707 }
 708
 709
 710 /**
 711  * Allocate space for a display list instruction.
 712  * \param opcode  the instruction opcode (OPCODE_* value)
 713  * \param bytes   instruction size in bytes, not counting opcode.
 714  * \return pointer to the usable data area (not including the internal
 715  *         opcode).
 716  */
 717 void *
 718 _mesa_alloc_instruction(GLcontext *ctx, GLuint opcode, GLuint bytes)
 719 {
 720    const GLuint numNodes = 1 + (bytes + sizeof(Node) - 1) / sizeof(Node);
 721    Node *n;
 722
 723    if (opcode < (GLuint) OPCODE_EXT_0) {
 724       if (InstSize[opcode] == 0) {
 725          /* save instruction size now */
 726          InstSize[opcode] = numNodes;
 727       }
 728       else {
 729          /* make sure instruction size agrees */
 730          ASSERT(numNodes == InstSize[opcode]);
 731       }
 732    }
 733
 734    if (ctx->ListState.CurrentPos + numNodes + 2 > BLOCK_SIZE) {
 735       /* This block is full.  Allocate a new block and chain to it */
 736       Node *newblock;
 737       n = ctx->ListState.CurrentBlock + ctx->ListState.CurrentPos;
 738       n[0].opcode = OPCODE_CONTINUE;
 739       newblock = (Node *) _mesa_malloc(sizeof(Node) * BLOCK_SIZE);
 740       if (!newblock) {
 741          _mesa_error(ctx, GL_OUT_OF_MEMORY, "Building display list");
 742          return NULL;
 743       }
 744       n[1].next = (Node *) newblock;
 745       ctx->ListState.CurrentBlock = newblock;
 746       ctx->ListState.CurrentPos = 0;
 747    }
 748
 749    n = ctx->ListState.CurrentBlock + ctx->ListState.CurrentPos;
 750    ctx->ListState.CurrentPos += numNodes;
 751
 752    n[0].opcode = (OpCode) opcode;
 753
 754    return (void *) (n + 1);     /* return ptr to node following opcode */
 755 }
 756
 757
 758 /**
 759  * This function allows modules and drivers to get their own opcodes
 760  * for extending display list functionality.
 761  * \param ctx  the rendering context
 762  * \param size  number of bytes for storing the new display list command
 763  * \param execute  function to execute the new display list command
 764  * \param destroy  function to destroy the new display list command
 765  * \param print  function to print the new display list command
 766  * \return  the new opcode number or -1 if error
 767  */
 768 GLint
 769 _mesa_alloc_opcode(GLcontext *ctx,
 770                    GLuint size,
 771                    void (*execute) (GLcontext *, void *),
 772                    void (*destroy) (GLcontext *, void *),
 773                    void (*print) (GLcontext *, void *))
 774 {
 775    if (ctx->ListExt.NumOpcodes < MAX_DLIST_EXT_OPCODES) {
 776       const GLuint i = ctx->ListExt.NumOpcodes++;
 777       ctx->ListExt.Opcode[i].Size =
 778          1 + (size + sizeof(Node) - 1) / sizeof(Node);
 779       ctx->ListExt.Opcode[i].Execute = execute;
 780       ctx->ListExt.Opcode[i].Destroy = destroy;
 781       ctx->ListExt.Opcode[i].Print = print;
 782       return i + OPCODE_EXT_0;
 783    }
 784    return -1;
 785 }
 786
 787
 788
 789 /**
 790  * Allocate display list instruction.  Returns Node ptr to where the opcode
 791  * is stored.
 792  *   - nParams is the number of function parameters
 793  *   - return value a pointer to sizeof(Node) before the actual
 794  *     usable data area.
 795  */
 796 #define ALLOC_INSTRUCTION(CTX, OPCODE, NPARAMS) \
 797     ((Node *)_mesa_alloc_instruction(CTX, OPCODE, (NPARAMS)*sizeof(Node)) - 1)
 798
 799
 800
 801 /*
 802  * Display List compilation functions
 803  */
 804 static void GLAPIENTRY
 805 save_Accum(GLenum op, GLfloat value)
 806 {
 807    GET_CURRENT_CONTEXT(ctx);
 808    Node *n;
 809    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
 810    n = ALLOC_INSTRUCTION(ctx, OPCODE_ACCUM, 2);
 811    if (n) {
 812       n[1].e = op;
 813       n[2].f = value;
 814    }
 815    if (ctx->ExecuteFlag) {
 816       CALL_Accum(ctx->Exec, (op, value));
 817    }
 818 }
 819
 820
 821 static void GLAPIENTRY
 822 save_AlphaFunc(GLenum func, GLclampf ref)
 823 {
 824    GET_CURRENT_CONTEXT(ctx);
 825    Node *n;
 826    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
 827    n = ALLOC_INSTRUCTION(ctx, OPCODE_ALPHA_FUNC, 2);
 828    if (n) {
 829       n[1].e = func;
 830       n[2].f = (GLfloat) ref;
 831    }
 832    if (ctx->ExecuteFlag) {
 833       CALL_AlphaFunc(ctx->Exec, (func, ref));
 834    }
 835 }
 836
 837
 838 static void GLAPIENTRY
 839 save_BindTexture(GLenum target, GLuint texture)
 840 {
 841    GET_CURRENT_CONTEXT(ctx);
 842    Node *n;
 843    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
 844    n = ALLOC_INSTRUCTION(ctx, OPCODE_BIND_TEXTURE, 2);
 845    if (n) {
 846       n[1].e = target;
 847       n[2].ui = texture;
 848    }
 849    if (ctx->ExecuteFlag) {
 850       CALL_BindTexture(ctx->Exec, (target, texture));
 851    }
 852 }
 853
 854
 855 static void GLAPIENTRY
 856 save_Bitmap(GLsizei width, GLsizei height,
 857             GLfloat xorig, GLfloat yorig,
 858             GLfloat xmove, GLfloat ymove, const GLubyte * pixels)
 859 {
 860    GET_CURRENT_CONTEXT(ctx);
 861    GLvoid *image = _mesa_unpack_bitmap(width, height, pixels, &ctx->Unpack);
 862    Node *n;
 863    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
 864    n = ALLOC_INSTRUCTION(ctx, OPCODE_BITMAP, 7);
 865    if (n) {
 866       n[1].i = (GLint) width;
 867       n[2].i = (GLint) height;
 868       n[3].f = xorig;
 869       n[4].f = yorig;
 870       n[5].f = xmove;
 871       n[6].f = ymove;
 872       n[7].data = image;
 873    }
 874    else if (image) {
 875       _mesa_free(image);
 876    }
 877    if (ctx->ExecuteFlag) {
 878       CALL_Bitmap(ctx->Exec, (width, height,
 879                               xorig, yorig, xmove, ymove, pixels));
 880    }
 881 }
 882
 883
 884 static void GLAPIENTRY
 885 save_BlendEquation(GLenum mode)
 886 {
 887    GET_CURRENT_CONTEXT(ctx);
 888    Node *n;
 889    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
 890    n = ALLOC_INSTRUCTION(ctx, OPCODE_BLEND_EQUATION, 1);
 891    if (n) {
 892       n[1].e = mode;
 893    }
 894    if (ctx->ExecuteFlag) {
 895       CALL_BlendEquation(ctx->Exec, (mode));
 896    }
 897 }
 898
 899
 900 static void GLAPIENTRY
 901 save_BlendEquationSeparateEXT(GLenum modeRGB, GLenum modeA)
 902 {
 903    GET_CURRENT_CONTEXT(ctx);
 904    Node *n;
 905    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
 906    n = ALLOC_INSTRUCTION(ctx, OPCODE_BLEND_EQUATION_SEPARATE, 2);
 907    if (n) {
 908       n[1].e = modeRGB;
 909       n[2].e = modeA;
 910    }
 911    if (ctx->ExecuteFlag) {
 912       CALL_BlendEquationSeparateEXT(ctx->Exec, (modeRGB, modeA));
 913    }
 914 }
 915
 916
 917 static void GLAPIENTRY
 918 save_BlendFuncSeparateEXT(GLenum sfactorRGB, GLenum dfactorRGB,
 919                           GLenum sfactorA, GLenum dfactorA)
 920 {
 921    GET_CURRENT_CONTEXT(ctx);
 922    Node *n;
 923    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
 924    n = ALLOC_INSTRUCTION(ctx, OPCODE_BLEND_FUNC_SEPARATE, 4);
 925    if (n) {
 926       n[1].e = sfactorRGB;
 927       n[2].e = dfactorRGB;
 928       n[3].e = sfactorA;
 929       n[4].e = dfactorA;
 930    }
 931    if (ctx->ExecuteFlag) {
 932       CALL_BlendFuncSeparateEXT(ctx->Exec,
 933                                 (sfactorRGB, dfactorRGB, sfactorA, dfactorA));
 934    }
 935 }
 936
 937
 938 static void GLAPIENTRY
 939 save_BlendFunc(GLenum srcfactor, GLenum dstfactor)
 940 {
 941    save_BlendFuncSeparateEXT(srcfactor, dstfactor, srcfactor, dstfactor);
 942 }
 943
 944
 945 static void GLAPIENTRY
 946 save_BlendColor(GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha)
 947 {
 948    GET_CURRENT_CONTEXT(ctx);
 949    Node *n;
 950    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
 951    n = ALLOC_INSTRUCTION(ctx, OPCODE_BLEND_COLOR, 4);
 952    if (n) {
 953       n[1].f = red;
 954       n[2].f = green;
 955       n[3].f = blue;
 956       n[4].f = alpha;
 957    }
 958    if (ctx->ExecuteFlag) {
 959       CALL_BlendColor(ctx->Exec, (red, green, blue, alpha));
 960    }
 961 }
 962
 963
 964 void GLAPIENTRY
 965 _mesa_save_CallList(GLuint list)
 966 {
 967    GET_CURRENT_CONTEXT(ctx);
 968    Node *n;
 969    SAVE_FLUSH_VERTICES(ctx);
 970
 971    n = ALLOC_INSTRUCTION(ctx, OPCODE_CALL_LIST, 1);
 972    if (n) {
 973       n[1].ui = list;
 974    }
 975
 976    /* After this, we don't know what begin/end state we're in:
 977     */
 978    ctx->Driver.CurrentSavePrimitive = PRIM_UNKNOWN;
 979
 980    if (ctx->ExecuteFlag) {
 981       _mesa_CallList(list);
 982    }
 983 }
 984
 985
 986 void GLAPIENTRY
 987 _mesa_save_CallLists(GLsizei n, GLenum type, const GLvoid * lists)
 988 {
 989    GET_CURRENT_CONTEXT(ctx);
 990    GLint i;
 991    GLboolean typeErrorFlag;
 992
 993    SAVE_FLUSH_VERTICES(ctx);
 994
 995    switch (type) {
 996    case GL_BYTE:
 997    case GL_UNSIGNED_BYTE:
 998    case GL_SHORT:
 999    case GL_UNSIGNED_SHORT:
1000    case GL_INT:
1001    case GL_UNSIGNED_INT:
1002    case GL_FLOAT:
1003    case GL_2_BYTES:
1004    case GL_3_BYTES:
1005    case GL_4_BYTES:
1006       typeErrorFlag = GL_FALSE;
1007       break;
1008    default:
1009       typeErrorFlag = GL_TRUE;
1010    }
1011
1012    for (i = 0; i < n; i++) {
1013       GLint list = translate_id(i, type, lists);
1014       Node *n = ALLOC_INSTRUCTION(ctx, OPCODE_CALL_LIST_OFFSET, 2);
1015       if (n) {
1016          n[1].i = list;
1017          n[2].b = typeErrorFlag;
1018       }
1019    }
1020
1021    /* After this, we don't know what begin/end state we're in:
1022     */
1023    ctx->Driver.CurrentSavePrimitive = PRIM_UNKNOWN;
1024
1025    if (ctx->ExecuteFlag) {
1026       CALL_CallLists(ctx->Exec, (n, type, lists));
1027    }
1028 }
1029
1030
1031 static void GLAPIENTRY
1032 save_Clear(GLbitfield mask)
1033 {
1034    GET_CURRENT_CONTEXT(ctx);
1035    Node *n;
1036    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1037    n = ALLOC_INSTRUCTION(ctx, OPCODE_CLEAR, 1);
1038    if (n) {
1039       n[1].bf = mask;
1040    }
1041    if (ctx->ExecuteFlag) {
1042       CALL_Clear(ctx->Exec, (mask));
1043    }
1044 }
1045
1046
1047 static void GLAPIENTRY
1048 save_ClearAccum(GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha)
1049 {
1050    GET_CURRENT_CONTEXT(ctx);
1051    Node *n;
1052    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1053    n = ALLOC_INSTRUCTION(ctx, OPCODE_CLEAR_ACCUM, 4);
1054    if (n) {
1055       n[1].f = red;
1056       n[2].f = green;
1057       n[3].f = blue;
1058       n[4].f = alpha;
1059    }
1060    if (ctx->ExecuteFlag) {
1061       CALL_ClearAccum(ctx->Exec, (red, green, blue, alpha));
1062    }
1063 }
1064
1065
1066 static void GLAPIENTRY
1067 save_ClearColor(GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha)
1068 {
1069    GET_CURRENT_CONTEXT(ctx);
1070    Node *n;
1071    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1072    n = ALLOC_INSTRUCTION(ctx, OPCODE_CLEAR_COLOR, 4);
1073    if (n) {
1074       n[1].f = red;
1075       n[2].f = green;
1076       n[3].f = blue;
1077       n[4].f = alpha;
1078    }
1079    if (ctx->ExecuteFlag) {
1080       CALL_ClearColor(ctx->Exec, (red, green, blue, alpha));
1081    }
1082 }
1083
1084
1085 static void GLAPIENTRY
1086 save_ClearDepth(GLclampd depth)
1087 {
1088    GET_CURRENT_CONTEXT(ctx);
1089    Node *n;
1090    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1091    n = ALLOC_INSTRUCTION(ctx, OPCODE_CLEAR_DEPTH, 1);
1092    if (n) {
1093       n[1].f = (GLfloat) depth;
1094    }
1095    if (ctx->ExecuteFlag) {
1096       CALL_ClearDepth(ctx->Exec, (depth));
1097    }
1098 }
1099
1100
1101 static void GLAPIENTRY
1102 save_ClearIndex(GLfloat c)
1103 {
1104    GET_CURRENT_CONTEXT(ctx);
1105    Node *n;
1106    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1107    n = ALLOC_INSTRUCTION(ctx, OPCODE_CLEAR_INDEX, 1);
1108    if (n) {
1109       n[1].f = c;
1110    }
1111    if (ctx->ExecuteFlag) {
1112       CALL_ClearIndex(ctx->Exec, (c));
1113    }
1114 }
1115
1116
1117 static void GLAPIENTRY
1118 save_ClearStencil(GLint s)
1119 {
1120    GET_CURRENT_CONTEXT(ctx);
1121    Node *n;
1122    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1123    n = ALLOC_INSTRUCTION(ctx, OPCODE_CLEAR_STENCIL, 1);
1124    if (n) {
1125       n[1].i = s;
1126    }
1127    if (ctx->ExecuteFlag) {
1128       CALL_ClearStencil(ctx->Exec, (s));
1129    }
1130 }
1131
1132
1133 static void GLAPIENTRY
1134 save_ClipPlane(GLenum plane, const GLdouble * equ)
1135 {
1136    GET_CURRENT_CONTEXT(ctx);
1137    Node *n;
1138    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1139    n = ALLOC_INSTRUCTION(ctx, OPCODE_CLIP_PLANE, 5);
1140    if (n) {
1141       n[1].e = plane;
1142       n[2].f = (GLfloat) equ[0];
1143       n[3].f = (GLfloat) equ[1];
1144       n[4].f = (GLfloat) equ[2];
1145       n[5].f = (GLfloat) equ[3];
1146    }
1147    if (ctx->ExecuteFlag) {
1148       CALL_ClipPlane(ctx->Exec, (plane, equ));
1149    }
1150 }
1151
1152
1153
1154 static void GLAPIENTRY
1155 save_ColorMask(GLboolean red, GLboolean green,
1156                GLboolean blue, GLboolean alpha)
1157 {
1158    GET_CURRENT_CONTEXT(ctx);
1159    Node *n;
1160    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1161    n = ALLOC_INSTRUCTION(ctx, OPCODE_COLOR_MASK, 4);
1162    if (n) {
1163       n[1].b = red;
1164       n[2].b = green;
1165       n[3].b = blue;
1166       n[4].b = alpha;
1167    }
1168    if (ctx->ExecuteFlag) {
1169       CALL_ColorMask(ctx->Exec, (red, green, blue, alpha));
1170    }
1171 }
1172
1173
1174 static void GLAPIENTRY
1175 save_ColorMaterial(GLenum face, GLenum mode)
1176 {
1177    GET_CURRENT_CONTEXT(ctx);
1178    Node *n;
1179    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1180
1181    n = ALLOC_INSTRUCTION(ctx, OPCODE_COLOR_MATERIAL, 2);
1182    if (n) {
1183       n[1].e = face;
1184       n[2].e = mode;
1185    }
1186    if (ctx->ExecuteFlag) {
1187       CALL_ColorMaterial(ctx->Exec, (face, mode));
1188    }
1189 }
1190
1191
1192 static void GLAPIENTRY
1193 save_ColorTable(GLenum target, GLenum internalFormat,
1194                 GLsizei width, GLenum format, GLenum type,
1195                 const GLvoid * table)
1196 {
1197    GET_CURRENT_CONTEXT(ctx);
1198    if (_mesa_is_proxy_texture(target)) {
1199       /* execute immediately */
1200       CALL_ColorTable(ctx->Exec, (target, internalFormat, width,
1201                                   format, type, table));
1202    }
1203    else {
1204       GLvoid *image = unpack_image(1, width, 1, 1, format, type, table,
1205                                    &ctx->Unpack);
1206       Node *n;
1207       ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1208       n = ALLOC_INSTRUCTION(ctx, OPCODE_COLOR_TABLE, 6);
1209       if (n) {
1210          n[1].e = target;
1211          n[2].e = internalFormat;
1212          n[3].i = width;
1213          n[4].e = format;
1214          n[5].e = type;
1215          n[6].data = image;
1216       }
1217       else if (image) {
1218          _mesa_free(image);
1219       }
1220       if (ctx->ExecuteFlag) {
1221          CALL_ColorTable(ctx->Exec, (target, internalFormat, width,
1222                                      format, type, table));
1223       }
1224    }
1225 }
1226
1227
1228
1229 static void GLAPIENTRY
1230 save_ColorTableParameterfv(GLenum target, GLenum pname,
1231                            const GLfloat *params)
1232 {
1233    GET_CURRENT_CONTEXT(ctx);
1234    Node *n;
1235
1236    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1237
1238    n = ALLOC_INSTRUCTION(ctx, OPCODE_COLOR_TABLE_PARAMETER_FV, 6);
1239    if (n) {
1240       n[1].e = target;
1241       n[2].e = pname;
1242       n[3].f = params[0];
1243       if (pname == GL_COLOR_TABLE_SGI ||
1244           pname == GL_POST_CONVOLUTION_COLOR_TABLE_SGI ||
1245           pname == GL_POST_COLOR_MATRIX_COLOR_TABLE_SGI ||
1246           pname == GL_TEXTURE_COLOR_TABLE_SGI) {
1247          n[4].f = params[1];
1248          n[5].f = params[2];
1249          n[6].f = params[3];
1250       }
1251    }
1252
1253    if (ctx->ExecuteFlag) {
1254       CALL_ColorTableParameterfv(ctx->Exec, (target, pname, params));
1255    }
1256 }
1257
1258
1259 static void GLAPIENTRY
1260 save_ColorTableParameteriv(GLenum target, GLenum pname, const GLint *params)
1261 {
1262    GET_CURRENT_CONTEXT(ctx);
1263    Node *n;
1264
1265    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1266
1267    n = ALLOC_INSTRUCTION(ctx, OPCODE_COLOR_TABLE_PARAMETER_IV, 6);
1268    if (n) {
1269       n[1].e = target;
1270       n[2].e = pname;
1271       n[3].i = params[0];
1272       if (pname == GL_COLOR_TABLE_SGI ||
1273           pname == GL_POST_CONVOLUTION_COLOR_TABLE_SGI ||
1274           pname == GL_POST_COLOR_MATRIX_COLOR_TABLE_SGI ||
1275           pname == GL_TEXTURE_COLOR_TABLE_SGI) {
1276          n[4].i = params[1];
1277          n[5].i = params[2];
1278          n[6].i = params[3];
1279       }
1280    }
1281
1282    if (ctx->ExecuteFlag) {
1283       CALL_ColorTableParameteriv(ctx->Exec, (target, pname, params));
1284    }
1285 }
1286
1287
1288
1289 static void GLAPIENTRY
1290 save_ColorSubTable(GLenum target, GLsizei start, GLsizei count,
1291                    GLenum format, GLenum type, const GLvoid * table)
1292 {
1293    GET_CURRENT_CONTEXT(ctx);
1294    GLvoid *image = unpack_image(1, count, 1, 1, format, type, table,
1295                                 &ctx->Unpack);
1296    Node *n;
1297    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1298    n = ALLOC_INSTRUCTION(ctx, OPCODE_COLOR_SUB_TABLE, 6);
1299    if (n) {
1300       n[1].e = target;
1301       n[2].i = start;
1302       n[3].i = count;
1303       n[4].e = format;
1304       n[5].e = type;
1305       n[6].data = image;
1306    }
1307    else if (image) {
1308       _mesa_free(image);
1309    }
1310    if (ctx->ExecuteFlag) {
1311       CALL_ColorSubTable(ctx->Exec,
1312                          (target, start, count, format, type, table));
1313    }
1314 }
1315
1316
1317 static void GLAPIENTRY
1318 save_CopyColorSubTable(GLenum target, GLsizei start,
1319                        GLint x, GLint y, GLsizei width)
1320 {
1321    GET_CURRENT_CONTEXT(ctx);
1322    Node *n;
1323
1324    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1325    n = ALLOC_INSTRUCTION(ctx, OPCODE_COPY_COLOR_SUB_TABLE, 5);
1326    if (n) {
1327       n[1].e = target;
1328       n[2].i = start;
1329       n[3].i = x;
1330       n[4].i = y;
1331       n[5].i = width;
1332    }
1333    if (ctx->ExecuteFlag) {
1334       CALL_CopyColorSubTable(ctx->Exec, (target, start, x, y, width));
1335    }
1336 }
1337
1338
1339 static void GLAPIENTRY
1340 save_CopyColorTable(GLenum target, GLenum internalformat,
1341                     GLint x, GLint y, GLsizei width)
1342 {
1343    GET_CURRENT_CONTEXT(ctx);
1344    Node *n;
1345
1346    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1347    n = ALLOC_INSTRUCTION(ctx, OPCODE_COPY_COLOR_TABLE, 5);
1348    if (n) {
1349       n[1].e = target;
1350       n[2].e = internalformat;
1351       n[3].i = x;
1352       n[4].i = y;
1353       n[5].i = width;
1354    }
1355    if (ctx->ExecuteFlag) {
1356       CALL_CopyColorTable(ctx->Exec, (target, internalformat, x, y, width));
1357    }
1358 }
1359
1360
1361 static void GLAPIENTRY
1362 save_ConvolutionFilter1D(GLenum target, GLenum internalFormat, GLsizei width,
1363                          GLenum format, GLenum type, const GLvoid * filter)
1364 {
1365    GET_CURRENT_CONTEXT(ctx);
1366    GLvoid *image = unpack_image(1, width, 1, 1, format, type, filter,
1367                                 &ctx->Unpack);
1368    Node *n;
1369    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1370    n = ALLOC_INSTRUCTION(ctx, OPCODE_CONVOLUTION_FILTER_1D, 6);
1371    if (n) {
1372       n[1].e = target;
1373       n[2].e = internalFormat;
1374       n[3].i = width;
1375       n[4].e = format;
1376       n[5].e = type;
1377       n[6].data = image;
1378    }
1379    else if (image) {
1380       _mesa_free(image);
1381    }
1382    if (ctx->ExecuteFlag) {
1383       CALL_ConvolutionFilter1D(ctx->Exec, (target, internalFormat, width,
1384                                            format, type, filter));
1385    }
1386 }
1387
1388
1389 static void GLAPIENTRY
1390 save_ConvolutionFilter2D(GLenum target, GLenum internalFormat,
1391                          GLsizei width, GLsizei height, GLenum format,
1392                          GLenum type, const GLvoid * filter)
1393 {
1394    GET_CURRENT_CONTEXT(ctx);
1395    GLvoid *image = unpack_image(2, width, height, 1, format, type, filter,
1396                                 &ctx->Unpack);
1397    Node *n;
1398    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1399    n = ALLOC_INSTRUCTION(ctx, OPCODE_CONVOLUTION_FILTER_2D, 7);
1400    if (n) {
1401       n[1].e = target;
1402       n[2].e = internalFormat;
1403       n[3].i = width;
1404       n[4].i = height;
1405       n[5].e = format;
1406       n[6].e = type;
1407       n[7].data = image;
1408    }
1409    else if (image) {
1410       _mesa_free(image);
1411    }
1412    if (ctx->ExecuteFlag) {
1413       CALL_ConvolutionFilter2D(ctx->Exec,
1414                                (target, internalFormat, width, height, format,
1415                                 type, filter));
1416    }
1417 }
1418
1419
1420 static void GLAPIENTRY
1421 save_ConvolutionParameteri(GLenum target, GLenum pname, GLint param)
1422 {
1423    GET_CURRENT_CONTEXT(ctx);
1424    Node *n;
1425    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1426    n = ALLOC_INSTRUCTION(ctx, OPCODE_CONVOLUTION_PARAMETER_I, 3);
1427    if (n) {
1428       n[1].e = target;
1429       n[2].e = pname;
1430       n[3].i = param;
1431    }
1432    if (ctx->ExecuteFlag) {
1433       CALL_ConvolutionParameteri(ctx->Exec, (target, pname, param));
1434    }
1435 }
1436
1437
1438 static void GLAPIENTRY
1439 save_ConvolutionParameteriv(GLenum target, GLenum pname, const GLint *params)
1440 {
1441    GET_CURRENT_CONTEXT(ctx);
1442    Node *n;
1443    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1444    n = ALLOC_INSTRUCTION(ctx, OPCODE_CONVOLUTION_PARAMETER_IV, 6);
1445    if (n) {
1446       n[1].e = target;
1447       n[2].e = pname;
1448       n[3].i = params[0];
1449       if (pname == GL_CONVOLUTION_BORDER_COLOR ||
1450           pname == GL_CONVOLUTION_FILTER_SCALE ||
1451           pname == GL_CONVOLUTION_FILTER_BIAS) {
1452          n[4].i = params[1];
1453          n[5].i = params[2];
1454          n[6].i = params[3];
1455       }
1456       else {
1457          n[4].i = n[5].i = n[6].i = 0;
1458       }
1459    }
1460    if (ctx->ExecuteFlag) {
1461       CALL_ConvolutionParameteriv(ctx->Exec, (target, pname, params));
1462    }
1463 }
1464
1465
1466 static void GLAPIENTRY
1467 save_ConvolutionParameterf(GLenum target, GLenum pname, GLfloat param)
1468 {
1469    GET_CURRENT_CONTEXT(ctx);
1470    Node *n;
1471    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1472    n = ALLOC_INSTRUCTION(ctx, OPCODE_CONVOLUTION_PARAMETER_F, 3);
1473    if (n) {
1474       n[1].e = target;
1475       n[2].e = pname;
1476       n[3].f = param;
1477    }
1478    if (ctx->ExecuteFlag) {
1479       CALL_ConvolutionParameterf(ctx->Exec, (target, pname, param));
1480    }
1481 }
1482
1483
1484 static void GLAPIENTRY
1485 save_ConvolutionParameterfv(GLenum target, GLenum pname,
1486                             const GLfloat *params)
1487 {
1488    GET_CURRENT_CONTEXT(ctx);
1489    Node *n;
1490    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1491    n = ALLOC_INSTRUCTION(ctx, OPCODE_CONVOLUTION_PARAMETER_FV, 6);
1492    if (n) {
1493       n[1].e = target;
1494       n[2].e = pname;
1495       n[3].f = params[0];
1496       if (pname == GL_CONVOLUTION_BORDER_COLOR ||
1497           pname == GL_CONVOLUTION_FILTER_SCALE ||
1498           pname == GL_CONVOLUTION_FILTER_BIAS) {
1499          n[4].f = params[1];
1500          n[5].f = params[2];
1501          n[6].f = params[3];
1502       }
1503       else {
1504          n[4].f = n[5].f = n[6].f = 0.0F;
1505       }
1506    }
1507    if (ctx->ExecuteFlag) {
1508       CALL_ConvolutionParameterfv(ctx->Exec, (target, pname, params));
1509    }
1510 }
1511
1512
1513 static void GLAPIENTRY
1514 save_CopyPixels(GLint x, GLint y, GLsizei width, GLsizei height, GLenum type)
1515 {
1516    GET_CURRENT_CONTEXT(ctx);
1517    Node *n;
1518    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1519    n = ALLOC_INSTRUCTION(ctx, OPCODE_COPY_PIXELS, 5);
1520    if (n) {
1521       n[1].i = x;
1522       n[2].i = y;
1523       n[3].i = (GLint) width;
1524       n[4].i = (GLint) height;
1525       n[5].e = type;
1526    }
1527    if (ctx->ExecuteFlag) {
1528       CALL_CopyPixels(ctx->Exec, (x, y, width, height, type));
1529    }
1530 }
1531
1532
1533
1534 static void GLAPIENTRY
1535 save_CopyTexImage1D(GLenum target, GLint level, GLenum internalformat,
1536                     GLint x, GLint y, GLsizei width, GLint border)
1537 {
1538    GET_CURRENT_CONTEXT(ctx);
1539    Node *n;
1540    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1541    n = ALLOC_INSTRUCTION(ctx, OPCODE_COPY_TEX_IMAGE1D, 7);
1542    if (n) {
1543       n[1].e = target;
1544       n[2].i = level;
1545       n[3].e = internalformat;
1546       n[4].i = x;
1547       n[5].i = y;
1548       n[6].i = width;
1549       n[7].i = border;
1550    }
1551    if (ctx->ExecuteFlag) {
1552       CALL_CopyTexImage1D(ctx->Exec, (target, level, internalformat,
1553                                       x, y, width, border));
1554    }
1555 }
1556
1557
1558 static void GLAPIENTRY
1559 save_CopyTexImage2D(GLenum target, GLint level,
1560                     GLenum internalformat,
1561                     GLint x, GLint y, GLsizei width,
1562                     GLsizei height, GLint border)
1563 {
1564    GET_CURRENT_CONTEXT(ctx);
1565    Node *n;
1566    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1567    n = ALLOC_INSTRUCTION(ctx, OPCODE_COPY_TEX_IMAGE2D, 8);
1568    if (n) {
1569       n[1].e = target;
1570       n[2].i = level;
1571       n[3].e = internalformat;
1572       n[4].i = x;
1573       n[5].i = y;
1574       n[6].i = width;
1575       n[7].i = height;
1576       n[8].i = border;
1577    }
1578    if (ctx->ExecuteFlag) {
1579       CALL_CopyTexImage2D(ctx->Exec, (target, level, internalformat,
1580                                       x, y, width, height, border));
1581    }
1582 }
1583
1584
1585
1586 static void GLAPIENTRY
1587 save_CopyTexSubImage1D(GLenum target, GLint level,
1588                        GLint xoffset, GLint x, GLint y, GLsizei width)
1589 {
1590    GET_CURRENT_CONTEXT(ctx);
1591    Node *n;
1592    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1593    n = ALLOC_INSTRUCTION(ctx, OPCODE_COPY_TEX_SUB_IMAGE1D, 6);
1594    if (n) {
1595       n[1].e = target;
1596       n[2].i = level;
1597       n[3].i = xoffset;
1598       n[4].i = x;
1599       n[5].i = y;
1600       n[6].i = width;
1601    }
1602    if (ctx->ExecuteFlag) {
1603       CALL_CopyTexSubImage1D(ctx->Exec,
1604                              (target, level, xoffset, x, y, width));
1605    }
1606 }
1607
1608
1609 static void GLAPIENTRY
1610 save_CopyTexSubImage2D(GLenum target, GLint level,
1611                        GLint xoffset, GLint yoffset,
1612                        GLint x, GLint y, GLsizei width, GLint height)
1613 {
1614    GET_CURRENT_CONTEXT(ctx);
1615    Node *n;
1616    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1617    n = ALLOC_INSTRUCTION(ctx, OPCODE_COPY_TEX_SUB_IMAGE2D, 8);
1618    if (n) {
1619       n[1].e = target;
1620       n[2].i = level;
1621       n[3].i = xoffset;
1622       n[4].i = yoffset;
1623       n[5].i = x;
1624       n[6].i = y;
1625       n[7].i = width;
1626       n[8].i = height;
1627    }
1628    if (ctx->ExecuteFlag) {
1629       CALL_CopyTexSubImage2D(ctx->Exec, (target, level, xoffset, yoffset,
1630                                          x, y, width, height));
1631    }
1632 }
1633
1634
1635 static void GLAPIENTRY
1636 save_CopyTexSubImage3D(GLenum target, GLint level,
1637                        GLint xoffset, GLint yoffset, GLint zoffset,
1638                        GLint x, GLint y, GLsizei width, GLint height)
1639 {
1640    GET_CURRENT_CONTEXT(ctx);
1641    Node *n;
1642    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1643    n = ALLOC_INSTRUCTION(ctx, OPCODE_COPY_TEX_SUB_IMAGE3D, 9);
1644    if (n) {
1645       n[1].e = target;
1646       n[2].i = level;
1647       n[3].i = xoffset;
1648       n[4].i = yoffset;
1649       n[5].i = zoffset;
1650       n[6].i = x;
1651       n[7].i = y;
1652       n[8].i = width;
1653       n[9].i = height;
1654    }
1655    if (ctx->ExecuteFlag) {
1656       CALL_CopyTexSubImage3D(ctx->Exec, (target, level,
1657                                          xoffset, yoffset, zoffset,
1658                                          x, y, width, height));
1659    }
1660 }
1661
1662
1663 static void GLAPIENTRY
1664 save_CullFace(GLenum mode)
1665 {
1666    GET_CURRENT_CONTEXT(ctx);
1667    Node *n;
1668    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1669    n = ALLOC_INSTRUCTION(ctx, OPCODE_CULL_FACE, 1);
1670    if (n) {
1671       n[1].e = mode;
1672    }
1673    if (ctx->ExecuteFlag) {
1674       CALL_CullFace(ctx->Exec, (mode));
1675    }
1676 }
1677
1678
1679 static void GLAPIENTRY
1680 save_DepthFunc(GLenum func)
1681 {
1682    GET_CURRENT_CONTEXT(ctx);
1683    Node *n;
1684    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1685    n = ALLOC_INSTRUCTION(ctx, OPCODE_DEPTH_FUNC, 1);
1686    if (n) {
1687       n[1].e = func;
1688    }
1689    if (ctx->ExecuteFlag) {
1690       CALL_DepthFunc(ctx->Exec, (func));
1691    }
1692 }
1693
1694
1695 static void GLAPIENTRY
1696 save_DepthMask(GLboolean mask)
1697 {
1698    GET_CURRENT_CONTEXT(ctx);
1699    Node *n;
1700    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1701    n = ALLOC_INSTRUCTION(ctx, OPCODE_DEPTH_MASK, 1);
1702    if (n) {
1703       n[1].b = mask;
1704    }
1705    if (ctx->ExecuteFlag) {
1706       CALL_DepthMask(ctx->Exec, (mask));
1707    }
1708 }
1709
1710
1711 static void GLAPIENTRY
1712 save_DepthRange(GLclampd nearval, GLclampd farval)
1713 {
1714    GET_CURRENT_CONTEXT(ctx);
1715    Node *n;
1716    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1717    n = ALLOC_INSTRUCTION(ctx, OPCODE_DEPTH_RANGE, 2);
1718    if (n) {
1719       n[1].f = (GLfloat) nearval;
1720       n[2].f = (GLfloat) farval;
1721    }
1722    if (ctx->ExecuteFlag) {
1723       CALL_DepthRange(ctx->Exec, (nearval, farval));
1724    }
1725 }
1726
1727
1728 static void GLAPIENTRY
1729 save_Disable(GLenum cap)
1730 {
1731    GET_CURRENT_CONTEXT(ctx);
1732    Node *n;
1733    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1734    n = ALLOC_INSTRUCTION(ctx, OPCODE_DISABLE, 1);
1735    if (n) {
1736       n[1].e = cap;
1737    }
1738    if (ctx->ExecuteFlag) {
1739       CALL_Disable(ctx->Exec, (cap));
1740    }
1741 }
1742
1743
1744 static void GLAPIENTRY
1745 save_DrawBuffer(GLenum mode)
1746 {
1747    GET_CURRENT_CONTEXT(ctx);
1748    Node *n;
1749    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1750    n = ALLOC_INSTRUCTION(ctx, OPCODE_DRAW_BUFFER, 1);
1751    if (n) {
1752       n[1].e = mode;
1753    }
1754    if (ctx->ExecuteFlag) {
1755       CALL_DrawBuffer(ctx->Exec, (mode));
1756    }
1757 }
1758
1759
1760 static void GLAPIENTRY
1761 save_DrawPixels(GLsizei width, GLsizei height,
1762                 GLenum format, GLenum type, const GLvoid * pixels)
1763 {
1764    GET_CURRENT_CONTEXT(ctx);
1765    GLvoid *image = unpack_image(2, width, height, 1, format, type,
1766                                 pixels, &ctx->Unpack);
1767    Node *n;
1768    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1769    n = ALLOC_INSTRUCTION(ctx, OPCODE_DRAW_PIXELS, 5);
1770    if (n) {
1771       n[1].i = width;
1772       n[2].i = height;
1773       n[3].e = format;
1774       n[4].e = type;
1775       n[5].data = image;
1776    }
1777    else if (image) {
1778       _mesa_free(image);
1779    }
1780    if (ctx->ExecuteFlag) {
1781       CALL_DrawPixels(ctx->Exec, (width, height, format, type, pixels));
1782    }
1783 }
1784
1785
1786
1787 static void GLAPIENTRY
1788 save_Enable(GLenum cap)
1789 {
1790    GET_CURRENT_CONTEXT(ctx);
1791    Node *n;
1792    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1793    n = ALLOC_INSTRUCTION(ctx, OPCODE_ENABLE, 1);
1794    if (n) {
1795       n[1].e = cap;
1796    }
1797    if (ctx->ExecuteFlag) {
1798       CALL_Enable(ctx->Exec, (cap));
1799    }
1800 }
1801
1802
1803
1804 static void GLAPIENTRY
1805 _mesa_save_EvalMesh1(GLenum mode, GLint i1, GLint i2)
1806 {
1807    GET_CURRENT_CONTEXT(ctx);
1808    Node *n;
1809    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1810    n = ALLOC_INSTRUCTION(ctx, OPCODE_EVALMESH1, 3);
1811    if (n) {
1812       n[1].e = mode;
1813       n[2].i = i1;
1814       n[3].i = i2;
1815    }
1816    if (ctx->ExecuteFlag) {
1817       CALL_EvalMesh1(ctx->Exec, (mode, i1, i2));
1818    }
1819 }
1820
1821
1822 static void GLAPIENTRY
1823 _mesa_save_EvalMesh2(GLenum mode, GLint i1, GLint i2, GLint j1, GLint j2)
1824 {
1825    GET_CURRENT_CONTEXT(ctx);
1826    Node *n;
1827    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1828    n = ALLOC_INSTRUCTION(ctx, OPCODE_EVALMESH2, 5);
1829    if (n) {
1830       n[1].e = mode;
1831       n[2].i = i1;
1832       n[3].i = i2;
1833       n[4].i = j1;
1834       n[5].i = j2;
1835    }
1836    if (ctx->ExecuteFlag) {
1837       CALL_EvalMesh2(ctx->Exec, (mode, i1, i2, j1, j2));
1838    }
1839 }
1840
1841
1842
1843
1844 static void GLAPIENTRY
1845 save_Fogfv(GLenum pname, const GLfloat *params)
1846 {
1847    GET_CURRENT_CONTEXT(ctx);
1848    Node *n;
1849    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1850    n = ALLOC_INSTRUCTION(ctx, OPCODE_FOG, 5);
1851    if (n) {
1852       n[1].e = pname;
1853       n[2].f = params[0];
1854       n[3].f = params[1];
1855       n[4].f = params[2];
1856       n[5].f = params[3];
1857    }
1858    if (ctx->ExecuteFlag) {
1859       CALL_Fogfv(ctx->Exec, (pname, params));
1860    }
1861 }
1862
1863
1864 static void GLAPIENTRY
1865 save_Fogf(GLenum pname, GLfloat param)
1866 {
1867    save_Fogfv(pname, &param);
1868 }
1869
1870
1871 static void GLAPIENTRY
1872 save_Fogiv(GLenum pname, const GLint *params)
1873 {
1874    GLfloat p[4];
1875    switch (pname) {
1876    case GL_FOG_MODE:
1877    case GL_FOG_DENSITY:
1878    case GL_FOG_START:
1879    case GL_FOG_END:
1880    case GL_FOG_INDEX:
1881       p[0] = (GLfloat) *params;
1882       break;
1883    case GL_FOG_COLOR:
1884       p[0] = INT_TO_FLOAT(params[0]);
1885       p[1] = INT_TO_FLOAT(params[1]);
1886       p[2] = INT_TO_FLOAT(params[2]);
1887       p[3] = INT_TO_FLOAT(params[3]);
1888       break;
1889    default:
1890       /* Error will be caught later in gl_Fogfv */
1891       ;
1892    }
1893    save_Fogfv(pname, p);
1894 }
1895
1896
1897 static void GLAPIENTRY
1898 save_Fogi(GLenum pname, GLint param)
1899 {
1900    save_Fogiv(pname, &param);
1901 }
1902
1903
1904 static void GLAPIENTRY
1905 save_FrontFace(GLenum mode)
1906 {
1907    GET_CURRENT_CONTEXT(ctx);
1908    Node *n;
1909    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1910    n = ALLOC_INSTRUCTION(ctx, OPCODE_FRONT_FACE, 1);
1911    if (n) {
1912       n[1].e = mode;
1913    }
1914    if (ctx->ExecuteFlag) {
1915       CALL_FrontFace(ctx->Exec, (mode));
1916    }
1917 }
1918
1919
1920 static void GLAPIENTRY
1921 save_Frustum(GLdouble left, GLdouble right,
1922              GLdouble bottom, GLdouble top, GLdouble nearval, GLdouble farval)
1923 {
1924    GET_CURRENT_CONTEXT(ctx);
1925    Node *n;
1926    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1927    n = ALLOC_INSTRUCTION(ctx, OPCODE_FRUSTUM, 6);
1928    if (n) {
1929       n[1].f = (GLfloat) left;
1930       n[2].f = (GLfloat) right;
1931       n[3].f = (GLfloat) bottom;
1932       n[4].f = (GLfloat) top;
1933       n[5].f = (GLfloat) nearval;
1934       n[6].f = (GLfloat) farval;
1935    }
1936    if (ctx->ExecuteFlag) {
1937       CALL_Frustum(ctx->Exec, (left, right, bottom, top, nearval, farval));
1938    }
1939 }
1940
1941
1942 static void GLAPIENTRY
1943 save_Hint(GLenum target, GLenum mode)
1944 {
1945    GET_CURRENT_CONTEXT(ctx);
1946    Node *n;
1947    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1948    n = ALLOC_INSTRUCTION(ctx, OPCODE_HINT, 2);
1949    if (n) {
1950       n[1].e = target;
1951       n[2].e = mode;
1952    }
1953    if (ctx->ExecuteFlag) {
1954       CALL_Hint(ctx->Exec, (target, mode));
1955    }
1956 }
1957
1958
1959 static void GLAPIENTRY
1960 save_Histogram(GLenum target, GLsizei width, GLenum internalFormat,
1961                GLboolean sink)
1962 {
1963    GET_CURRENT_CONTEXT(ctx);
1964    Node *n;
1965
1966    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1967    n = ALLOC_INSTRUCTION(ctx, OPCODE_HISTOGRAM, 4);
1968    if (n) {
1969       n[1].e = target;
1970       n[2].i = width;
1971       n[3].e = internalFormat;
1972       n[4].b = sink;
1973    }
1974    if (ctx->ExecuteFlag) {
1975       CALL_Histogram(ctx->Exec, (target, width, internalFormat, sink));
1976    }
1977 }
1978
1979
1980 static void GLAPIENTRY
1981 save_IndexMask(GLuint mask)
1982 {
1983    GET_CURRENT_CONTEXT(ctx);
1984    Node *n;
1985    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
1986    n = ALLOC_INSTRUCTION(ctx, OPCODE_INDEX_MASK, 1);
1987    if (n) {
1988       n[1].ui = mask;
1989    }
1990    if (ctx->ExecuteFlag) {
1991       CALL_IndexMask(ctx->Exec, (mask));
1992    }
1993 }
1994
1995
1996 static void GLAPIENTRY
1997 save_InitNames(void)
1998 {
1999    GET_CURRENT_CONTEXT(ctx);
2000    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2001    (void) ALLOC_INSTRUCTION(ctx, OPCODE_INIT_NAMES, 0);
2002    if (ctx->ExecuteFlag) {
2003       CALL_InitNames(ctx->Exec, ());
2004    }
2005 }
2006
2007
2008 static void GLAPIENTRY
2009 save_Lightfv(GLenum light, GLenum pname, const GLfloat *params)
2010 {
2011    GET_CURRENT_CONTEXT(ctx);
2012    Node *n;
2013    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2014    n = ALLOC_INSTRUCTION(ctx, OPCODE_LIGHT, 6);
2015    if (n) {
2016       GLint i, nParams;
2017       n[1].e = light;
2018       n[2].e = pname;
2019       switch (pname) {
2020       case GL_AMBIENT:
2021          nParams = 4;
2022          break;
2023       case GL_DIFFUSE:
2024          nParams = 4;
2025          break;
2026       case GL_SPECULAR:
2027          nParams = 4;
2028          break;
2029       case GL_POSITION:
2030          nParams = 4;
2031          break;
2032       case GL_SPOT_DIRECTION:
2033          nParams = 3;
2034          break;
2035       case GL_SPOT_EXPONENT:
2036          nParams = 1;
2037          break;
2038       case GL_SPOT_CUTOFF:
2039          nParams = 1;
2040          break;
2041       case GL_CONSTANT_ATTENUATION:
2042          nParams = 1;
2043          break;
2044       case GL_LINEAR_ATTENUATION:
2045          nParams = 1;
2046          break;
2047       case GL_QUADRATIC_ATTENUATION:
2048          nParams = 1;
2049          break;
2050       default:
2051          nParams = 0;
2052       }
2053       for (i = 0; i < nParams; i++) {
2054          n[3 + i].f = params[i];
2055       }
2056    }
2057    if (ctx->ExecuteFlag) {
2058       CALL_Lightfv(ctx->Exec, (light, pname, params));
2059    }
2060 }
2061
2062
2063 static void GLAPIENTRY
2064 save_Lightf(GLenum light, GLenum pname, GLfloat params)
2065 {
2066    save_Lightfv(light, pname, &params);
2067 }
2068
2069
2070 static void GLAPIENTRY
2071 save_Lightiv(GLenum light, GLenum pname, const GLint *params)
2072 {
2073    GLfloat fparam[4];
2074    switch (pname) {
2075    case GL_AMBIENT:
2076    case GL_DIFFUSE:
2077    case GL_SPECULAR:
2078       fparam[0] = INT_TO_FLOAT(params[0]);
2079       fparam[1] = INT_TO_FLOAT(params[1]);
2080       fparam[2] = INT_TO_FLOAT(params[2]);
2081       fparam[3] = INT_TO_FLOAT(params[3]);
2082       break;
2083    case GL_POSITION:
2084       fparam[0] = (GLfloat) params[0];
2085       fparam[1] = (GLfloat) params[1];
2086       fparam[2] = (GLfloat) params[2];
2087       fparam[3] = (GLfloat) params[3];
2088       break;
2089    case GL_SPOT_DIRECTION:
2090       fparam[0] = (GLfloat) params[0];
2091       fparam[1] = (GLfloat) params[1];
2092       fparam[2] = (GLfloat) params[2];
2093       break;
2094    case GL_SPOT_EXPONENT:
2095    case GL_SPOT_CUTOFF:
2096    case GL_CONSTANT_ATTENUATION:
2097    case GL_LINEAR_ATTENUATION:
2098    case GL_QUADRATIC_ATTENUATION:
2099       fparam[0] = (GLfloat) params[0];
2100       break;
2101    default:
2102       /* error will be caught later in gl_Lightfv */
2103       ;
2104    }
2105    save_Lightfv(light, pname, fparam);
2106 }
2107
2108
2109 static void GLAPIENTRY
2110 save_Lighti(GLenum light, GLenum pname, GLint param)
2111 {
2112    save_Lightiv(light, pname, &param);
2113 }
2114
2115
2116 static void GLAPIENTRY
2117 save_LightModelfv(GLenum pname, const GLfloat *params)
2118 {
2119    GET_CURRENT_CONTEXT(ctx);
2120    Node *n;
2121    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2122    n = ALLOC_INSTRUCTION(ctx, OPCODE_LIGHT_MODEL, 5);
2123    if (n) {
2124       n[1].e = pname;
2125       n[2].f = params[0];
2126       n[3].f = params[1];
2127       n[4].f = params[2];
2128       n[5].f = params[3];
2129    }
2130    if (ctx->ExecuteFlag) {
2131       CALL_LightModelfv(ctx->Exec, (pname, params));
2132    }
2133 }
2134
2135
2136 static void GLAPIENTRY
2137 save_LightModelf(GLenum pname, GLfloat param)
2138 {
2139    save_LightModelfv(pname, &param);
2140 }
2141
2142
2143 static void GLAPIENTRY
2144 save_LightModeliv(GLenum pname, const GLint *params)
2145 {
2146    GLfloat fparam[4];
2147    switch (pname) {
2148    case GL_LIGHT_MODEL_AMBIENT:
2149       fparam[0] = INT_TO_FLOAT(params[0]);
2150       fparam[1] = INT_TO_FLOAT(params[1]);
2151       fparam[2] = INT_TO_FLOAT(params[2]);
2152       fparam[3] = INT_TO_FLOAT(params[3]);
2153       break;
2154    case GL_LIGHT_MODEL_LOCAL_VIEWER:
2155    case GL_LIGHT_MODEL_TWO_SIDE:
2156    case GL_LIGHT_MODEL_COLOR_CONTROL:
2157       fparam[0] = (GLfloat) params[0];
2158       break;
2159    default:
2160       /* Error will be caught later in gl_LightModelfv */
2161       ;
2162    }
2163    save_LightModelfv(pname, fparam);
2164 }
2165
2166
2167 static void GLAPIENTRY
2168 save_LightModeli(GLenum pname, GLint param)
2169 {
2170    save_LightModeliv(pname, &param);
2171 }
2172
2173
2174 static void GLAPIENTRY
2175 save_LineStipple(GLint factor, GLushort pattern)
2176 {
2177    GET_CURRENT_CONTEXT(ctx);
2178    Node *n;
2179    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2180    n = ALLOC_INSTRUCTION(ctx, OPCODE_LINE_STIPPLE, 2);
2181    if (n) {
2182       n[1].i = factor;
2183       n[2].us = pattern;
2184    }
2185    if (ctx->ExecuteFlag) {
2186       CALL_LineStipple(ctx->Exec, (factor, pattern));
2187    }
2188 }
2189
2190
2191 static void GLAPIENTRY
2192 save_LineWidth(GLfloat width)
2193 {
2194    GET_CURRENT_CONTEXT(ctx);
2195    Node *n;
2196    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2197    n = ALLOC_INSTRUCTION(ctx, OPCODE_LINE_WIDTH, 1);
2198    if (n) {
2199       n[1].f = width;
2200    }
2201    if (ctx->ExecuteFlag) {
2202       CALL_LineWidth(ctx->Exec, (width));
2203    }
2204 }
2205
2206
2207 static void GLAPIENTRY
2208 save_ListBase(GLuint base)
2209 {
2210    GET_CURRENT_CONTEXT(ctx);
2211    Node *n;
2212    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2213    n = ALLOC_INSTRUCTION(ctx, OPCODE_LIST_BASE, 1);
2214    if (n) {
2215       n[1].ui = base;
2216    }
2217    if (ctx->ExecuteFlag) {
2218       CALL_ListBase(ctx->Exec, (base));
2219    }
2220 }
2221
2222
2223 static void GLAPIENTRY
2224 save_LoadIdentity(void)
2225 {
2226    GET_CURRENT_CONTEXT(ctx);
2227    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2228    (void) ALLOC_INSTRUCTION(ctx, OPCODE_LOAD_IDENTITY, 0);
2229    if (ctx->ExecuteFlag) {
2230       CALL_LoadIdentity(ctx->Exec, ());
2231    }
2232 }
2233
2234
2235 static void GLAPIENTRY
2236 save_LoadMatrixf(const GLfloat * m)
2237 {
2238    GET_CURRENT_CONTEXT(ctx);
2239    Node *n;
2240    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2241    n = ALLOC_INSTRUCTION(ctx, OPCODE_LOAD_MATRIX, 16);
2242    if (n) {
2243       GLuint i;
2244       for (i = 0; i < 16; i++) {
2245          n[1 + i].f = m[i];
2246       }
2247    }
2248    if (ctx->ExecuteFlag) {
2249       CALL_LoadMatrixf(ctx->Exec, (m));
2250    }
2251 }
2252
2253
2254 static void GLAPIENTRY
2255 save_LoadMatrixd(const GLdouble * m)
2256 {
2257    GLfloat f[16];
2258    GLint i;
2259    for (i = 0; i < 16; i++) {
2260       f[i] = (GLfloat) m[i];
2261    }
2262    save_LoadMatrixf(f);
2263 }
2264
2265
2266 static void GLAPIENTRY
2267 save_LoadName(GLuint name)
2268 {
2269    GET_CURRENT_CONTEXT(ctx);
2270    Node *n;
2271    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2272    n = ALLOC_INSTRUCTION(ctx, OPCODE_LOAD_NAME, 1);
2273    if (n) {
2274       n[1].ui = name;
2275    }
2276    if (ctx->ExecuteFlag) {
2277       CALL_LoadName(ctx->Exec, (name));
2278    }
2279 }
2280
2281
2282 static void GLAPIENTRY
2283 save_LogicOp(GLenum opcode)
2284 {
2285    GET_CURRENT_CONTEXT(ctx);
2286    Node *n;
2287    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2288    n = ALLOC_INSTRUCTION(ctx, OPCODE_LOGIC_OP, 1);
2289    if (n) {
2290       n[1].e = opcode;
2291    }
2292    if (ctx->ExecuteFlag) {
2293       CALL_LogicOp(ctx->Exec, (opcode));
2294    }
2295 }
2296
2297
2298 static void GLAPIENTRY
2299 save_Map1d(GLenum target, GLdouble u1, GLdouble u2, GLint stride,
2300            GLint order, const GLdouble * points)
2301 {
2302    GET_CURRENT_CONTEXT(ctx);
2303    Node *n;
2304    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2305    n = ALLOC_INSTRUCTION(ctx, OPCODE_MAP1, 6);
2306    if (n) {
2307       GLfloat *pnts = _mesa_copy_map_points1d(target, stride, order, points);
2308       n[1].e = target;
2309       n[2].f = (GLfloat) u1;
2310       n[3].f = (GLfloat) u2;
2311       n[4].i = _mesa_evaluator_components(target);      /* stride */
2312       n[5].i = order;
2313       n[6].data = (void *) pnts;
2314    }
2315    if (ctx->ExecuteFlag) {
2316       CALL_Map1d(ctx->Exec, (target, u1, u2, stride, order, points));
2317    }
2318 }
2319
2320 static void GLAPIENTRY
2321 save_Map1f(GLenum target, GLfloat u1, GLfloat u2, GLint stride,
2322            GLint order, const GLfloat * points)
2323 {
2324    GET_CURRENT_CONTEXT(ctx);
2325    Node *n;
2326    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2327    n = ALLOC_INSTRUCTION(ctx, OPCODE_MAP1, 6);
2328    if (n) {
2329       GLfloat *pnts = _mesa_copy_map_points1f(target, stride, order, points);
2330       n[1].e = target;
2331       n[2].f = u1;
2332       n[3].f = u2;
2333       n[4].i = _mesa_evaluator_components(target);      /* stride */
2334       n[5].i = order;
2335       n[6].data = (void *) pnts;
2336    }
2337    if (ctx->ExecuteFlag) {
2338       CALL_Map1f(ctx->Exec, (target, u1, u2, stride, order, points));
2339    }
2340 }
2341
2342
2343 static void GLAPIENTRY
2344 save_Map2d(GLenum target,
2345            GLdouble u1, GLdouble u2, GLint ustride, GLint uorder,
2346            GLdouble v1, GLdouble v2, GLint vstride, GLint vorder,
2347            const GLdouble * points)
2348 {
2349    GET_CURRENT_CONTEXT(ctx);
2350    Node *n;
2351    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2352    n = ALLOC_INSTRUCTION(ctx, OPCODE_MAP2, 10);
2353    if (n) {
2354       GLfloat *pnts = _mesa_copy_map_points2d(target, ustride, uorder,
2355                                               vstride, vorder, points);
2356       n[1].e = target;
2357       n[2].f = (GLfloat) u1;
2358       n[3].f = (GLfloat) u2;
2359       n[4].f = (GLfloat) v1;
2360       n[5].f = (GLfloat) v2;
2361       /* XXX verify these strides are correct */
2362       n[6].i = _mesa_evaluator_components(target) * vorder;     /*ustride */
2363       n[7].i = _mesa_evaluator_components(target);      /*vstride */
2364       n[8].i = uorder;
2365       n[9].i = vorder;
2366       n[10].data = (void *) pnts;
2367    }
2368    if (ctx->ExecuteFlag) {
2369       CALL_Map2d(ctx->Exec, (target,
2370                              u1, u2, ustride, uorder,
2371                              v1, v2, vstride, vorder, points));
2372    }
2373 }
2374
2375
2376 static void GLAPIENTRY
2377 save_Map2f(GLenum target,
2378            GLfloat u1, GLfloat u2, GLint ustride, GLint uorder,
2379            GLfloat v1, GLfloat v2, GLint vstride, GLint vorder,
2380            const GLfloat * points)
2381 {
2382    GET_CURRENT_CONTEXT(ctx);
2383    Node *n;
2384    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2385    n = ALLOC_INSTRUCTION(ctx, OPCODE_MAP2, 10);
2386    if (n) {
2387       GLfloat *pnts = _mesa_copy_map_points2f(target, ustride, uorder,
2388                                               vstride, vorder, points);
2389       n[1].e = target;
2390       n[2].f = u1;
2391       n[3].f = u2;
2392       n[4].f = v1;
2393       n[5].f = v2;
2394       /* XXX verify these strides are correct */
2395       n[6].i = _mesa_evaluator_components(target) * vorder;     /*ustride */
2396       n[7].i = _mesa_evaluator_components(target);      /*vstride */
2397       n[8].i = uorder;
2398       n[9].i = vorder;
2399       n[10].data = (void *) pnts;
2400    }
2401    if (ctx->ExecuteFlag) {
2402       CALL_Map2f(ctx->Exec, (target, u1, u2, ustride, uorder,
2403                              v1, v2, vstride, vorder, points));
2404    }
2405 }
2406
2407
2408 static void GLAPIENTRY
2409 save_MapGrid1f(GLint un, GLfloat u1, GLfloat u2)
2410 {
2411    GET_CURRENT_CONTEXT(ctx);
2412    Node *n;
2413    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2414    n = ALLOC_INSTRUCTION(ctx, OPCODE_MAPGRID1, 3);
2415    if (n) {
2416       n[1].i = un;
2417       n[2].f = u1;
2418       n[3].f = u2;
2419    }
2420    if (ctx->ExecuteFlag) {
2421       CALL_MapGrid1f(ctx->Exec, (un, u1, u2));
2422    }
2423 }
2424
2425
2426 static void GLAPIENTRY
2427 save_MapGrid1d(GLint un, GLdouble u1, GLdouble u2)
2428 {
2429    save_MapGrid1f(un, (GLfloat) u1, (GLfloat) u2);
2430 }
2431
2432
2433 static void GLAPIENTRY
2434 save_MapGrid2f(GLint un, GLfloat u1, GLfloat u2,
2435                GLint vn, GLfloat v1, GLfloat v2)
2436 {
2437    GET_CURRENT_CONTEXT(ctx);
2438    Node *n;
2439    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2440    n = ALLOC_INSTRUCTION(ctx, OPCODE_MAPGRID2, 6);
2441    if (n) {
2442       n[1].i = un;
2443       n[2].f = u1;
2444       n[3].f = u2;
2445       n[4].i = vn;
2446       n[5].f = v1;
2447       n[6].f = v2;
2448    }
2449    if (ctx->ExecuteFlag) {
2450       CALL_MapGrid2f(ctx->Exec, (un, u1, u2, vn, v1, v2));
2451    }
2452 }
2453
2454
2455
2456 static void GLAPIENTRY
2457 save_MapGrid2d(GLint un, GLdouble u1, GLdouble u2,
2458                GLint vn, GLdouble v1, GLdouble v2)
2459 {
2460    save_MapGrid2f(un, (GLfloat) u1, (GLfloat) u2,
2461                   vn, (GLfloat) v1, (GLfloat) v2);
2462 }
2463
2464
2465 static void GLAPIENTRY
2466 save_MatrixMode(GLenum mode)
2467 {
2468    GET_CURRENT_CONTEXT(ctx);
2469    Node *n;
2470    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2471    n = ALLOC_INSTRUCTION(ctx, OPCODE_MATRIX_MODE, 1);
2472    if (n) {
2473       n[1].e = mode;
2474    }
2475    if (ctx->ExecuteFlag) {
2476       CALL_MatrixMode(ctx->Exec, (mode));
2477    }
2478 }
2479
2480
2481 static void GLAPIENTRY
2482 save_Minmax(GLenum target, GLenum internalFormat, GLboolean sink)
2483 {
2484    GET_CURRENT_CONTEXT(ctx);
2485    Node *n;
2486
2487    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2488    n = ALLOC_INSTRUCTION(ctx, OPCODE_MIN_MAX, 3);
2489    if (n) {
2490       n[1].e = target;
2491       n[2].e = internalFormat;
2492       n[3].b = sink;
2493    }
2494    if (ctx->ExecuteFlag) {
2495       CALL_Minmax(ctx->Exec, (target, internalFormat, sink));
2496    }
2497 }
2498
2499
2500 static void GLAPIENTRY
2501 save_MultMatrixf(const GLfloat * m)
2502 {
2503    GET_CURRENT_CONTEXT(ctx);
2504    Node *n;
2505    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2506    n = ALLOC_INSTRUCTION(ctx, OPCODE_MULT_MATRIX, 16);
2507    if (n) {
2508       GLuint i;
2509       for (i = 0; i < 16; i++) {
2510          n[1 + i].f = m[i];
2511       }
2512    }
2513    if (ctx->ExecuteFlag) {
2514       CALL_MultMatrixf(ctx->Exec, (m));
2515    }
2516 }
2517
2518
2519 static void GLAPIENTRY
2520 save_MultMatrixd(const GLdouble * m)
2521 {
2522    GLfloat f[16];
2523    GLint i;
2524    for (i = 0; i < 16; i++) {
2525       f[i] = (GLfloat) m[i];
2526    }
2527    save_MultMatrixf(f);
2528 }
2529
2530
2531 static void GLAPIENTRY
2532 save_NewList(GLuint name, GLenum mode)
2533 {
2534    GET_CURRENT_CONTEXT(ctx);
2535    /* It's an error to call this function while building a display list */
2536    _mesa_error(ctx, GL_INVALID_OPERATION, "glNewList");
2537    (void) name;
2538    (void) mode;
2539 }
2540
2541
2542
2543 static void GLAPIENTRY
2544 save_Ortho(GLdouble left, GLdouble right,
2545            GLdouble bottom, GLdouble top, GLdouble nearval, GLdouble farval)
2546 {
2547    GET_CURRENT_CONTEXT(ctx);
2548    Node *n;
2549    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2550    n = ALLOC_INSTRUCTION(ctx, OPCODE_ORTHO, 6);
2551    if (n) {
2552       n[1].f = (GLfloat) left;
2553       n[2].f = (GLfloat) right;
2554       n[3].f = (GLfloat) bottom;
2555       n[4].f = (GLfloat) top;
2556       n[5].f = (GLfloat) nearval;
2557       n[6].f = (GLfloat) farval;
2558    }
2559    if (ctx->ExecuteFlag) {
2560       CALL_Ortho(ctx->Exec, (left, right, bottom, top, nearval, farval));
2561    }
2562 }
2563
2564
2565 static void GLAPIENTRY
2566 save_PixelMapfv(GLenum map, GLint mapsize, const GLfloat *values)
2567 {
2568    GET_CURRENT_CONTEXT(ctx);
2569    Node *n;
2570    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2571    n = ALLOC_INSTRUCTION(ctx, OPCODE_PIXEL_MAP, 3);
2572    if (n) {
2573       n[1].e = map;
2574       n[2].i = mapsize;
2575       n[3].data = (void *) _mesa_malloc(mapsize * sizeof(GLfloat));
2576       MEMCPY(n[3].data, (void *) values, mapsize * sizeof(GLfloat));
2577    }
2578    if (ctx->ExecuteFlag) {
2579       CALL_PixelMapfv(ctx->Exec, (map, mapsize, values));
2580    }
2581 }
2582
2583
2584 static void GLAPIENTRY
2585 save_PixelMapuiv(GLenum map, GLint mapsize, const GLuint *values)
2586 {
2587    GLfloat fvalues[MAX_PIXEL_MAP_TABLE];
2588    GLint i;
2589    if (map == GL_PIXEL_MAP_I_TO_I || map == GL_PIXEL_MAP_S_TO_S) {
2590       for (i = 0; i < mapsize; i++) {
2591          fvalues[i] = (GLfloat) values[i];
2592       }
2593    }
2594    else {
2595       for (i = 0; i < mapsize; i++) {
2596          fvalues[i] = UINT_TO_FLOAT(values[i]);
2597       }
2598    }
2599    save_PixelMapfv(map, mapsize, fvalues);
2600 }
2601
2602
2603 static void GLAPIENTRY
2604 save_PixelMapusv(GLenum map, GLint mapsize, const GLushort *values)
2605 {
2606    GLfloat fvalues[MAX_PIXEL_MAP_TABLE];
2607    GLint i;
2608    if (map == GL_PIXEL_MAP_I_TO_I || map == GL_PIXEL_MAP_S_TO_S) {
2609       for (i = 0; i < mapsize; i++) {
2610          fvalues[i] = (GLfloat) values[i];
2611       }
2612    }
2613    else {
2614       for (i = 0; i < mapsize; i++) {
2615          fvalues[i] = USHORT_TO_FLOAT(values[i]);
2616       }
2617    }
2618    save_PixelMapfv(map, mapsize, fvalues);
2619 }
2620
2621
2622 static void GLAPIENTRY
2623 save_PixelTransferf(GLenum pname, GLfloat param)
2624 {
2625    GET_CURRENT_CONTEXT(ctx);
2626    Node *n;
2627    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2628    n = ALLOC_INSTRUCTION(ctx, OPCODE_PIXEL_TRANSFER, 2);
2629    if (n) {
2630       n[1].e = pname;
2631       n[2].f = param;
2632    }
2633    if (ctx->ExecuteFlag) {
2634       CALL_PixelTransferf(ctx->Exec, (pname, param));
2635    }
2636 }
2637
2638
2639 static void GLAPIENTRY
2640 save_PixelTransferi(GLenum pname, GLint param)
2641 {
2642    save_PixelTransferf(pname, (GLfloat) param);
2643 }
2644
2645
2646 static void GLAPIENTRY
2647 save_PixelZoom(GLfloat xfactor, GLfloat yfactor)
2648 {
2649    GET_CURRENT_CONTEXT(ctx);
2650    Node *n;
2651    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2652    n = ALLOC_INSTRUCTION(ctx, OPCODE_PIXEL_ZOOM, 2);
2653    if (n) {
2654       n[1].f = xfactor;
2655       n[2].f = yfactor;
2656    }
2657    if (ctx->ExecuteFlag) {
2658       CALL_PixelZoom(ctx->Exec, (xfactor, yfactor));
2659    }
2660 }
2661
2662
2663 static void GLAPIENTRY
2664 save_PointParameterfvEXT(GLenum pname, const GLfloat *params)
2665 {
2666    GET_CURRENT_CONTEXT(ctx);
2667    Node *n;
2668    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2669    n = ALLOC_INSTRUCTION(ctx, OPCODE_POINT_PARAMETERS, 4);
2670    if (n) {
2671       n[1].e = pname;
2672       n[2].f = params[0];
2673       n[3].f = params[1];
2674       n[4].f = params[2];
2675    }
2676    if (ctx->ExecuteFlag) {
2677       CALL_PointParameterfvEXT(ctx->Exec, (pname, params));
2678    }
2679 }
2680
2681
2682 static void GLAPIENTRY
2683 save_PointParameterfEXT(GLenum pname, GLfloat param)
2684 {
2685    save_PointParameterfvEXT(pname, &param);
2686 }
2687
2688 static void GLAPIENTRY
2689 save_PointParameteriNV(GLenum pname, GLint param)
2690 {
2691    GLfloat p = (GLfloat) param;
2692    save_PointParameterfvEXT(pname, &p);
2693 }
2694
2695 static void GLAPIENTRY
2696 save_PointParameterivNV(GLenum pname, const GLint * param)
2697 {
2698    GLfloat p = (GLfloat) param[0];
2699    save_PointParameterfvEXT(pname, &p);
2700 }
2701
2702
2703 static void GLAPIENTRY
2704 save_PointSize(GLfloat size)
2705 {
2706    GET_CURRENT_CONTEXT(ctx);
2707    Node *n;
2708    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2709    n = ALLOC_INSTRUCTION(ctx, OPCODE_POINT_SIZE, 1);
2710    if (n) {
2711       n[1].f = size;
2712    }
2713    if (ctx->ExecuteFlag) {
2714       CALL_PointSize(ctx->Exec, (size));
2715    }
2716 }
2717
2718
2719 static void GLAPIENTRY
2720 save_PolygonMode(GLenum face, GLenum mode)
2721 {
2722    GET_CURRENT_CONTEXT(ctx);
2723    Node *n;
2724    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2725    n = ALLOC_INSTRUCTION(ctx, OPCODE_POLYGON_MODE, 2);
2726    if (n) {
2727       n[1].e = face;
2728       n[2].e = mode;
2729    }
2730    if (ctx->ExecuteFlag) {
2731       CALL_PolygonMode(ctx->Exec, (face, mode));
2732    }
2733 }
2734
2735
2736 static void GLAPIENTRY
2737 save_PolygonStipple(const GLubyte * pattern)
2738 {
2739    GET_CURRENT_CONTEXT(ctx);
2740    GLvoid *image = unpack_image(2, 32, 32, 1, GL_COLOR_INDEX, GL_BITMAP,
2741                                 pattern, &ctx->Unpack);
2742    Node *n;
2743    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2744    n = ALLOC_INSTRUCTION(ctx, OPCODE_POLYGON_STIPPLE, 1);
2745    if (n) {
2746       n[1].data = image;
2747    }
2748    else if (image) {
2749       _mesa_free(image);
2750    }
2751    if (ctx->ExecuteFlag) {
2752       CALL_PolygonStipple(ctx->Exec, ((GLubyte *) pattern));
2753    }
2754 }
2755
2756
2757 static void GLAPIENTRY
2758 save_PolygonOffset(GLfloat factor, GLfloat units)
2759 {
2760    GET_CURRENT_CONTEXT(ctx);
2761    Node *n;
2762    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2763    n = ALLOC_INSTRUCTION(ctx, OPCODE_POLYGON_OFFSET, 2);
2764    if (n) {
2765       n[1].f = factor;
2766       n[2].f = units;
2767    }
2768    if (ctx->ExecuteFlag) {
2769       CALL_PolygonOffset(ctx->Exec, (factor, units));
2770    }
2771 }
2772
2773
2774 static void GLAPIENTRY
2775 save_PolygonOffsetEXT(GLfloat factor, GLfloat bias)
2776 {
2777    GET_CURRENT_CONTEXT(ctx);
2778    /* XXX mult by DepthMaxF here??? */
2779    save_PolygonOffset(factor, ctx->DrawBuffer->_DepthMaxF * bias);
2780 }
2781
2782
2783 static void GLAPIENTRY
2784 save_PopAttrib(void)
2785 {
2786    GET_CURRENT_CONTEXT(ctx);
2787    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2788    (void) ALLOC_INSTRUCTION(ctx, OPCODE_POP_ATTRIB, 0);
2789    if (ctx->ExecuteFlag) {
2790       CALL_PopAttrib(ctx->Exec, ());
2791    }
2792 }
2793
2794
2795 static void GLAPIENTRY
2796 save_PopMatrix(void)
2797 {
2798    GET_CURRENT_CONTEXT(ctx);
2799    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2800    (void) ALLOC_INSTRUCTION(ctx, OPCODE_POP_MATRIX, 0);
2801    if (ctx->ExecuteFlag) {
2802       CALL_PopMatrix(ctx->Exec, ());
2803    }
2804 }
2805
2806
2807 static void GLAPIENTRY
2808 save_PopName(void)
2809 {
2810    GET_CURRENT_CONTEXT(ctx);
2811    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2812    (void) ALLOC_INSTRUCTION(ctx, OPCODE_POP_NAME, 0);
2813    if (ctx->ExecuteFlag) {
2814       CALL_PopName(ctx->Exec, ());
2815    }
2816 }
2817
2818
2819 static void GLAPIENTRY
2820 save_PrioritizeTextures(GLsizei num, const GLuint * textures,
2821                         const GLclampf * priorities)
2822 {
2823    GET_CURRENT_CONTEXT(ctx);
2824    GLint i;
2825    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2826
2827    for (i = 0; i < num; i++) {
2828       Node *n;
2829       n = ALLOC_INSTRUCTION(ctx, OPCODE_PRIORITIZE_TEXTURE, 2);
2830       if (n) {
2831          n[1].ui = textures[i];
2832          n[2].f = priorities[i];
2833       }
2834    }
2835    if (ctx->ExecuteFlag) {
2836       CALL_PrioritizeTextures(ctx->Exec, (num, textures, priorities));
2837    }
2838 }
2839
2840
2841 static void GLAPIENTRY
2842 save_PushAttrib(GLbitfield mask)
2843 {
2844    GET_CURRENT_CONTEXT(ctx);
2845    Node *n;
2846    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2847    n = ALLOC_INSTRUCTION(ctx, OPCODE_PUSH_ATTRIB, 1);
2848    if (n) {
2849       n[1].bf = mask;
2850    }
2851    if (ctx->ExecuteFlag) {
2852       CALL_PushAttrib(ctx->Exec, (mask));
2853    }
2854 }
2855
2856
2857 static void GLAPIENTRY
2858 save_PushMatrix(void)
2859 {
2860    GET_CURRENT_CONTEXT(ctx);
2861    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2862    (void) ALLOC_INSTRUCTION(ctx, OPCODE_PUSH_MATRIX, 0);
2863    if (ctx->ExecuteFlag) {
2864       CALL_PushMatrix(ctx->Exec, ());
2865    }
2866 }
2867
2868
2869 static void GLAPIENTRY
2870 save_PushName(GLuint name)
2871 {
2872    GET_CURRENT_CONTEXT(ctx);
2873    Node *n;
2874    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2875    n = ALLOC_INSTRUCTION(ctx, OPCODE_PUSH_NAME, 1);
2876    if (n) {
2877       n[1].ui = name;
2878    }
2879    if (ctx->ExecuteFlag) {
2880       CALL_PushName(ctx->Exec, (name));
2881    }
2882 }
2883
2884
2885 static void GLAPIENTRY
2886 save_RasterPos4f(GLfloat x, GLfloat y, GLfloat z, GLfloat w)
2887 {
2888    GET_CURRENT_CONTEXT(ctx);
2889    Node *n;
2890    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
2891    n = ALLOC_INSTRUCTION(ctx, OPCODE_RASTER_POS, 4);
2892    if (n) {
2893       n[1].f = x;
2894       n[2].f = y;
2895       n[3].f = z;
2896       n[4].f = w;
2897    }
2898    if (ctx->ExecuteFlag) {
2899       CALL_RasterPos4f(ctx->Exec, (x, y, z, w));
2900    }
2901 }
2902
2903 static void GLAPIENTRY
2904 save_RasterPos2d(GLdouble x, GLdouble y)
2905 {
2906    save_RasterPos4f((GLfloat) x, (GLfloat) y, 0.0F, 1.0F);
2907 }
2908
2909 static void GLAPIENTRY
2910 save_RasterPos2f(GLfloat x, GLfloat y)
2911 {
2912    save_RasterPos4f(x, y, 0.0F, 1.0F);
2913 }
2914
2915 static void GLAPIENTRY
2916 save_RasterPos2i(GLint x, GLint y)
2917 {
2918    save_RasterPos4f((GLfloat) x, (GLfloat) y, 0.0F, 1.0F);
2919 }
2920
2921 static void GLAPIENTRY
2922 save_RasterPos2s(GLshort x, GLshort y)
2923 {
2924    save_RasterPos4f(x, y, 0.0F, 1.0F);
2925 }
2926
2927 static void GLAPIENTRY
2928 save_RasterPos3d(GLdouble x, GLdouble y, GLdouble z)
2929 {
2930    save_RasterPos4f((GLfloat) x, (GLfloat) y, (GLfloat) z, 1.0F);
2931 }
2932
2933 static void GLAPIENTRY
2934 save_RasterPos3f(GLfloat x, GLfloat y, GLfloat z)
2935 {
2936    save_RasterPos4f(x, y, z, 1.0F);
2937 }
2938
2939 static void GLAPIENTRY
2940 save_RasterPos3i(GLint x, GLint y, GLint z)
2941 {
2942    save_RasterPos4f((GLfloat) x, (GLfloat) y, (GLfloat) z, 1.0F);
2943 }
2944
2945 static void GLAPIENTRY
2946 save_RasterPos3s(GLshort x, GLshort y, GLshort z)
2947 {
2948    save_RasterPos4f(x, y, z, 1.0F);
2949 }
2950
2951 static void GLAPIENTRY
2952 save_RasterPos4d(GLdouble x, GLdouble y, GLdouble z, GLdouble w)
2953 {
2954    save_RasterPos4f((GLfloat) x, (GLfloat) y, (GLfloat) z, (GLfloat) w);
2955 }
2956
2957 static void GLAPIENTRY
2958 save_RasterPos4i(GLint x, GLint y, GLint z, GLint w)
2959 {
2960    save_RasterPos4f((GLfloat) x, (GLfloat) y, (GLfloat) z, (GLfloat) w);
2961 }
2962
2963 static void GLAPIENTRY
2964 save_RasterPos4s(GLshort x, GLshort y, GLshort z, GLshort w)
2965 {
2966    save_RasterPos4f(x, y, z, w);
2967 }
2968
2969 static void GLAPIENTRY
2970 save_RasterPos2dv(const GLdouble * v)
2971 {
2972    save_RasterPos4f((GLfloat) v[0], (GLfloat) v[1], 0.0F, 1.0F);
2973 }
2974
2975 static void GLAPIENTRY
2976 save_RasterPos2fv(const GLfloat * v)
2977 {
2978    save_RasterPos4f(v[0], v[1], 0.0F, 1.0F);
2979 }
2980
2981 static void GLAPIENTRY
2982 save_RasterPos2iv(const GLint * v)
2983 {
2984    save_RasterPos4f((GLfloat) v[0], (GLfloat) v[1], 0.0F, 1.0F);
2985 }
2986
2987 static void GLAPIENTRY
2988 save_RasterPos2sv(const GLshort * v)
2989 {
2990    save_RasterPos4f(v[0], v[1], 0.0F, 1.0F);
2991 }
2992
2993 static void GLAPIENTRY
2994 save_RasterPos3dv(const GLdouble * v)
2995 {
2996    save_RasterPos4f((GLfloat) v[0], (GLfloat) v[1], (GLfloat) v[2], 1.0F);
2997 }
2998
2999 static void GLAPIENTRY
3000 save_RasterPos3fv(const GLfloat * v)
3001 {
3002    save_RasterPos4f(v[0], v[1], v[2], 1.0F);
3003 }
3004
3005 static void GLAPIENTRY
3006 save_RasterPos3iv(const GLint * v)
3007 {
3008    save_RasterPos4f((GLfloat) v[0], (GLfloat) v[1], (GLfloat) v[2], 1.0F);
3009 }
3010
3011 static void GLAPIENTRY
3012 save_RasterPos3sv(const GLshort * v)
3013 {
3014    save_RasterPos4f(v[0], v[1], v[2], 1.0F);
3015 }
3016
3017 static void GLAPIENTRY
3018 save_RasterPos4dv(const GLdouble * v)
3019 {
3020    save_RasterPos4f((GLfloat) v[0], (GLfloat) v[1],
3021                     (GLfloat) v[2], (GLfloat) v[3]);
3022 }
3023
3024 static void GLAPIENTRY
3025 save_RasterPos4fv(const GLfloat * v)
3026 {
3027    save_RasterPos4f(v[0], v[1], v[2], v[3]);
3028 }
3029
3030 static void GLAPIENTRY
3031 save_RasterPos4iv(const GLint * v)
3032 {
3033    save_RasterPos4f((GLfloat) v[0], (GLfloat) v[1],
3034                     (GLfloat) v[2], (GLfloat) v[3]);
3035 }
3036
3037 static void GLAPIENTRY
3038 save_RasterPos4sv(const GLshort * v)
3039 {
3040    save_RasterPos4f(v[0], v[1], v[2], v[3]);
3041 }
3042
3043
3044 static void GLAPIENTRY
3045 save_PassThrough(GLfloat token)
3046 {
3047    GET_CURRENT_CONTEXT(ctx);
3048    Node *n;
3049    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3050    n = ALLOC_INSTRUCTION(ctx, OPCODE_PASSTHROUGH, 1);
3051    if (n) {
3052       n[1].f = token;
3053    }
3054    if (ctx->ExecuteFlag) {
3055       CALL_PassThrough(ctx->Exec, (token));
3056    }
3057 }
3058
3059
3060 static void GLAPIENTRY
3061 save_ReadBuffer(GLenum mode)
3062 {
3063    GET_CURRENT_CONTEXT(ctx);
3064    Node *n;
3065    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3066    n = ALLOC_INSTRUCTION(ctx, OPCODE_READ_BUFFER, 1);
3067    if (n) {
3068       n[1].e = mode;
3069    }
3070    if (ctx->ExecuteFlag) {
3071       CALL_ReadBuffer(ctx->Exec, (mode));
3072    }
3073 }
3074
3075
3076 static void GLAPIENTRY
3077 save_ResetHistogram(GLenum target)
3078 {
3079    GET_CURRENT_CONTEXT(ctx);
3080    Node *n;
3081    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3082    n = ALLOC_INSTRUCTION(ctx, OPCODE_RESET_HISTOGRAM, 1);
3083    if (n) {
3084       n[1].e = target;
3085    }
3086    if (ctx->ExecuteFlag) {
3087       CALL_ResetHistogram(ctx->Exec, (target));
3088    }
3089 }
3090
3091
3092 static void GLAPIENTRY
3093 save_ResetMinmax(GLenum target)
3094 {
3095    GET_CURRENT_CONTEXT(ctx);
3096    Node *n;
3097    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3098    n = ALLOC_INSTRUCTION(ctx, OPCODE_RESET_MIN_MAX, 1);
3099    if (n) {
3100       n[1].e = target;
3101    }
3102    if (ctx->ExecuteFlag) {
3103       CALL_ResetMinmax(ctx->Exec, (target));
3104    }
3105 }
3106
3107
3108 static void GLAPIENTRY
3109 save_Rotatef(GLfloat angle, GLfloat x, GLfloat y, GLfloat z)
3110 {
3111    GET_CURRENT_CONTEXT(ctx);
3112    Node *n;
3113    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3114    n = ALLOC_INSTRUCTION(ctx, OPCODE_ROTATE, 4);
3115    if (n) {
3116       n[1].f = angle;
3117       n[2].f = x;
3118       n[3].f = y;
3119       n[4].f = z;
3120    }
3121    if (ctx->ExecuteFlag) {
3122       CALL_Rotatef(ctx->Exec, (angle, x, y, z));
3123    }
3124 }
3125
3126
3127 static void GLAPIENTRY
3128 save_Rotated(GLdouble angle, GLdouble x, GLdouble y, GLdouble z)
3129 {
3130    save_Rotatef((GLfloat) angle, (GLfloat) x, (GLfloat) y, (GLfloat) z);
3131 }
3132
3133
3134 static void GLAPIENTRY
3135 save_Scalef(GLfloat x, GLfloat y, GLfloat z)
3136 {
3137    GET_CURRENT_CONTEXT(ctx);
3138    Node *n;
3139    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3140    n = ALLOC_INSTRUCTION(ctx, OPCODE_SCALE, 3);
3141    if (n) {
3142       n[1].f = x;
3143       n[2].f = y;
3144       n[3].f = z;
3145    }
3146    if (ctx->ExecuteFlag) {
3147       CALL_Scalef(ctx->Exec, (x, y, z));
3148    }
3149 }
3150
3151
3152 static void GLAPIENTRY
3153 save_Scaled(GLdouble x, GLdouble y, GLdouble z)
3154 {
3155    save_Scalef((GLfloat) x, (GLfloat) y, (GLfloat) z);
3156 }
3157
3158
3159 static void GLAPIENTRY
3160 save_Scissor(GLint x, GLint y, GLsizei width, GLsizei height)
3161 {
3162    GET_CURRENT_CONTEXT(ctx);
3163    Node *n;
3164    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3165    n = ALLOC_INSTRUCTION(ctx, OPCODE_SCISSOR, 4);
3166    if (n) {
3167       n[1].i = x;
3168       n[2].i = y;
3169       n[3].i = width;
3170       n[4].i = height;
3171    }
3172    if (ctx->ExecuteFlag) {
3173       CALL_Scissor(ctx->Exec, (x, y, width, height));
3174    }
3175 }
3176
3177
3178 static void GLAPIENTRY
3179 save_ShadeModel(GLenum mode)
3180 {
3181    GET_CURRENT_CONTEXT(ctx);
3182    Node *n;
3183    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3184    n = ALLOC_INSTRUCTION(ctx, OPCODE_SHADE_MODEL, 1);
3185    if (n) {
3186       n[1].e = mode;
3187    }
3188    if (ctx->ExecuteFlag) {
3189       CALL_ShadeModel(ctx->Exec, (mode));
3190    }
3191 }
3192
3193
3194 static void GLAPIENTRY
3195 save_StencilFunc(GLenum func, GLint ref, GLuint mask)
3196 {
3197    GET_CURRENT_CONTEXT(ctx);
3198    Node *n;
3199    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3200    n = ALLOC_INSTRUCTION(ctx, OPCODE_STENCIL_FUNC, 3);
3201    if (n) {
3202       n[1].e = func;
3203       n[2].i = ref;
3204       n[3].ui = mask;
3205    }
3206    if (ctx->ExecuteFlag) {
3207       CALL_StencilFunc(ctx->Exec, (func, ref, mask));
3208    }
3209 }
3210
3211
3212 static void GLAPIENTRY
3213 save_StencilMask(GLuint mask)
3214 {
3215    GET_CURRENT_CONTEXT(ctx);
3216    Node *n;
3217    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3218    n = ALLOC_INSTRUCTION(ctx, OPCODE_STENCIL_MASK, 1);
3219    if (n) {
3220       n[1].ui = mask;
3221    }
3222    if (ctx->ExecuteFlag) {
3223       CALL_StencilMask(ctx->Exec, (mask));
3224    }
3225 }
3226
3227
3228 static void GLAPIENTRY
3229 save_StencilOp(GLenum fail, GLenum zfail, GLenum zpass)
3230 {
3231    GET_CURRENT_CONTEXT(ctx);
3232    Node *n;
3233    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3234    n = ALLOC_INSTRUCTION(ctx, OPCODE_STENCIL_OP, 3);
3235    if (n) {
3236       n[1].e = fail;
3237       n[2].e = zfail;
3238       n[3].e = zpass;
3239    }
3240    if (ctx->ExecuteFlag) {
3241       CALL_StencilOp(ctx->Exec, (fail, zfail, zpass));
3242    }
3243 }
3244
3245
3246 static void GLAPIENTRY
3247 save_StencilFuncSeparate(GLenum face, GLenum func, GLint ref, GLuint mask)
3248 {
3249    GET_CURRENT_CONTEXT(ctx);
3250    Node *n;
3251    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3252    n = ALLOC_INSTRUCTION(ctx, OPCODE_STENCIL_FUNC_SEPARATE, 4);
3253    if (n) {
3254       n[1].e = face;
3255       n[2].e = func;
3256       n[3].i = ref;
3257       n[4].ui = mask;
3258    }
3259    if (ctx->ExecuteFlag) {
3260       CALL_StencilFuncSeparate(ctx->Exec, (face, func, ref, mask));
3261    }
3262 }
3263
3264
3265 static void GLAPIENTRY
3266 save_StencilFuncSeparateATI(GLenum frontfunc, GLenum backfunc, GLint ref,
3267                             GLuint mask)
3268 {
3269    GET_CURRENT_CONTEXT(ctx);
3270    Node *n;
3271    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3272    /* GL_FRONT */
3273    n = ALLOC_INSTRUCTION(ctx, OPCODE_STENCIL_FUNC_SEPARATE, 4);
3274    if (n) {
3275       n[1].e = GL_FRONT;
3276       n[2].e = frontfunc;
3277       n[3].i = ref;
3278       n[4].ui = mask;
3279    }
3280    /* GL_BACK */
3281    n = ALLOC_INSTRUCTION(ctx, OPCODE_STENCIL_FUNC_SEPARATE, 4);
3282    if (n) {
3283       n[1].e = GL_BACK;
3284       n[2].e = backfunc;
3285       n[3].i = ref;
3286       n[4].ui = mask;
3287    }
3288    if (ctx->ExecuteFlag) {
3289       CALL_StencilFuncSeparate(ctx->Exec, (GL_FRONT, frontfunc, ref, mask));
3290       CALL_StencilFuncSeparate(ctx->Exec, (GL_BACK, backfunc, ref, mask));
3291    }
3292 }
3293
3294
3295 static void GLAPIENTRY
3296 save_StencilMaskSeparate(GLenum face, GLuint mask)
3297 {
3298    GET_CURRENT_CONTEXT(ctx);
3299    Node *n;
3300    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3301    n = ALLOC_INSTRUCTION(ctx, OPCODE_STENCIL_MASK_SEPARATE, 2);
3302    if (n) {
3303       n[1].e = face;
3304       n[2].ui = mask;
3305    }
3306    if (ctx->ExecuteFlag) {
3307       CALL_StencilMaskSeparate(ctx->Exec, (face, mask));
3308    }
3309 }
3310
3311
3312 static void GLAPIENTRY
3313 save_StencilOpSeparate(GLenum face, GLenum fail, GLenum zfail, GLenum zpass)
3314 {
3315    GET_CURRENT_CONTEXT(ctx);
3316    Node *n;
3317    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3318    n = ALLOC_INSTRUCTION(ctx, OPCODE_STENCIL_OP_SEPARATE, 4);
3319    if (n) {
3320       n[1].e = face;
3321       n[2].e = fail;
3322       n[3].e = zfail;
3323       n[4].e = zpass;
3324    }
3325    if (ctx->ExecuteFlag) {
3326       CALL_StencilOpSeparate(ctx->Exec, (face, fail, zfail, zpass));
3327    }
3328 }
3329
3330
3331 static void GLAPIENTRY
3332 save_TexEnvfv(GLenum target, GLenum pname, const GLfloat *params)
3333 {
3334    GET_CURRENT_CONTEXT(ctx);
3335    Node *n;
3336    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3337    n = ALLOC_INSTRUCTION(ctx, OPCODE_TEXENV, 6);
3338    if (n) {
3339       n[1].e = target;
3340       n[2].e = pname;
3341       if (pname == GL_TEXTURE_ENV_COLOR) {
3342          n[3].f = params[0];
3343          n[4].f = params[1];
3344          n[5].f = params[2];
3345          n[6].f = params[3];
3346       }
3347       else {
3348          n[3].f = params[0];
3349          n[4].f = n[5].f = n[6].f = 0.0F;
3350       }
3351    }
3352    if (ctx->ExecuteFlag) {
3353       CALL_TexEnvfv(ctx->Exec, (target, pname, params));
3354    }
3355 }
3356
3357
3358 static void GLAPIENTRY
3359 save_TexEnvf(GLenum target, GLenum pname, GLfloat param)
3360 {
3361    save_TexEnvfv(target, pname, &param);
3362 }
3363
3364
3365 static void GLAPIENTRY
3366 save_TexEnvi(GLenum target, GLenum pname, GLint param)
3367 {
3368    GLfloat p[4];
3369    p[0] = (GLfloat) param;
3370    p[1] = p[2] = p[3] = 0.0;
3371    save_TexEnvfv(target, pname, p);
3372 }
3373
3374
3375 static void GLAPIENTRY
3376 save_TexEnviv(GLenum target, GLenum pname, const GLint * param)
3377 {
3378    GLfloat p[4];
3379    if (pname == GL_TEXTURE_ENV_COLOR) {
3380       p[0] = INT_TO_FLOAT(param[0]);
3381       p[1] = INT_TO_FLOAT(param[1]);
3382       p[2] = INT_TO_FLOAT(param[2]);
3383       p[3] = INT_TO_FLOAT(param[3]);
3384    }
3385    else {
3386       p[0] = (GLfloat) param[0];
3387       p[1] = p[2] = p[3] = 0.0F;
3388    }
3389    save_TexEnvfv(target, pname, p);
3390 }
3391
3392
3393 static void GLAPIENTRY
3394 save_TexGenfv(GLenum coord, GLenum pname, const GLfloat *params)
3395 {
3396    GET_CURRENT_CONTEXT(ctx);
3397    Node *n;
3398    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3399    n = ALLOC_INSTRUCTION(ctx, OPCODE_TEXGEN, 6);
3400    if (n) {
3401       n[1].e = coord;
3402       n[2].e = pname;
3403       n[3].f = params[0];
3404       n[4].f = params[1];
3405       n[5].f = params[2];
3406       n[6].f = params[3];
3407    }
3408    if (ctx->ExecuteFlag) {
3409       CALL_TexGenfv(ctx->Exec, (coord, pname, params));
3410    }
3411 }
3412
3413
3414 static void GLAPIENTRY
3415 save_TexGeniv(GLenum coord, GLenum pname, const GLint *params)
3416 {
3417    GLfloat p[4];
3418    p[0] = (GLfloat) params[0];
3419    p[1] = (GLfloat) params[1];
3420    p[2] = (GLfloat) params[2];
3421    p[3] = (GLfloat) params[3];
3422    save_TexGenfv(coord, pname, p);
3423 }
3424
3425
3426 static void GLAPIENTRY
3427 save_TexGend(GLenum coord, GLenum pname, GLdouble param)
3428 {
3429    GLfloat p = (GLfloat) param;
3430    save_TexGenfv(coord, pname, &p);
3431 }
3432
3433
3434 static void GLAPIENTRY
3435 save_TexGendv(GLenum coord, GLenum pname, const GLdouble *params)
3436 {
3437    GLfloat p[4];
3438    p[0] = (GLfloat) params[0];
3439    p[1] = (GLfloat) params[1];
3440    p[2] = (GLfloat) params[2];
3441    p[3] = (GLfloat) params[3];
3442    save_TexGenfv(coord, pname, p);
3443 }
3444
3445
3446 static void GLAPIENTRY
3447 save_TexGenf(GLenum coord, GLenum pname, GLfloat param)
3448 {
3449    save_TexGenfv(coord, pname, &param);
3450 }
3451
3452
3453 static void GLAPIENTRY
3454 save_TexGeni(GLenum coord, GLenum pname, GLint param)
3455 {
3456    save_TexGeniv(coord, pname, &param);
3457 }
3458
3459
3460 static void GLAPIENTRY
3461 save_TexParameterfv(GLenum target, GLenum pname, const GLfloat *params)
3462 {
3463    GET_CURRENT_CONTEXT(ctx);
3464    Node *n;
3465    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3466    n = ALLOC_INSTRUCTION(ctx, OPCODE_TEXPARAMETER, 6);
3467    if (n) {
3468       n[1].e = target;
3469       n[2].e = pname;
3470       n[3].f = params[0];
3471       n[4].f = params[1];
3472       n[5].f = params[2];
3473       n[6].f = params[3];
3474    }
3475    if (ctx->ExecuteFlag) {
3476       CALL_TexParameterfv(ctx->Exec, (target, pname, params));
3477    }
3478 }
3479
3480
3481 static void GLAPIENTRY
3482 save_TexParameterf(GLenum target, GLenum pname, GLfloat param)
3483 {
3484    save_TexParameterfv(target, pname, &param);
3485 }
3486
3487
3488 static void GLAPIENTRY
3489 save_TexParameteri(GLenum target, GLenum pname, GLint param)
3490 {
3491    GLfloat fparam[4];
3492    fparam[0] = (GLfloat) param;
3493    fparam[1] = fparam[2] = fparam[3] = 0.0;
3494    save_TexParameterfv(target, pname, fparam);
3495 }
3496
3497
3498 static void GLAPIENTRY
3499 save_TexParameteriv(GLenum target, GLenum pname, const GLint *params)
3500 {
3501    GLfloat fparam[4];
3502    fparam[0] = (GLfloat) params[0];
3503    fparam[1] = fparam[2] = fparam[3] = 0.0;
3504    save_TexParameterfv(target, pname, fparam);
3505 }
3506
3507
3508 static void GLAPIENTRY
3509 save_TexImage1D(GLenum target,
3510                 GLint level, GLint components,
3511                 GLsizei width, GLint border,
3512                 GLenum format, GLenum type, const GLvoid * pixels)
3513 {
3514    GET_CURRENT_CONTEXT(ctx);
3515    if (target == GL_PROXY_TEXTURE_1D) {
3516       /* don't compile, execute immediately */
3517       CALL_TexImage1D(ctx->Exec, (target, level, components, width,
3518                                   border, format, type, pixels));
3519    }
3520    else {
3521       GLvoid *image = unpack_image(1, width, 1, 1, format, type,
3522                                    pixels, &ctx->Unpack);
3523       Node *n;
3524       ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3525       n = ALLOC_INSTRUCTION(ctx, OPCODE_TEX_IMAGE1D, 8);
3526       if (n) {
3527          n[1].e = target;
3528          n[2].i = level;
3529          n[3].i = components;
3530          n[4].i = (GLint) width;
3531          n[5].i = border;
3532          n[6].e = format;
3533          n[7].e = type;
3534          n[8].data = image;
3535       }
3536       else if (image) {
3537          _mesa_free(image);
3538       }
3539       if (ctx->ExecuteFlag) {
3540          CALL_TexImage1D(ctx->Exec, (target, level, components, width,
3541                                      border, format, type, pixels));
3542       }
3543    }
3544 }
3545
3546
3547 static void GLAPIENTRY
3548 save_TexImage2D(GLenum target,
3549                 GLint level, GLint components,
3550                 GLsizei width, GLsizei height, GLint border,
3551                 GLenum format, GLenum type, const GLvoid * pixels)
3552 {
3553    GET_CURRENT_CONTEXT(ctx);
3554    if (target == GL_PROXY_TEXTURE_2D) {
3555       /* don't compile, execute immediately */
3556       CALL_TexImage2D(ctx->Exec, (target, level, components, width,
3557                                   height, border, format, type, pixels));
3558    }
3559    else {
3560       GLvoid *image = unpack_image(2, width, height, 1, format, type,
3561                                    pixels, &ctx->Unpack);
3562       Node *n;
3563       ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3564       n = ALLOC_INSTRUCTION(ctx, OPCODE_TEX_IMAGE2D, 9);
3565       if (n) {
3566          n[1].e = target;
3567          n[2].i = level;
3568          n[3].i = components;
3569          n[4].i = (GLint) width;
3570          n[5].i = (GLint) height;
3571          n[6].i = border;
3572          n[7].e = format;
3573          n[8].e = type;
3574          n[9].data = image;
3575       }
3576       else if (image) {
3577          _mesa_free(image);
3578       }
3579       if (ctx->ExecuteFlag) {
3580          CALL_TexImage2D(ctx->Exec, (target, level, components, width,
3581                                      height, border, format, type, pixels));
3582       }
3583    }
3584 }
3585
3586
3587 static void GLAPIENTRY
3588 save_TexImage3D(GLenum target,
3589                 GLint level, GLint internalFormat,
3590                 GLsizei width, GLsizei height, GLsizei depth,
3591                 GLint border,
3592                 GLenum format, GLenum type, const GLvoid * pixels)
3593 {
3594    GET_CURRENT_CONTEXT(ctx);
3595    if (target == GL_PROXY_TEXTURE_3D) {
3596       /* don't compile, execute immediately */
3597       CALL_TexImage3D(ctx->Exec, (target, level, internalFormat, width,
3598                                   height, depth, border, format, type,
3599                                   pixels));
3600    }
3601    else {
3602       Node *n;
3603       GLvoid *image = unpack_image(3, width, height, depth, format, type,
3604                                    pixels, &ctx->Unpack);
3605       ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3606       n = ALLOC_INSTRUCTION(ctx, OPCODE_TEX_IMAGE3D, 10);
3607       if (n) {
3608          n[1].e = target;
3609          n[2].i = level;
3610          n[3].i = (GLint) internalFormat;
3611          n[4].i = (GLint) width;
3612          n[5].i = (GLint) height;
3613          n[6].i = (GLint) depth;
3614          n[7].i = border;
3615          n[8].e = format;
3616          n[9].e = type;
3617          n[10].data = image;
3618       }
3619       else if (image) {
3620          _mesa_free(image);
3621       }
3622       if (ctx->ExecuteFlag) {
3623          CALL_TexImage3D(ctx->Exec, (target, level, internalFormat, width,
3624                                      height, depth, border, format, type,
3625                                      pixels));
3626       }
3627    }
3628 }
3629
3630
3631 static void GLAPIENTRY
3632 save_TexSubImage1D(GLenum target, GLint level, GLint xoffset,
3633                    GLsizei width, GLenum format, GLenum type,
3634                    const GLvoid * pixels)
3635 {
3636    GET_CURRENT_CONTEXT(ctx);
3637    Node *n;
3638    GLvoid *image = unpack_image(1, width, 1, 1, format, type,
3639                                 pixels, &ctx->Unpack);
3640    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3641    n = ALLOC_INSTRUCTION(ctx, OPCODE_TEX_SUB_IMAGE1D, 7);
3642    if (n) {
3643       n[1].e = target;
3644       n[2].i = level;
3645       n[3].i = xoffset;
3646       n[4].i = (GLint) width;
3647       n[5].e = format;
3648       n[6].e = type;
3649       n[7].data = image;
3650    }
3651    else if (image) {
3652       _mesa_free(image);
3653    }
3654    if (ctx->ExecuteFlag) {
3655       CALL_TexSubImage1D(ctx->Exec, (target, level, xoffset, width,
3656                                      format, type, pixels));
3657    }
3658 }
3659
3660
3661 static void GLAPIENTRY
3662 save_TexSubImage2D(GLenum target, GLint level,
3663                    GLint xoffset, GLint yoffset,
3664                    GLsizei width, GLsizei height,
3665                    GLenum format, GLenum type, const GLvoid * pixels)
3666 {
3667    GET_CURRENT_CONTEXT(ctx);
3668    Node *n;
3669    GLvoid *image = unpack_image(2, width, height, 1, format, type,
3670                                 pixels, &ctx->Unpack);
3671    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3672    n = ALLOC_INSTRUCTION(ctx, OPCODE_TEX_SUB_IMAGE2D, 9);
3673    if (n) {
3674       n[1].e = target;
3675       n[2].i = level;
3676       n[3].i = xoffset;
3677       n[4].i = yoffset;
3678       n[5].i = (GLint) width;
3679       n[6].i = (GLint) height;
3680       n[7].e = format;
3681       n[8].e = type;
3682       n[9].data = image;
3683    }
3684    else if (image) {
3685       _mesa_free(image);
3686    }
3687    if (ctx->ExecuteFlag) {
3688       CALL_TexSubImage2D(ctx->Exec, (target, level, xoffset, yoffset,
3689                                      width, height, format, type, pixels));
3690    }
3691 }
3692
3693
3694 static void GLAPIENTRY
3695 save_TexSubImage3D(GLenum target, GLint level,
3696                    GLint xoffset, GLint yoffset, GLint zoffset,
3697                    GLsizei width, GLsizei height, GLsizei depth,
3698                    GLenum format, GLenum type, const GLvoid * pixels)
3699 {
3700    GET_CURRENT_CONTEXT(ctx);
3701    Node *n;
3702    GLvoid *image = unpack_image(3, width, height, depth, format, type,
3703                                 pixels, &ctx->Unpack);
3704    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3705    n = ALLOC_INSTRUCTION(ctx, OPCODE_TEX_SUB_IMAGE3D, 11);
3706    if (n) {
3707       n[1].e = target;
3708       n[2].i = level;
3709       n[3].i = xoffset;
3710       n[4].i = yoffset;
3711       n[5].i = zoffset;
3712       n[6].i = (GLint) width;
3713       n[7].i = (GLint) height;
3714       n[8].i = (GLint) depth;
3715       n[9].e = format;
3716       n[10].e = type;
3717       n[11].data = image;
3718    }
3719    else if (image) {
3720       _mesa_free(image);
3721    }
3722    if (ctx->ExecuteFlag) {
3723       CALL_TexSubImage3D(ctx->Exec, (target, level,
3724                                      xoffset, yoffset, zoffset,
3725                                      width, height, depth, format, type,
3726                                      pixels));
3727    }
3728 }
3729
3730
3731 static void GLAPIENTRY
3732 save_Translatef(GLfloat x, GLfloat y, GLfloat z)
3733 {
3734    GET_CURRENT_CONTEXT(ctx);
3735    Node *n;
3736    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3737    n = ALLOC_INSTRUCTION(ctx, OPCODE_TRANSLATE, 3);
3738    if (n) {
3739       n[1].f = x;
3740       n[2].f = y;
3741       n[3].f = z;
3742    }
3743    if (ctx->ExecuteFlag) {
3744       CALL_Translatef(ctx->Exec, (x, y, z));
3745    }
3746 }
3747
3748
3749 static void GLAPIENTRY
3750 save_Translated(GLdouble x, GLdouble y, GLdouble z)
3751 {
3752    save_Translatef((GLfloat) x, (GLfloat) y, (GLfloat) z);
3753 }
3754
3755
3756
3757 static void GLAPIENTRY
3758 save_Viewport(GLint x, GLint y, GLsizei width, GLsizei height)
3759 {
3760    GET_CURRENT_CONTEXT(ctx);
3761    Node *n;
3762    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3763    n = ALLOC_INSTRUCTION(ctx, OPCODE_VIEWPORT, 4);
3764    if (n) {
3765       n[1].i = x;
3766       n[2].i = y;
3767       n[3].i = (GLint) width;
3768       n[4].i = (GLint) height;
3769    }
3770    if (ctx->ExecuteFlag) {
3771       CALL_Viewport(ctx->Exec, (x, y, width, height));
3772    }
3773 }
3774
3775
3776 static void GLAPIENTRY
3777 save_WindowPos4fMESA(GLfloat x, GLfloat y, GLfloat z, GLfloat w)
3778 {
3779    GET_CURRENT_CONTEXT(ctx);
3780    Node *n;
3781    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3782    n = ALLOC_INSTRUCTION(ctx, OPCODE_WINDOW_POS, 4);
3783    if (n) {
3784       n[1].f = x;
3785       n[2].f = y;
3786       n[3].f = z;
3787       n[4].f = w;
3788    }
3789    if (ctx->ExecuteFlag) {
3790       CALL_WindowPos4fMESA(ctx->Exec, (x, y, z, w));
3791    }
3792 }
3793
3794 static void GLAPIENTRY
3795 save_WindowPos2dMESA(GLdouble x, GLdouble y)
3796 {
3797    save_WindowPos4fMESA((GLfloat) x, (GLfloat) y, 0.0F, 1.0F);
3798 }
3799
3800 static void GLAPIENTRY
3801 save_WindowPos2fMESA(GLfloat x, GLfloat y)
3802 {
3803    save_WindowPos4fMESA(x, y, 0.0F, 1.0F);
3804 }
3805
3806 static void GLAPIENTRY
3807 save_WindowPos2iMESA(GLint x, GLint y)
3808 {
3809    save_WindowPos4fMESA((GLfloat) x, (GLfloat) y, 0.0F, 1.0F);
3810 }
3811
3812 static void GLAPIENTRY
3813 save_WindowPos2sMESA(GLshort x, GLshort y)
3814 {
3815    save_WindowPos4fMESA(x, y, 0.0F, 1.0F);
3816 }
3817
3818 static void GLAPIENTRY
3819 save_WindowPos3dMESA(GLdouble x, GLdouble y, GLdouble z)
3820 {
3821    save_WindowPos4fMESA((GLfloat) x, (GLfloat) y, (GLfloat) z, 1.0F);
3822 }
3823
3824 static void GLAPIENTRY
3825 save_WindowPos3fMESA(GLfloat x, GLfloat y, GLfloat z)
3826 {
3827    save_WindowPos4fMESA(x, y, z, 1.0F);
3828 }
3829
3830 static void GLAPIENTRY
3831 save_WindowPos3iMESA(GLint x, GLint y, GLint z)
3832 {
3833    save_WindowPos4fMESA((GLfloat) x, (GLfloat) y, (GLfloat) z, 1.0F);
3834 }
3835
3836 static void GLAPIENTRY
3837 save_WindowPos3sMESA(GLshort x, GLshort y, GLshort z)
3838 {
3839    save_WindowPos4fMESA(x, y, z, 1.0F);
3840 }
3841
3842 static void GLAPIENTRY
3843 save_WindowPos4dMESA(GLdouble x, GLdouble y, GLdouble z, GLdouble w)
3844 {
3845    save_WindowPos4fMESA((GLfloat) x, (GLfloat) y, (GLfloat) z, (GLfloat) w);
3846 }
3847
3848 static void GLAPIENTRY
3849 save_WindowPos4iMESA(GLint x, GLint y, GLint z, GLint w)
3850 {
3851    save_WindowPos4fMESA((GLfloat) x, (GLfloat) y, (GLfloat) z, (GLfloat) w);
3852 }
3853
3854 static void GLAPIENTRY
3855 save_WindowPos4sMESA(GLshort x, GLshort y, GLshort z, GLshort w)
3856 {
3857    save_WindowPos4fMESA(x, y, z, w);
3858 }
3859
3860 static void GLAPIENTRY
3861 save_WindowPos2dvMESA(const GLdouble * v)
3862 {
3863    save_WindowPos4fMESA((GLfloat) v[0], (GLfloat) v[1], 0.0F, 1.0F);
3864 }
3865
3866 static void GLAPIENTRY
3867 save_WindowPos2fvMESA(const GLfloat * v)
3868 {
3869    save_WindowPos4fMESA(v[0], v[1], 0.0F, 1.0F);
3870 }
3871
3872 static void GLAPIENTRY
3873 save_WindowPos2ivMESA(const GLint * v)
3874 {
3875    save_WindowPos4fMESA((GLfloat) v[0], (GLfloat) v[1], 0.0F, 1.0F);
3876 }
3877
3878 static void GLAPIENTRY
3879 save_WindowPos2svMESA(const GLshort * v)
3880 {
3881    save_WindowPos4fMESA(v[0], v[1], 0.0F, 1.0F);
3882 }
3883
3884 static void GLAPIENTRY
3885 save_WindowPos3dvMESA(const GLdouble * v)
3886 {
3887    save_WindowPos4fMESA((GLfloat) v[0], (GLfloat) v[1], (GLfloat) v[2], 1.0F);
3888 }
3889
3890 static void GLAPIENTRY
3891 save_WindowPos3fvMESA(const GLfloat * v)
3892 {
3893    save_WindowPos4fMESA(v[0], v[1], v[2], 1.0F);
3894 }
3895
3896 static void GLAPIENTRY
3897 save_WindowPos3ivMESA(const GLint * v)
3898 {
3899    save_WindowPos4fMESA((GLfloat) v[0], (GLfloat) v[1], (GLfloat) v[2], 1.0F);
3900 }
3901
3902 static void GLAPIENTRY
3903 save_WindowPos3svMESA(const GLshort * v)
3904 {
3905    save_WindowPos4fMESA(v[0], v[1], v[2], 1.0F);
3906 }
3907
3908 static void GLAPIENTRY
3909 save_WindowPos4dvMESA(const GLdouble * v)
3910 {
3911    save_WindowPos4fMESA((GLfloat) v[0], (GLfloat) v[1],
3912                         (GLfloat) v[2], (GLfloat) v[3]);
3913 }
3914
3915 static void GLAPIENTRY
3916 save_WindowPos4fvMESA(const GLfloat * v)
3917 {
3918    save_WindowPos4fMESA(v[0], v[1], v[2], v[3]);
3919 }
3920
3921 static void GLAPIENTRY
3922 save_WindowPos4ivMESA(const GLint * v)
3923 {
3924    save_WindowPos4fMESA((GLfloat) v[0], (GLfloat) v[1],
3925                         (GLfloat) v[2], (GLfloat) v[3]);
3926 }
3927
3928 static void GLAPIENTRY
3929 save_WindowPos4svMESA(const GLshort * v)
3930 {
3931    save_WindowPos4fMESA(v[0], v[1], v[2], v[3]);
3932 }
3933
3934
3935
3936 /* GL_ARB_multitexture */
3937 static void GLAPIENTRY
3938 save_ActiveTextureARB(GLenum target)
3939 {
3940    GET_CURRENT_CONTEXT(ctx);
3941    Node *n;
3942    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
3943    n = ALLOC_INSTRUCTION(ctx, OPCODE_ACTIVE_TEXTURE, 1);
3944    if (n) {
3945       n[1].e = target;
3946    }
3947    if (ctx->ExecuteFlag) {
3948       CALL_ActiveTextureARB(ctx->Exec, (target));
3949    }
3950 }
3951
3952
3953 /* GL_ARB_transpose_matrix */
3954
3955 static void GLAPIENTRY
3956 save_LoadTransposeMatrixdARB(const GLdouble m[16])
3957 {
3958    GLfloat tm[16];
3959    _math_transposefd(tm, m);
3960    save_LoadMatrixf(tm);
3961 }
3962
3963
3964 static void GLAPIENTRY
3965 save_LoadTransposeMatrixfARB(const GLfloat m[16])
3966 {
3967    GLfloat tm[16];
3968    _math_transposef(tm, m);
3969    save_LoadMatrixf(tm);
3970 }
3971
3972
3973 static void GLAPIENTRY
3974 save_MultTransposeMatrixdARB(const GLdouble m[16])
3975 {
3976    GLfloat tm[16];
3977    _math_transposefd(tm, m);
3978    save_MultMatrixf(tm);
3979 }
3980
3981
3982 static void GLAPIENTRY
3983 save_MultTransposeMatrixfARB(const GLfloat m[16])
3984 {
3985    GLfloat tm[16];
3986    _math_transposef(tm, m);
3987    save_MultMatrixf(tm);
3988 }
3989
3990
3991 /* GL_ARB_texture_compression */
3992 static void GLAPIENTRY
3993 save_CompressedTexImage1DARB(GLenum target, GLint level,
3994                              GLenum internalFormat, GLsizei width,
3995                              GLint border, GLsizei imageSize,
3996                              const GLvoid * data)
3997 {
3998    GET_CURRENT_CONTEXT(ctx);
3999    if (target == GL_PROXY_TEXTURE_1D) {
4000       /* don't compile, execute immediately */
4001       CALL_CompressedTexImage1DARB(ctx->Exec, (target, level, internalFormat,
4002                                                width, border, imageSize,
4003                                                data));
4004    }
4005    else {
4006       Node *n;
4007       GLvoid *image;
4008       ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4009       /* make copy of image */
4010       image = _mesa_malloc(imageSize);
4011       if (!image) {
4012          _mesa_error(ctx, GL_OUT_OF_MEMORY, "glCompressedTexImage1DARB");
4013          return;
4014       }
4015       MEMCPY(image, data, imageSize);
4016       n = ALLOC_INSTRUCTION(ctx, OPCODE_COMPRESSED_TEX_IMAGE_1D, 7);
4017       if (n) {
4018          n[1].e = target;
4019          n[2].i = level;
4020          n[3].e = internalFormat;
4021          n[4].i = (GLint) width;
4022          n[5].i = border;
4023          n[6].i = imageSize;
4024          n[7].data = image;
4025       }
4026       else if (image) {
4027          _mesa_free(image);
4028       }
4029       if (ctx->ExecuteFlag) {
4030          CALL_CompressedTexImage1DARB(ctx->Exec,
4031                                       (target, level, internalFormat, width,
4032                                        border, imageSize, data));
4033       }
4034    }
4035 }
4036
4037
4038 static void GLAPIENTRY
4039 save_CompressedTexImage2DARB(GLenum target, GLint level,
4040                              GLenum internalFormat, GLsizei width,
4041                              GLsizei height, GLint border, GLsizei imageSize,
4042                              const GLvoid * data)
4043 {
4044    GET_CURRENT_CONTEXT(ctx);
4045    if (target == GL_PROXY_TEXTURE_2D) {
4046       /* don't compile, execute immediately */
4047       CALL_CompressedTexImage2DARB(ctx->Exec, (target, level, internalFormat,
4048                                                width, height, border,
4049                                                imageSize, data));
4050    }
4051    else {
4052       Node *n;
4053       GLvoid *image;
4054       ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4055       /* make copy of image */
4056       image = _mesa_malloc(imageSize);
4057       if (!image) {
4058          _mesa_error(ctx, GL_OUT_OF_MEMORY, "glCompressedTexImage2DARB");
4059          return;
4060       }
4061       MEMCPY(image, data, imageSize);
4062       n = ALLOC_INSTRUCTION(ctx, OPCODE_COMPRESSED_TEX_IMAGE_2D, 8);
4063       if (n) {
4064          n[1].e = target;
4065          n[2].i = level;
4066          n[3].e = internalFormat;
4067          n[4].i = (GLint) width;
4068          n[5].i = (GLint) height;
4069          n[6].i = border;
4070          n[7].i = imageSize;
4071          n[8].data = image;
4072       }
4073       else if (image) {
4074          _mesa_free(image);
4075       }
4076       if (ctx->ExecuteFlag) {
4077          CALL_CompressedTexImage2DARB(ctx->Exec,
4078                                       (target, level, internalFormat, width,
4079                                        height, border, imageSize, data));
4080       }
4081    }
4082 }
4083
4084
4085 static void GLAPIENTRY
4086 save_CompressedTexImage3DARB(GLenum target, GLint level,
4087                              GLenum internalFormat, GLsizei width,
4088                              GLsizei height, GLsizei depth, GLint border,
4089                              GLsizei imageSize, const GLvoid * data)
4090 {
4091    GET_CURRENT_CONTEXT(ctx);
4092    if (target == GL_PROXY_TEXTURE_3D) {
4093       /* don't compile, execute immediately */
4094       CALL_CompressedTexImage3DARB(ctx->Exec, (target, level, internalFormat,
4095                                                width, height, depth, border,
4096                                                imageSize, data));
4097    }
4098    else {
4099       Node *n;
4100       GLvoid *image;
4101       ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4102       /* make copy of image */
4103       image = _mesa_malloc(imageSize);
4104       if (!image) {
4105          _mesa_error(ctx, GL_OUT_OF_MEMORY, "glCompressedTexImage3DARB");
4106          return;
4107       }
4108       MEMCPY(image, data, imageSize);
4109       n = ALLOC_INSTRUCTION(ctx, OPCODE_COMPRESSED_TEX_IMAGE_3D, 9);
4110       if (n) {
4111          n[1].e = target;
4112          n[2].i = level;
4113          n[3].e = internalFormat;
4114          n[4].i = (GLint) width;
4115          n[5].i = (GLint) height;
4116          n[6].i = (GLint) depth;
4117          n[7].i = border;
4118          n[8].i = imageSize;
4119          n[9].data = image;
4120       }
4121       else if (image) {
4122          _mesa_free(image);
4123       }
4124       if (ctx->ExecuteFlag) {
4125          CALL_CompressedTexImage3DARB(ctx->Exec,
4126                                       (target, level, internalFormat, width,
4127                                        height, depth, border, imageSize,
4128                                        data));
4129       }
4130    }
4131 }
4132
4133
4134 static void GLAPIENTRY
4135 save_CompressedTexSubImage1DARB(GLenum target, GLint level, GLint xoffset,
4136                                 GLsizei width, GLenum format,
4137                                 GLsizei imageSize, const GLvoid * data)
4138 {
4139    Node *n;
4140    GLvoid *image;
4141
4142    GET_CURRENT_CONTEXT(ctx);
4143    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4144
4145    /* make copy of image */
4146    image = _mesa_malloc(imageSize);
4147    if (!image) {
4148       _mesa_error(ctx, GL_OUT_OF_MEMORY, "glCompressedTexSubImage1DARB");
4149       return;
4150    }
4151    MEMCPY(image, data, imageSize);
4152    n = ALLOC_INSTRUCTION(ctx, OPCODE_COMPRESSED_TEX_SUB_IMAGE_1D, 7);
4153    if (n) {
4154       n[1].e = target;
4155       n[2].i = level;
4156       n[3].i = xoffset;
4157       n[4].i = (GLint) width;
4158       n[5].e = format;
4159       n[6].i = imageSize;
4160       n[7].data = image;
4161    }
4162    else if (image) {
4163       _mesa_free(image);
4164    }
4165    if (ctx->ExecuteFlag) {
4166       CALL_CompressedTexSubImage1DARB(ctx->Exec, (target, level, xoffset,
4167                                                   width, format, imageSize,
4168                                                   data));
4169    }
4170 }
4171
4172
4173 static void GLAPIENTRY
4174 save_CompressedTexSubImage2DARB(GLenum target, GLint level, GLint xoffset,
4175                                 GLint yoffset, GLsizei width, GLsizei height,
4176                                 GLenum format, GLsizei imageSize,
4177                                 const GLvoid * data)
4178 {
4179    Node *n;
4180    GLvoid *image;
4181
4182    GET_CURRENT_CONTEXT(ctx);
4183    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4184
4185    /* make copy of image */
4186    image = _mesa_malloc(imageSize);
4187    if (!image) {
4188       _mesa_error(ctx, GL_OUT_OF_MEMORY, "glCompressedTexSubImage2DARB");
4189       return;
4190    }
4191    MEMCPY(image, data, imageSize);
4192    n = ALLOC_INSTRUCTION(ctx, OPCODE_COMPRESSED_TEX_SUB_IMAGE_2D, 9);
4193    if (n) {
4194       n[1].e = target;
4195       n[2].i = level;
4196       n[3].i = xoffset;
4197       n[4].i = yoffset;
4198       n[5].i = (GLint) width;
4199       n[6].i = (GLint) height;
4200       n[7].e = format;
4201       n[8].i = imageSize;
4202       n[9].data = image;
4203    }
4204    else if (image) {
4205       _mesa_free(image);
4206    }
4207    if (ctx->ExecuteFlag) {
4208       CALL_CompressedTexSubImage2DARB(ctx->Exec,
4209                                       (target, level, xoffset, yoffset, width,
4210                                        height, format, imageSize, data));
4211    }
4212 }
4213
4214
4215 static void GLAPIENTRY
4216 save_CompressedTexSubImage3DARB(GLenum target, GLint level, GLint xoffset,
4217                                 GLint yoffset, GLint zoffset, GLsizei width,
4218                                 GLsizei height, GLsizei depth, GLenum format,
4219                                 GLsizei imageSize, const GLvoid * data)
4220 {
4221    Node *n;
4222    GLvoid *image;
4223
4224    GET_CURRENT_CONTEXT(ctx);
4225    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4226
4227    /* make copy of image */
4228    image = _mesa_malloc(imageSize);
4229    if (!image) {
4230       _mesa_error(ctx, GL_OUT_OF_MEMORY, "glCompressedTexSubImage3DARB");
4231       return;
4232    }
4233    MEMCPY(image, data, imageSize);
4234    n = ALLOC_INSTRUCTION(ctx, OPCODE_COMPRESSED_TEX_SUB_IMAGE_3D, 11);
4235    if (n) {
4236       n[1].e = target;
4237       n[2].i = level;
4238       n[3].i = xoffset;
4239       n[4].i = yoffset;
4240       n[5].i = zoffset;
4241       n[6].i = (GLint) width;
4242       n[7].i = (GLint) height;
4243       n[8].i = (GLint) depth;
4244       n[9].e = format;
4245       n[10].i = imageSize;
4246       n[11].data = image;
4247    }
4248    else if (image) {
4249       _mesa_free(image);
4250    }
4251    if (ctx->ExecuteFlag) {
4252       CALL_CompressedTexSubImage3DARB(ctx->Exec,
4253                                       (target, level, xoffset, yoffset,
4254                                        zoffset, width, height, depth, format,
4255                                        imageSize, data));
4256    }
4257 }
4258
4259
4260 /* GL_ARB_multisample */
4261 static void GLAPIENTRY
4262 save_SampleCoverageARB(GLclampf value, GLboolean invert)
4263 {
4264    GET_CURRENT_CONTEXT(ctx);
4265    Node *n;
4266    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4267    n = ALLOC_INSTRUCTION(ctx, OPCODE_SAMPLE_COVERAGE, 2);
4268    if (n) {
4269       n[1].f = value;
4270       n[2].b = invert;
4271    }
4272    if (ctx->ExecuteFlag) {
4273       CALL_SampleCoverageARB(ctx->Exec, (value, invert));
4274    }
4275 }
4276
4277
4278 /*
4279  * GL_NV_vertex_program
4280  */
4281 #if FEATURE_NV_vertex_program || FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
4282 static void GLAPIENTRY
4283 save_BindProgramNV(GLenum target, GLuint id)
4284 {
4285    GET_CURRENT_CONTEXT(ctx);
4286    Node *n;
4287    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4288    n = ALLOC_INSTRUCTION(ctx, OPCODE_BIND_PROGRAM_NV, 2);
4289    if (n) {
4290       n[1].e = target;
4291       n[2].ui = id;
4292    }
4293    if (ctx->ExecuteFlag) {
4294       CALL_BindProgramNV(ctx->Exec, (target, id));
4295    }
4296 }
4297
4298 static void GLAPIENTRY
4299 save_ProgramEnvParameter4fARB(GLenum target, GLuint index,
4300                               GLfloat x, GLfloat y, GLfloat z, GLfloat w)
4301 {
4302    GET_CURRENT_CONTEXT(ctx);
4303    Node *n;
4304    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4305    n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_ENV_PARAMETER_ARB, 6);
4306    if (n) {
4307       n[1].e = target;
4308       n[2].ui = index;
4309       n[3].f = x;
4310       n[4].f = y;
4311       n[5].f = z;
4312       n[6].f = w;
4313    }
4314    if (ctx->ExecuteFlag) {
4315       CALL_ProgramEnvParameter4fARB(ctx->Exec, (target, index, x, y, z, w));
4316    }
4317 }
4318
4319
4320 static void GLAPIENTRY
4321 save_ProgramEnvParameter4fvARB(GLenum target, GLuint index,
4322                                const GLfloat *params)
4323 {
4324    save_ProgramEnvParameter4fARB(target, index, params[0], params[1],
4325                                  params[2], params[3]);
4326 }
4327
4328
4329 static void GLAPIENTRY
4330 save_ProgramEnvParameters4fvEXT(GLenum target, GLuint index, GLsizei count,
4331                                 const GLfloat * params)
4332 {
4333    GET_CURRENT_CONTEXT(ctx);
4334    Node *n;
4335    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4336
4337    if (count > 0) {
4338       GLint i;
4339       const GLfloat * p = params;
4340
4341       for (i = 0 ; i < count ; i++) {
4342          n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_ENV_PARAMETER_ARB, 6);
4343          if (n) {
4344             n[1].e = target;
4345             n[2].ui = index;
4346             n[3].f = p[0];
4347             n[4].f = p[1];
4348             n[5].f = p[2];
4349             n[6].f = p[3];
4350             p += 4;
4351          }
4352       }
4353    }
4354
4355    if (ctx->ExecuteFlag) {
4356       CALL_ProgramEnvParameters4fvEXT(ctx->Exec, (target, index, count, params));
4357    }
4358 }
4359
4360
4361 static void GLAPIENTRY
4362 save_ProgramEnvParameter4dARB(GLenum target, GLuint index,
4363                               GLdouble x, GLdouble y, GLdouble z, GLdouble w)
4364 {
4365    save_ProgramEnvParameter4fARB(target, index,
4366                                  (GLfloat) x,
4367                                  (GLfloat) y, (GLfloat) z, (GLfloat) w);
4368 }
4369
4370
4371 static void GLAPIENTRY
4372 save_ProgramEnvParameter4dvARB(GLenum target, GLuint index,
4373                                const GLdouble *params)
4374 {
4375    save_ProgramEnvParameter4fARB(target, index,
4376                                  (GLfloat) params[0],
4377                                  (GLfloat) params[1],
4378                                  (GLfloat) params[2], (GLfloat) params[3]);
4379 }
4380
4381 #endif /* FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program || FEATURE_NV_vertex_program */
4382
4383 #if FEATURE_NV_vertex_program
4384 static void GLAPIENTRY
4385 save_ExecuteProgramNV(GLenum target, GLuint id, const GLfloat *params)
4386 {
4387    GET_CURRENT_CONTEXT(ctx);
4388    Node *n;
4389    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4390    n = ALLOC_INSTRUCTION(ctx, OPCODE_EXECUTE_PROGRAM_NV, 6);
4391    if (n) {
4392       n[1].e = target;
4393       n[2].ui = id;
4394       n[3].f = params[0];
4395       n[4].f = params[1];
4396       n[5].f = params[2];
4397       n[6].f = params[3];
4398    }
4399    if (ctx->ExecuteFlag) {
4400       CALL_ExecuteProgramNV(ctx->Exec, (target, id, params));
4401    }
4402 }
4403
4404
4405 static void GLAPIENTRY
4406 save_ProgramParameters4dvNV(GLenum target, GLuint index,
4407                             GLuint num, const GLdouble *params)
4408 {
4409    GLuint i;
4410    for (i = 0; i < num; i++) {
4411       save_ProgramEnvParameter4dvARB(target, index + i, params + 4 * i);
4412    }
4413 }
4414
4415
4416 static void GLAPIENTRY
4417 save_ProgramParameters4fvNV(GLenum target, GLuint index,
4418                             GLuint num, const GLfloat *params)
4419 {
4420    GLuint i;
4421    for (i = 0; i < num; i++) {
4422       save_ProgramEnvParameter4fvARB(target, index + i, params + 4 * i);
4423    }
4424 }
4425
4426
4427 static void GLAPIENTRY
4428 save_LoadProgramNV(GLenum target, GLuint id, GLsizei len,
4429                    const GLubyte * program)
4430 {
4431    GET_CURRENT_CONTEXT(ctx);
4432    Node *n;
4433    GLubyte *programCopy;
4434
4435    programCopy = (GLubyte *) _mesa_malloc(len);
4436    if (!programCopy) {
4437       _mesa_error(ctx, GL_OUT_OF_MEMORY, "glLoadProgramNV");
4438       return;
4439    }
4440    _mesa_memcpy(programCopy, program, len);
4441
4442    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4443    n = ALLOC_INSTRUCTION(ctx, OPCODE_LOAD_PROGRAM_NV, 4);
4444    if (n) {
4445       n[1].e = target;
4446       n[2].ui = id;
4447       n[3].i = len;
4448       n[4].data = programCopy;
4449    }
4450    if (ctx->ExecuteFlag) {
4451       CALL_LoadProgramNV(ctx->Exec, (target, id, len, program));
4452    }
4453 }
4454
4455
4456 static void GLAPIENTRY
4457 save_RequestResidentProgramsNV(GLsizei num, const GLuint * ids)
4458 {
4459    GET_CURRENT_CONTEXT(ctx);
4460    Node *n;
4461    GLuint *idCopy = (GLuint *) _mesa_malloc(num * sizeof(GLuint));
4462    if (!idCopy) {
4463       _mesa_error(ctx, GL_OUT_OF_MEMORY, "glRequestResidentProgramsNV");
4464       return;
4465    }
4466    _mesa_memcpy(idCopy, ids, num * sizeof(GLuint));
4467    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4468    n = ALLOC_INSTRUCTION(ctx, OPCODE_TRACK_MATRIX_NV, 2);
4469    if (n) {
4470       n[1].i = num;
4471       n[2].data = idCopy;
4472    }
4473    if (ctx->ExecuteFlag) {
4474       CALL_RequestResidentProgramsNV(ctx->Exec, (num, ids));
4475    }
4476 }
4477
4478
4479 static void GLAPIENTRY
4480 save_TrackMatrixNV(GLenum target, GLuint address,
4481                    GLenum matrix, GLenum transform)
4482 {
4483    GET_CURRENT_CONTEXT(ctx);
4484    Node *n;
4485    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4486    n = ALLOC_INSTRUCTION(ctx, OPCODE_TRACK_MATRIX_NV, 4);
4487    if (n) {
4488       n[1].e = target;
4489       n[2].ui = address;
4490       n[3].e = matrix;
4491       n[4].e = transform;
4492    }
4493    if (ctx->ExecuteFlag) {
4494       CALL_TrackMatrixNV(ctx->Exec, (target, address, matrix, transform));
4495    }
4496 }
4497 #endif /* FEATURE_NV_vertex_program */
4498
4499
4500 /*
4501  * GL_NV_fragment_program
4502  */
4503 #if FEATURE_NV_fragment_program
4504 static void GLAPIENTRY
4505 save_ProgramLocalParameter4fARB(GLenum target, GLuint index,
4506                                 GLfloat x, GLfloat y, GLfloat z, GLfloat w)
4507 {
4508    GET_CURRENT_CONTEXT(ctx);
4509    Node *n;
4510    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4511    n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_LOCAL_PARAMETER_ARB, 6);
4512    if (n) {
4513       n[1].e = target;
4514       n[2].ui = index;
4515       n[3].f = x;
4516       n[4].f = y;
4517       n[5].f = z;
4518       n[6].f = w;
4519    }
4520    if (ctx->ExecuteFlag) {
4521       CALL_ProgramLocalParameter4fARB(ctx->Exec, (target, index, x, y, z, w));
4522    }
4523 }
4524
4525
4526 static void GLAPIENTRY
4527 save_ProgramLocalParameter4fvARB(GLenum target, GLuint index,
4528                                  const GLfloat *params)
4529 {
4530    GET_CURRENT_CONTEXT(ctx);
4531    Node *n;
4532    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4533    n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_LOCAL_PARAMETER_ARB, 6);
4534    if (n) {
4535       n[1].e = target;
4536       n[2].ui = index;
4537       n[3].f = params[0];
4538       n[4].f = params[1];
4539       n[5].f = params[2];
4540       n[6].f = params[3];
4541    }
4542    if (ctx->ExecuteFlag) {
4543       CALL_ProgramLocalParameter4fvARB(ctx->Exec, (target, index, params));
4544    }
4545 }
4546
4547
4548 static void GLAPIENTRY
4549 save_ProgramLocalParameters4fvEXT(GLenum target, GLuint index, GLsizei count,
4550                                   const GLfloat *params)
4551 {
4552    GET_CURRENT_CONTEXT(ctx);
4553    Node *n;
4554    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4555
4556    if (count > 0) {
4557       GLint i;
4558       const GLfloat * p = params;
4559
4560       for (i = 0 ; i < count ; i++) {
4561          n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_LOCAL_PARAMETER_ARB, 6);
4562          if (n) {
4563             n[1].e = target;
4564             n[2].ui = index;
4565             n[3].f = p[0];
4566             n[4].f = p[1];
4567             n[5].f = p[2];
4568             n[6].f = p[3];
4569             p += 4;
4570          }
4571       }
4572    }
4573
4574    if (ctx->ExecuteFlag) {
4575       CALL_ProgramLocalParameters4fvEXT(ctx->Exec, (target, index, count, params));
4576    }
4577 }
4578
4579
4580 static void GLAPIENTRY
4581 save_ProgramLocalParameter4dARB(GLenum target, GLuint index,
4582                                 GLdouble x, GLdouble y,
4583                                 GLdouble z, GLdouble w)
4584 {
4585    GET_CURRENT_CONTEXT(ctx);
4586    Node *n;
4587    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4588    n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_LOCAL_PARAMETER_ARB, 6);
4589    if (n) {
4590       n[1].e = target;
4591       n[2].ui = index;
4592       n[3].f = (GLfloat) x;
4593       n[4].f = (GLfloat) y;
4594       n[5].f = (GLfloat) z;
4595       n[6].f = (GLfloat) w;
4596    }
4597    if (ctx->ExecuteFlag) {
4598       CALL_ProgramLocalParameter4dARB(ctx->Exec, (target, index, x, y, z, w));
4599    }
4600 }
4601
4602
4603 static void GLAPIENTRY
4604 save_ProgramLocalParameter4dvARB(GLenum target, GLuint index,
4605                                  const GLdouble *params)
4606 {
4607    GET_CURRENT_CONTEXT(ctx);
4608    Node *n;
4609    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4610    n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_LOCAL_PARAMETER_ARB, 6);
4611    if (n) {
4612       n[1].e = target;
4613       n[2].ui = index;
4614       n[3].f = (GLfloat) params[0];
4615       n[4].f = (GLfloat) params[1];
4616       n[5].f = (GLfloat) params[2];
4617       n[6].f = (GLfloat) params[3];
4618    }
4619    if (ctx->ExecuteFlag) {
4620       CALL_ProgramLocalParameter4dvARB(ctx->Exec, (target, index, params));
4621    }
4622 }
4623
4624 static void GLAPIENTRY
4625 save_ProgramNamedParameter4fNV(GLuint id, GLsizei len, const GLubyte * name,
4626                                GLfloat x, GLfloat y, GLfloat z, GLfloat w)
4627 {
4628    GET_CURRENT_CONTEXT(ctx);
4629    Node *n;
4630    GLubyte *nameCopy = (GLubyte *) _mesa_malloc(len);
4631    if (!nameCopy) {
4632       _mesa_error(ctx, GL_OUT_OF_MEMORY, "glProgramNamedParameter4fNV");
4633       return;
4634    }
4635    _mesa_memcpy(nameCopy, name, len);
4636
4637    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4638    n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_NAMED_PARAMETER_NV, 6);
4639    if (n) {
4640       n[1].ui = id;
4641       n[2].i = len;
4642       n[3].data = nameCopy;
4643       n[4].f = x;
4644       n[5].f = y;
4645       n[6].f = z;
4646       n[7].f = w;
4647    }
4648    if (ctx->ExecuteFlag) {
4649       CALL_ProgramNamedParameter4fNV(ctx->Exec, (id, len, name, x, y, z, w));
4650    }
4651 }
4652
4653
4654 static void GLAPIENTRY
4655 save_ProgramNamedParameter4fvNV(GLuint id, GLsizei len, const GLubyte * name,
4656                                 const float v[])
4657 {
4658    save_ProgramNamedParameter4fNV(id, len, name, v[0], v[1], v[2], v[3]);
4659 }
4660
4661
4662 static void GLAPIENTRY
4663 save_ProgramNamedParameter4dNV(GLuint id, GLsizei len, const GLubyte * name,
4664                                GLdouble x, GLdouble y, GLdouble z, GLdouble w)
4665 {
4666    save_ProgramNamedParameter4fNV(id, len, name, (GLfloat) x, (GLfloat) y,
4667                                   (GLfloat) z, (GLfloat) w);
4668 }
4669
4670
4671 static void GLAPIENTRY
4672 save_ProgramNamedParameter4dvNV(GLuint id, GLsizei len, const GLubyte * name,
4673                                 const double v[])
4674 {
4675    save_ProgramNamedParameter4fNV(id, len, name, (GLfloat) v[0],
4676                                   (GLfloat) v[1], (GLfloat) v[2],
4677                                   (GLfloat) v[3]);
4678 }
4679
4680 #endif /* FEATURE_NV_fragment_program */
4681
4682
4683
4684 /* GL_EXT_stencil_two_side */
4685 static void GLAPIENTRY
4686 save_ActiveStencilFaceEXT(GLenum face)
4687 {
4688    GET_CURRENT_CONTEXT(ctx);
4689    Node *n;
4690    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4691    n = ALLOC_INSTRUCTION(ctx, OPCODE_ACTIVE_STENCIL_FACE_EXT, 1);
4692    if (n) {
4693       n[1].e = face;
4694    }
4695    if (ctx->ExecuteFlag) {
4696       CALL_ActiveStencilFaceEXT(ctx->Exec, (face));
4697    }
4698 }
4699
4700
4701 /* GL_EXT_depth_bounds_test */
4702 static void GLAPIENTRY
4703 save_DepthBoundsEXT(GLclampd zmin, GLclampd zmax)
4704 {
4705    GET_CURRENT_CONTEXT(ctx);
4706    Node *n;
4707    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4708    n = ALLOC_INSTRUCTION(ctx, OPCODE_DEPTH_BOUNDS_EXT, 2);
4709    if (n) {
4710       n[1].f = (GLfloat) zmin;
4711       n[2].f = (GLfloat) zmax;
4712    }
4713    if (ctx->ExecuteFlag) {
4714       CALL_DepthBoundsEXT(ctx->Exec, (zmin, zmax));
4715    }
4716 }
4717
4718
4719
4720 #if FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
4721
4722 static void GLAPIENTRY
4723 save_ProgramStringARB(GLenum target, GLenum format, GLsizei len,
4724                       const GLvoid * string)
4725 {
4726    GET_CURRENT_CONTEXT(ctx);
4727    Node *n;
4728    GLubyte *programCopy;
4729
4730    programCopy = (GLubyte *) _mesa_malloc(len);
4731    if (!programCopy) {
4732       _mesa_error(ctx, GL_OUT_OF_MEMORY, "glProgramStringARB");
4733       return;
4734    }
4735    _mesa_memcpy(programCopy, string, len);
4736
4737    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4738    n = ALLOC_INSTRUCTION(ctx, OPCODE_PROGRAM_STRING_ARB, 4);
4739    if (n) {
4740       n[1].e = target;
4741       n[2].e = format;
4742       n[3].i = len;
4743       n[4].data = programCopy;
4744    }
4745    if (ctx->ExecuteFlag) {
4746       CALL_ProgramStringARB(ctx->Exec, (target, format, len, string));
4747    }
4748 }
4749
4750 #endif /* FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program */
4751
4752
4753 #if FEATURE_ARB_occlusion_query
4754
4755 static void GLAPIENTRY
4756 save_BeginQueryARB(GLenum target, GLuint id)
4757 {
4758    GET_CURRENT_CONTEXT(ctx);
4759    Node *n;
4760    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4761    n = ALLOC_INSTRUCTION(ctx, OPCODE_BEGIN_QUERY_ARB, 2);
4762    if (n) {
4763       n[1].e = target;
4764       n[2].ui = id;
4765    }
4766    if (ctx->ExecuteFlag) {
4767       CALL_BeginQueryARB(ctx->Exec, (target, id));
4768    }
4769 }
4770
4771
4772 static void GLAPIENTRY
4773 save_EndQueryARB(GLenum target)
4774 {
4775    GET_CURRENT_CONTEXT(ctx);
4776    Node *n;
4777    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4778    n = ALLOC_INSTRUCTION(ctx, OPCODE_END_QUERY_ARB, 1);
4779    if (n) {
4780       n[1].e = target;
4781    }
4782    if (ctx->ExecuteFlag) {
4783       CALL_EndQueryARB(ctx->Exec, (target));
4784    }
4785 }
4786
4787 #endif /* FEATURE_ARB_occlusion_query */
4788
4789
4790 static void GLAPIENTRY
4791 save_DrawBuffersARB(GLsizei count, const GLenum * buffers)
4792 {
4793    GET_CURRENT_CONTEXT(ctx);
4794    Node *n;
4795    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
4796    n = ALLOC_INSTRUCTION(ctx, OPCODE_DRAW_BUFFERS_ARB, 1 + MAX_DRAW_BUFFERS);
4797    if (n) {
4798       GLint i;
4799       n[1].i = count;
4800       if (count > MAX_DRAW_BUFFERS)
4801          count = MAX_DRAW_BUFFERS;
4802       for (i = 0; i < count; i++) {
4803          n[2 + i].e = buffers[i];
4804       }
4805    }
4806    if (ctx->ExecuteFlag) {
4807       CALL_DrawBuffersARB(ctx->Exec, (count, buffers));
4808    }
4809 }
4810
4811 static void GLAPIENTRY
4812 save_TexBumpParameterfvATI(GLenum pname, const GLfloat *param)
4813 {
4814    GET_CURRENT_CONTEXT(ctx);
4815    Node *n;
4816
4817    n = ALLOC_INSTRUCTION(ctx, OPCODE_TEX_BUMP_PARAMETER_ATI, 5);
4818    if (n) {
4819       n[1].ui = pname;
4820       n[2].f = param[0];
4821       n[3].f = param[1];
4822       n[4].f = param[2];
4823       n[5].f = param[3];
4824    }
4825    if (ctx->ExecuteFlag) {
4826       CALL_TexBumpParameterfvATI(ctx->Exec, (pname, param));
4827    }
4828 }
4829
4830 static void GLAPIENTRY
4831 save_TexBumpParameterivATI(GLenum pname, const GLint *param)
4832 {
4833    GLfloat p[4];
4834    p[0] = INT_TO_FLOAT(param[0]);
4835    p[1] = INT_TO_FLOAT(param[1]);
4836    p[2] = INT_TO_FLOAT(param[2]);
4837    p[3] = INT_TO_FLOAT(param[3]);
4838    save_TexBumpParameterfvATI(pname, p);
4839 }
4840
4841 #if FEATURE_ATI_fragment_shader
4842 static void GLAPIENTRY
4843 save_BindFragmentShaderATI(GLuint id)
4844 {
4845    GET_CURRENT_CONTEXT(ctx);
4846    Node *n;
4847
4848    n = ALLOC_INSTRUCTION(ctx, OPCODE_BIND_FRAGMENT_SHADER_ATI, 1);
4849    if (n) {
4850       n[1].ui = id;
4851    }
4852    if (ctx->ExecuteFlag) {
4853       CALL_BindFragmentShaderATI(ctx->Exec, (id));
4854    }
4855 }
4856
4857 static void GLAPIENTRY
4858 save_SetFragmentShaderConstantATI(GLuint dst, const GLfloat *value)
4859 {
4860    GET_CURRENT_CONTEXT(ctx);
4861    Node *n;
4862
4863    n = ALLOC_INSTRUCTION(ctx, OPCODE_SET_FRAGMENT_SHADER_CONSTANTS_ATI, 5);
4864    if (n) {
4865       n[1].ui = dst;
4866       n[2].f = value[0];
4867       n[3].f = value[1];
4868       n[4].f = value[2];
4869       n[5].f = value[3];
4870    }
4871    if (ctx->ExecuteFlag) {
4872       CALL_SetFragmentShaderConstantATI(ctx->Exec, (dst, value));
4873    }
4874 }
4875 #endif
4876
4877 static void
4878 save_Attr1fNV(GLenum attr, GLfloat x)
4879 {
4880    GET_CURRENT_CONTEXT(ctx);
4881    Node *n;
4882    SAVE_FLUSH_VERTICES(ctx);
4883    n = ALLOC_INSTRUCTION(ctx, OPCODE_ATTR_1F_NV, 2);
4884    if (n) {
4885       n[1].e = attr;
4886       n[2].f = x;
4887    }
4888
4889    ASSERT(attr < MAX_VERTEX_GENERIC_ATTRIBS);
4890    ctx->ListState.ActiveAttribSize[attr] = 1;
4891    ASSIGN_4V(ctx->ListState.CurrentAttrib[attr], x, 0, 0, 1);
4892
4893    if (ctx->ExecuteFlag) {
4894       CALL_VertexAttrib1fNV(ctx->Exec, (attr, x));
4895    }
4896 }
4897
4898 static void
4899 save_Attr2fNV(GLenum attr, GLfloat x, GLfloat y)
4900 {
4901    GET_CURRENT_CONTEXT(ctx);
4902    Node *n;
4903    SAVE_FLUSH_VERTICES(ctx);
4904    n = ALLOC_INSTRUCTION(ctx, OPCODE_ATTR_2F_NV, 3);
4905    if (n) {
4906       n[1].e = attr;
4907       n[2].f = x;
4908       n[3].f = y;
4909    }
4910
4911    ASSERT(attr < MAX_VERTEX_GENERIC_ATTRIBS);
4912    ctx->ListState.ActiveAttribSize[attr] = 2;
4913    ASSIGN_4V(ctx->ListState.CurrentAttrib[attr], x, y, 0, 1);
4914
4915    if (ctx->ExecuteFlag) {
4916       CALL_VertexAttrib2fNV(ctx->Exec, (attr, x, y));
4917    }
4918 }
4919
4920 static void
4921 save_Attr3fNV(GLenum attr, GLfloat x, GLfloat y, GLfloat z)
4922 {
4923    GET_CURRENT_CONTEXT(ctx);
4924    Node *n;
4925    SAVE_FLUSH_VERTICES(ctx);
4926    n = ALLOC_INSTRUCTION(ctx, OPCODE_ATTR_3F_NV, 4);
4927    if (n) {
4928       n[1].e = attr;
4929       n[2].f = x;
4930       n[3].f = y;
4931       n[4].f = z;
4932    }
4933
4934    ASSERT(attr < MAX_VERTEX_GENERIC_ATTRIBS);
4935    ctx->ListState.ActiveAttribSize[attr] = 3;
4936    ASSIGN_4V(ctx->ListState.CurrentAttrib[attr], x, y, z, 1);
4937
4938    if (ctx->ExecuteFlag) {
4939       CALL_VertexAttrib3fNV(ctx->Exec, (attr, x, y, z));
4940    }
4941 }
4942
4943 static void
4944 save_Attr4fNV(GLenum attr, GLfloat x, GLfloat y, GLfloat z, GLfloat w)
4945 {
4946    GET_CURRENT_CONTEXT(ctx);
4947    Node *n;
4948    SAVE_FLUSH_VERTICES(ctx);
4949    n = ALLOC_INSTRUCTION(ctx, OPCODE_ATTR_4F_NV, 5);
4950    if (n) {
4951       n[1].e = attr;
4952       n[2].f = x;
4953       n[3].f = y;
4954       n[4].f = z;
4955       n[5].f = w;
4956    }
4957
4958    ASSERT(attr < MAX_VERTEX_GENERIC_ATTRIBS);
4959    ctx->ListState.ActiveAttribSize[attr] = 4;
4960    ASSIGN_4V(ctx->ListState.CurrentAttrib[attr], x, y, z, w);
4961
4962    if (ctx->ExecuteFlag) {
4963       CALL_VertexAttrib4fNV(ctx->Exec, (attr, x, y, z, w));
4964    }
4965 }
4966
4967
4968 static void
4969 save_Attr1fARB(GLenum attr, GLfloat x)
4970 {
4971    GET_CURRENT_CONTEXT(ctx);
4972    Node *n;
4973    SAVE_FLUSH_VERTICES(ctx);
4974    n = ALLOC_INSTRUCTION(ctx, OPCODE_ATTR_1F_ARB, 2);
4975    if (n) {
4976       n[1].e = attr;
4977       n[2].f = x;
4978    }
4979
4980    ASSERT(attr < MAX_VERTEX_GENERIC_ATTRIBS);
4981    ctx->ListState.ActiveAttribSize[attr] = 1;
4982    ASSIGN_4V(ctx->ListState.CurrentAttrib[attr], x, 0, 0, 1);
4983
4984    if (ctx->ExecuteFlag) {
4985       CALL_VertexAttrib1fARB(ctx->Exec, (attr, x));
4986    }
4987 }
4988
4989 static void
4990 save_Attr2fARB(GLenum attr, GLfloat x, GLfloat y)
4991 {
4992    GET_CURRENT_CONTEXT(ctx);
4993    Node *n;
4994    SAVE_FLUSH_VERTICES(ctx);
4995    n = ALLOC_INSTRUCTION(ctx, OPCODE_ATTR_2F_ARB, 3);
4996    if (n) {
4997       n[1].e = attr;
4998       n[2].f = x;
4999       n[3].f = y;
5000    }
5001
5002    ASSERT(attr < MAX_VERTEX_GENERIC_ATTRIBS);
5003    ctx->ListState.ActiveAttribSize[attr] = 2;
5004    ASSIGN_4V(ctx->ListState.CurrentAttrib[attr], x, y, 0, 1);
5005
5006    if (ctx->ExecuteFlag) {
5007       CALL_VertexAttrib2fARB(ctx->Exec, (attr, x, y));
5008    }
5009 }
5010
5011 static void
5012 save_Attr3fARB(GLenum attr, GLfloat x, GLfloat y, GLfloat z)
5013 {
5014    GET_CURRENT_CONTEXT(ctx);
5015    Node *n;
5016    SAVE_FLUSH_VERTICES(ctx);
5017    n = ALLOC_INSTRUCTION(ctx, OPCODE_ATTR_3F_ARB, 4);
5018    if (n) {
5019       n[1].e = attr;
5020       n[2].f = x;
5021       n[3].f = y;
5022       n[4].f = z;
5023    }
5024
5025    ASSERT(attr < MAX_VERTEX_GENERIC_ATTRIBS);
5026    ctx->ListState.ActiveAttribSize[attr] = 3;
5027    ASSIGN_4V(ctx->ListState.CurrentAttrib[attr], x, y, z, 1);
5028
5029    if (ctx->ExecuteFlag) {
5030       CALL_VertexAttrib3fARB(ctx->Exec, (attr, x, y, z));
5031    }
5032 }
5033
5034 static void
5035 save_Attr4fARB(GLenum attr, GLfloat x, GLfloat y, GLfloat z, GLfloat w)
5036 {
5037    GET_CURRENT_CONTEXT(ctx);
5038    Node *n;
5039    SAVE_FLUSH_VERTICES(ctx);
5040    n = ALLOC_INSTRUCTION(ctx, OPCODE_ATTR_4F_ARB, 5);
5041    if (n) {
5042       n[1].e = attr;
5043       n[2].f = x;
5044       n[3].f = y;
5045       n[4].f = z;
5046       n[5].f = w;
5047    }
5048
5049    ASSERT(attr < MAX_VERTEX_GENERIC_ATTRIBS);
5050    ctx->ListState.ActiveAttribSize[attr] = 4;
5051    ASSIGN_4V(ctx->ListState.CurrentAttrib[attr], x, y, z, w);
5052
5053    if (ctx->ExecuteFlag) {
5054       CALL_VertexAttrib4fARB(ctx->Exec, (attr, x, y, z, w));
5055    }
5056 }
5057
5058
5059 static void GLAPIENTRY
5060 save_EvalCoord1f(GLfloat x)
5061 {
5062    GET_CURRENT_CONTEXT(ctx);
5063    Node *n;
5064    SAVE_FLUSH_VERTICES(ctx);
5065    n = ALLOC_INSTRUCTION(ctx, OPCODE_EVAL_C1, 1);
5066    if (n) {
5067       n[1].f = x;
5068    }
5069    if (ctx->ExecuteFlag) {
5070       CALL_EvalCoord1f(ctx->Exec, (x));
5071    }
5072 }
5073
5074 static void GLAPIENTRY
5075 save_EvalCoord1fv(const GLfloat * v)
5076 {
5077    save_EvalCoord1f(v[0]);
5078 }
5079
5080 static void GLAPIENTRY
5081 save_EvalCoord2f(GLfloat x, GLfloat y)
5082 {
5083    GET_CURRENT_CONTEXT(ctx);
5084    Node *n;
5085    SAVE_FLUSH_VERTICES(ctx);
5086    n = ALLOC_INSTRUCTION(ctx, OPCODE_EVAL_C2, 2);
5087    if (n) {
5088       n[1].f = x;
5089       n[2].f = y;
5090    }
5091    if (ctx->ExecuteFlag) {
5092       CALL_EvalCoord2f(ctx->Exec, (x, y));
5093    }
5094 }
5095
5096 static void GLAPIENTRY
5097 save_EvalCoord2fv(const GLfloat * v)
5098 {
5099    save_EvalCoord2f(v[0], v[1]);
5100 }
5101
5102
5103 static void GLAPIENTRY
5104 save_EvalPoint1(GLint x)
5105 {
5106    GET_CURRENT_CONTEXT(ctx);
5107    Node *n;
5108    SAVE_FLUSH_VERTICES(ctx);
5109    n = ALLOC_INSTRUCTION(ctx, OPCODE_EVAL_P1, 1);
5110    if (n) {
5111       n[1].i = x;
5112    }
5113    if (ctx->ExecuteFlag) {
5114       CALL_EvalPoint1(ctx->Exec, (x));
5115    }
5116 }
5117
5118 static void GLAPIENTRY
5119 save_EvalPoint2(GLint x, GLint y)
5120 {
5121    GET_CURRENT_CONTEXT(ctx);
5122    Node *n;
5123    SAVE_FLUSH_VERTICES(ctx);
5124    n = ALLOC_INSTRUCTION(ctx, OPCODE_EVAL_P2, 2);
5125    if (n) {
5126       n[1].i = x;
5127       n[2].i = y;
5128    }
5129    if (ctx->ExecuteFlag) {
5130       CALL_EvalPoint2(ctx->Exec, (x, y));
5131    }
5132 }
5133
5134 static void GLAPIENTRY
5135 save_Indexf(GLfloat x)
5136 {
5137    save_Attr1fNV(VERT_ATTRIB_COLOR_INDEX, x);
5138 }
5139
5140 static void GLAPIENTRY
5141 save_Indexfv(const GLfloat * v)
5142 {
5143    save_Attr1fNV(VERT_ATTRIB_COLOR_INDEX, v[0]);
5144 }
5145
5146 static void GLAPIENTRY
5147 save_EdgeFlag(GLboolean x)
5148 {
5149    save_Attr1fNV(VERT_ATTRIB_EDGEFLAG, x ? (GLfloat)1.0 : (GLfloat)0.0);
5150 }
5151
5152 static void GLAPIENTRY
5153 save_Materialfv(GLenum face, GLenum pname, const GLfloat * param)
5154 {
5155    GET_CURRENT_CONTEXT(ctx);
5156    Node *n;
5157    int args, i;
5158
5159    SAVE_FLUSH_VERTICES(ctx);
5160
5161    switch (face) {
5162    case GL_BACK:
5163    case GL_FRONT:
5164    case GL_FRONT_AND_BACK:
5165       break;
5166    default:
5167       _mesa_compile_error(ctx, GL_INVALID_ENUM, "material(face)");
5168       return;
5169    }
5170
5171    switch (pname) {
5172    case GL_EMISSION:
5173    case GL_AMBIENT:
5174    case GL_DIFFUSE:
5175    case GL_SPECULAR:
5176    case GL_AMBIENT_AND_DIFFUSE:
5177       args = 4;
5178       break;
5179    case GL_SHININESS:
5180       args = 1;
5181       break;
5182    case GL_COLOR_INDEXES:
5183       args = 3;
5184       break;
5185    default:
5186       _mesa_compile_error(ctx, GL_INVALID_ENUM, "material(pname)");
5187       return;
5188    }
5189
5190    n = ALLOC_INSTRUCTION(ctx, OPCODE_MATERIAL, 6);
5191    if (n) {
5192       n[1].e = face;
5193       n[2].e = pname;
5194       for (i = 0; i < args; i++)
5195          n[3 + i].f = param[i];
5196    }
5197
5198    {
5199       GLuint bitmask = _mesa_material_bitmask(ctx, face, pname, ~0, NULL);
5200       for (i = 0; i < MAT_ATTRIB_MAX; i++)
5201          if (bitmask & (1 << i)) {
5202             ctx->ListState.ActiveMaterialSize[i] = args;
5203             COPY_SZ_4V(ctx->ListState.CurrentMaterial[i], args, param);
5204          }
5205    }
5206
5207    if (ctx->ExecuteFlag) {
5208       CALL_Materialfv(ctx->Exec, (face, pname, param));
5209    }
5210 }
5211
5212 static void GLAPIENTRY
5213 save_Begin(GLenum mode)
5214 {
5215    GET_CURRENT_CONTEXT(ctx);
5216    Node *n;
5217    GLboolean error = GL_FALSE;
5218
5219    if ( /*mode < GL_POINTS || */ mode > GL_POLYGON) {
5220       _mesa_compile_error(ctx, GL_INVALID_ENUM, "Begin (mode)");
5221       error = GL_TRUE;
5222    }
5223    else if (ctx->Driver.CurrentSavePrimitive == PRIM_UNKNOWN) {
5224       /* Typically the first begin.  This may raise an error on
5225        * playback, depending on whether CallList is issued from inside
5226        * a begin/end or not.
5227        */
5228       ctx->Driver.CurrentSavePrimitive = PRIM_INSIDE_UNKNOWN_PRIM;
5229    }
5230    else if (ctx->Driver.CurrentSavePrimitive == PRIM_OUTSIDE_BEGIN_END) {
5231       ctx->Driver.CurrentSavePrimitive = mode;
5232    }
5233    else {
5234       _mesa_compile_error(ctx, GL_INVALID_OPERATION, "recursive begin");
5235       error = GL_TRUE;
5236    }
5237
5238    if (!error) {
5239       /* Give the driver an opportunity to hook in an optimized
5240        * display list compiler.
5241        */
5242       if (ctx->Driver.NotifySaveBegin(ctx, mode))
5243          return;
5244
5245       SAVE_FLUSH_VERTICES(ctx);
5246       n = ALLOC_INSTRUCTION(ctx, OPCODE_BEGIN, 1);
5247       if (n) {
5248          n[1].e = mode;
5249       }
5250    }
5251
5252    if (ctx->ExecuteFlag) {
5253       CALL_Begin(ctx->Exec, (mode));
5254    }
5255 }
5256
5257 static void GLAPIENTRY
5258 save_End(void)
5259 {
5260    GET_CURRENT_CONTEXT(ctx);
5261    SAVE_FLUSH_VERTICES(ctx);
5262    (void) ALLOC_INSTRUCTION(ctx, OPCODE_END, 0);
5263    ctx->Driver.CurrentSavePrimitive = PRIM_OUTSIDE_BEGIN_END;
5264    if (ctx->ExecuteFlag) {
5265       CALL_End(ctx->Exec, ());
5266    }
5267 }
5268
5269 static void GLAPIENTRY
5270 save_Rectf(GLfloat a, GLfloat b, GLfloat c, GLfloat d)
5271 {
5272    GET_CURRENT_CONTEXT(ctx);
5273    Node *n;
5274    SAVE_FLUSH_VERTICES(ctx);
5275    n = ALLOC_INSTRUCTION(ctx, OPCODE_RECTF, 4);
5276    if (n) {
5277       n[1].f = a;
5278       n[2].f = b;
5279       n[3].f = c;
5280       n[4].f = d;
5281    }
5282    if (ctx->ExecuteFlag) {
5283       CALL_Rectf(ctx->Exec, (a, b, c, d));
5284    }
5285 }
5286
5287
5288 static void GLAPIENTRY
5289 save_Vertex2f(GLfloat x, GLfloat y)
5290 {
5291    save_Attr2fNV(VERT_ATTRIB_POS, x, y);
5292 }
5293
5294 static void GLAPIENTRY
5295 save_Vertex2fv(const GLfloat * v)
5296 {
5297    save_Attr2fNV(VERT_ATTRIB_POS, v[0], v[1]);
5298 }
5299
5300 static void GLAPIENTRY
5301 save_Vertex3f(GLfloat x, GLfloat y, GLfloat z)
5302 {
5303    save_Attr3fNV(VERT_ATTRIB_POS, x, y, z);
5304 }
5305
5306 static void GLAPIENTRY
5307 save_Vertex3fv(const GLfloat * v)
5308 {
5309    save_Attr3fNV(VERT_ATTRIB_POS, v[0], v[1], v[2]);
5310 }
5311
5312 static void GLAPIENTRY
5313 save_Vertex4f(GLfloat x, GLfloat y, GLfloat z, GLfloat w)
5314 {
5315    save_Attr4fNV(VERT_ATTRIB_POS, x, y, z, w);
5316 }
5317
5318 static void GLAPIENTRY
5319 save_Vertex4fv(const GLfloat * v)
5320 {
5321    save_Attr4fNV(VERT_ATTRIB_POS, v[0], v[1], v[2], v[3]);
5322 }
5323
5324 static void GLAPIENTRY
5325 save_TexCoord1f(GLfloat x)
5326 {
5327    save_Attr1fNV(VERT_ATTRIB_TEX0, x);
5328 }
5329
5330 static void GLAPIENTRY
5331 save_TexCoord1fv(const GLfloat * v)
5332 {
5333    save_Attr1fNV(VERT_ATTRIB_TEX0, v[0]);
5334 }
5335
5336 static void GLAPIENTRY
5337 save_TexCoord2f(GLfloat x, GLfloat y)
5338 {
5339    save_Attr2fNV(VERT_ATTRIB_TEX0, x, y);
5340 }
5341
5342 static void GLAPIENTRY
5343 save_TexCoord2fv(const GLfloat * v)
5344 {
5345    save_Attr2fNV(VERT_ATTRIB_TEX0, v[0], v[1]);
5346 }
5347
5348 static void GLAPIENTRY
5349 save_TexCoord3f(GLfloat x, GLfloat y, GLfloat z)
5350 {
5351    save_Attr3fNV(VERT_ATTRIB_TEX0, x, y, z);
5352 }
5353
5354 static void GLAPIENTRY
5355 save_TexCoord3fv(const GLfloat * v)
5356 {
5357    save_Attr3fNV(VERT_ATTRIB_TEX0, v[0], v[1], v[2]);
5358 }
5359
5360 static void GLAPIENTRY
5361 save_TexCoord4f(GLfloat x, GLfloat y, GLfloat z, GLfloat w)
5362 {
5363    save_Attr4fNV(VERT_ATTRIB_TEX0, x, y, z, w);
5364 }
5365
5366 static void GLAPIENTRY
5367 save_TexCoord4fv(const GLfloat * v)
5368 {
5369    save_Attr4fNV(VERT_ATTRIB_TEX0, v[0], v[1], v[2], v[3]);
5370 }
5371
5372 static void GLAPIENTRY
5373 save_Normal3f(GLfloat x, GLfloat y, GLfloat z)
5374 {
5375    save_Attr3fNV(VERT_ATTRIB_NORMAL, x, y, z);
5376 }
5377
5378 static void GLAPIENTRY
5379 save_Normal3fv(const GLfloat * v)
5380 {
5381    save_Attr3fNV(VERT_ATTRIB_NORMAL, v[0], v[1], v[2]);
5382 }
5383
5384 static void GLAPIENTRY
5385 save_FogCoordfEXT(GLfloat x)
5386 {
5387    save_Attr1fNV(VERT_ATTRIB_FOG, x);
5388 }
5389
5390 static void GLAPIENTRY
5391 save_FogCoordfvEXT(const GLfloat * v)
5392 {
5393    save_Attr1fNV(VERT_ATTRIB_FOG, v[0]);
5394 }
5395
5396 static void GLAPIENTRY
5397 save_Color3f(GLfloat x, GLfloat y, GLfloat z)
5398 {
5399    save_Attr3fNV(VERT_ATTRIB_COLOR0, x, y, z);
5400 }
5401
5402 static void GLAPIENTRY
5403 save_Color3fv(const GLfloat * v)
5404 {
5405    save_Attr3fNV(VERT_ATTRIB_COLOR0, v[0], v[1], v[2]);
5406 }
5407
5408 static void GLAPIENTRY
5409 save_Color4f(GLfloat x, GLfloat y, GLfloat z, GLfloat w)
5410 {
5411    save_Attr4fNV(VERT_ATTRIB_COLOR0, x, y, z, w);
5412 }
5413
5414 static void GLAPIENTRY
5415 save_Color4fv(const GLfloat * v)
5416 {
5417    save_Attr4fNV(VERT_ATTRIB_COLOR0, v[0], v[1], v[2], v[3]);
5418 }
5419
5420 static void GLAPIENTRY
5421 save_SecondaryColor3fEXT(GLfloat x, GLfloat y, GLfloat z)
5422 {
5423    save_Attr3fNV(VERT_ATTRIB_COLOR1, x, y, z);
5424 }
5425
5426 static void GLAPIENTRY
5427 save_SecondaryColor3fvEXT(const GLfloat * v)
5428 {
5429    save_Attr3fNV(VERT_ATTRIB_COLOR1, v[0], v[1], v[2]);
5430 }
5431
5432
5433 /* Just call the respective ATTR for texcoord
5434  */
5435 static void GLAPIENTRY
5436 save_MultiTexCoord1f(GLenum target, GLfloat x)
5437 {
5438    GLuint attr = (target & 0x7) + VERT_ATTRIB_TEX0;
5439    save_Attr1fNV(attr, x);
5440 }
5441
5442 static void GLAPIENTRY
5443 save_MultiTexCoord1fv(GLenum target, const GLfloat * v)
5444 {
5445    GLuint attr = (target & 0x7) + VERT_ATTRIB_TEX0;
5446    save_Attr1fNV(attr, v[0]);
5447 }
5448
5449 static void GLAPIENTRY
5450 save_MultiTexCoord2f(GLenum target, GLfloat x, GLfloat y)
5451 {
5452    GLuint attr = (target & 0x7) + VERT_ATTRIB_TEX0;
5453    save_Attr2fNV(attr, x, y);
5454 }
5455
5456 static void GLAPIENTRY
5457 save_MultiTexCoord2fv(GLenum target, const GLfloat * v)
5458 {
5459    GLuint attr = (target & 0x7) + VERT_ATTRIB_TEX0;
5460    save_Attr2fNV(attr, v[0], v[1]);
5461 }
5462
5463 static void GLAPIENTRY
5464 save_MultiTexCoord3f(GLenum target, GLfloat x, GLfloat y, GLfloat z)
5465 {
5466    GLuint attr = (target & 0x7) + VERT_ATTRIB_TEX0;
5467    save_Attr3fNV(attr, x, y, z);
5468 }
5469
5470 static void GLAPIENTRY
5471 save_MultiTexCoord3fv(GLenum target, const GLfloat * v)
5472 {
5473    GLuint attr = (target & 0x7) + VERT_ATTRIB_TEX0;
5474    save_Attr3fNV(attr, v[0], v[1], v[2]);
5475 }
5476
5477 static void GLAPIENTRY
5478 save_MultiTexCoord4f(GLenum target, GLfloat x, GLfloat y,
5479                      GLfloat z, GLfloat w)
5480 {
5481    GLuint attr = (target & 0x7) + VERT_ATTRIB_TEX0;
5482    save_Attr4fNV(attr, x, y, z, w);
5483 }
5484
5485 static void GLAPIENTRY
5486 save_MultiTexCoord4fv(GLenum target, const GLfloat * v)
5487 {
5488    GLuint attr = (target & 0x7) + VERT_ATTRIB_TEX0;
5489    save_Attr4fNV(attr, v[0], v[1], v[2], v[3]);
5490 }
5491
5492
5493 /**
5494  * Record a GL_INVALID_VALUE error when a invalid vertex attribute
5495  * index is found.
5496  */
5497 static void
5498 index_error(void)
5499 {
5500    GET_CURRENT_CONTEXT(ctx);
5501    _mesa_error(ctx, GL_INVALID_VALUE, "VertexAttribf(index)");
5502 }
5503
5504
5505 /* First level for NV_vertex_program:
5506  *
5507  * Check for errors at compile time?.
5508  */
5509 static void GLAPIENTRY
5510 save_VertexAttrib1fNV(GLuint index, GLfloat x)
5511 {
5512    if (index < MAX_NV_VERTEX_PROGRAM_INPUTS)
5513       save_Attr1fNV(index, x);
5514    else
5515       index_error();
5516 }
5517
5518 static void GLAPIENTRY
5519 save_VertexAttrib1fvNV(GLuint index, const GLfloat * v)
5520 {
5521    if (index < MAX_NV_VERTEX_PROGRAM_INPUTS)
5522       save_Attr1fNV(index, v[0]);
5523    else
5524       index_error();
5525 }
5526
5527 static void GLAPIENTRY
5528 save_VertexAttrib2fNV(GLuint index, GLfloat x, GLfloat y)
5529 {
5530    if (index < MAX_NV_VERTEX_PROGRAM_INPUTS)
5531       save_Attr2fNV(index, x, y);
5532    else
5533       index_error();
5534 }
5535
5536 static void GLAPIENTRY
5537 save_VertexAttrib2fvNV(GLuint index, const GLfloat * v)
5538 {
5539    if (index < MAX_NV_VERTEX_PROGRAM_INPUTS)
5540       save_Attr2fNV(index, v[0], v[1]);
5541    else
5542       index_error();
5543 }
5544
5545 static void GLAPIENTRY
5546 save_VertexAttrib3fNV(GLuint index, GLfloat x, GLfloat y, GLfloat z)
5547 {
5548    if (index < MAX_NV_VERTEX_PROGRAM_INPUTS)
5549       save_Attr3fNV(index, x, y, z);
5550    else
5551       index_error();
5552 }
5553
5554 static void GLAPIENTRY
5555 save_VertexAttrib3fvNV(GLuint index, const GLfloat * v)
5556 {
5557    if (index < MAX_NV_VERTEX_PROGRAM_INPUTS)
5558       save_Attr3fNV(index, v[0], v[1], v[2]);
5559    else
5560       index_error();
5561 }
5562
5563 static void GLAPIENTRY
5564 save_VertexAttrib4fNV(GLuint index, GLfloat x, GLfloat y,
5565                       GLfloat z, GLfloat w)
5566 {
5567    if (index < MAX_NV_VERTEX_PROGRAM_INPUTS)
5568       save_Attr4fNV(index, x, y, z, w);
5569    else
5570       index_error();
5571 }
5572
5573 static void GLAPIENTRY
5574 save_VertexAttrib4fvNV(GLuint index, const GLfloat * v)
5575 {
5576    if (index < MAX_NV_VERTEX_PROGRAM_INPUTS)
5577       save_Attr4fNV(index, v[0], v[1], v[2], v[3]);
5578    else
5579       index_error();
5580 }
5581
5582
5583
5584
5585 static void GLAPIENTRY
5586 save_VertexAttrib1fARB(GLuint index, GLfloat x)
5587 {
5588    if (index < MAX_VERTEX_GENERIC_ATTRIBS)
5589       save_Attr1fARB(index, x);
5590    else
5591       index_error();
5592 }
5593
5594 static void GLAPIENTRY
5595 save_VertexAttrib1fvARB(GLuint index, const GLfloat * v)
5596 {
5597    if (index < MAX_VERTEX_GENERIC_ATTRIBS)
5598       save_Attr1fARB(index, v[0]);
5599    else
5600       index_error();
5601 }
5602
5603 static void GLAPIENTRY
5604 save_VertexAttrib2fARB(GLuint index, GLfloat x, GLfloat y)
5605 {
5606    if (index < MAX_VERTEX_GENERIC_ATTRIBS)
5607       save_Attr2fARB(index, x, y);
5608    else
5609       index_error();
5610 }
5611
5612 static void GLAPIENTRY
5613 save_VertexAttrib2fvARB(GLuint index, const GLfloat * v)
5614 {
5615    if (index < MAX_VERTEX_GENERIC_ATTRIBS)
5616       save_Attr2fARB(index, v[0], v[1]);
5617    else
5618       index_error();
5619 }
5620
5621 static void GLAPIENTRY
5622 save_VertexAttrib3fARB(GLuint index, GLfloat x, GLfloat y, GLfloat z)
5623 {
5624    if (index < MAX_VERTEX_GENERIC_ATTRIBS)
5625       save_Attr3fARB(index, x, y, z);
5626    else
5627       index_error();
5628 }
5629
5630 static void GLAPIENTRY
5631 save_VertexAttrib3fvARB(GLuint index, const GLfloat * v)
5632 {
5633    if (index < MAX_VERTEX_GENERIC_ATTRIBS)
5634       save_Attr3fARB(index, v[0], v[1], v[2]);
5635    else
5636       index_error();
5637 }
5638
5639 static void GLAPIENTRY
5640 save_VertexAttrib4fARB(GLuint index, GLfloat x, GLfloat y, GLfloat z,
5641                        GLfloat w)
5642 {
5643    if (index < MAX_VERTEX_GENERIC_ATTRIBS)
5644       save_Attr4fARB(index, x, y, z, w);
5645    else
5646       index_error();
5647 }
5648
5649 static void GLAPIENTRY
5650 save_VertexAttrib4fvARB(GLuint index, const GLfloat * v)
5651 {
5652    if (index < MAX_VERTEX_GENERIC_ATTRIBS)
5653       save_Attr4fARB(index, v[0], v[1], v[2], v[3]);
5654    else
5655       index_error();
5656 }
5657
5658
5659 /* GL_ARB_shader_objects, GL_ARB_vertex/fragment_shader */
5660
5661 static void GLAPIENTRY
5662 exec_BindAttribLocationARB(GLuint program, GLuint index, const GLchar *name)
5663 {
5664    GET_CURRENT_CONTEXT(ctx);
5665    FLUSH_VERTICES(ctx, 0);
5666    CALL_BindAttribLocationARB(ctx->Exec, (program, index, name));
5667 }
5668
5669 static GLint GLAPIENTRY
5670 exec_GetAttribLocationARB(GLuint program, const GLchar *name)
5671 {
5672    GET_CURRENT_CONTEXT(ctx);
5673    FLUSH_VERTICES(ctx, 0);
5674    return CALL_GetAttribLocationARB(ctx->Exec, (program, name));
5675 }
5676 /* XXX more shader functions needed here */
5677
5678
5679
5680 #if FEATURE_EXT_framebuffer_blit
5681 static void GLAPIENTRY
5682 save_BlitFramebufferEXT(GLint srcX0, GLint srcY0, GLint srcX1, GLint srcY1,
5683                         GLint dstX0, GLint dstY0, GLint dstX1, GLint dstY1,
5684                         GLbitfield mask, GLenum filter)
5685 {
5686    GET_CURRENT_CONTEXT(ctx);
5687    Node *n;
5688    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
5689    n = ALLOC_INSTRUCTION(ctx, OPCODE_BLIT_FRAMEBUFFER, 10);
5690    if (n) {
5691       n[1].i = srcX0;
5692       n[2].i = srcY0;
5693       n[3].i = srcX1;
5694       n[4].i = srcY1;
5695       n[5].i = dstX0;
5696       n[6].i = dstY0;
5697       n[7].i = dstX1;
5698       n[8].i = dstY1;
5699       n[9].i = mask;
5700       n[10].e = filter;
5701    }
5702    if (ctx->ExecuteFlag) {
5703       CALL_BlitFramebufferEXT(ctx->Exec, (srcX0, srcY0, srcX1, srcY1,
5704                                           dstX0, dstY0, dstX1, dstY1,
5705                                           mask, filter));
5706    }
5707 }
5708 #endif
5709
5710
5711 /** GL_EXT_provoking_vertex */
5712 static void GLAPIENTRY
5713 save_ProvokingVertexEXT(GLenum mode)
5714 {
5715    GET_CURRENT_CONTEXT(ctx);
5716    Node *n;
5717    ASSERT_OUTSIDE_SAVE_BEGIN_END_AND_FLUSH(ctx);
5718    n = ALLOC_INSTRUCTION(ctx, OPCODE_PROVOKING_VERTEX, 1);
5719    if (n) {
5720       n[1].e = mode;
5721    }
5722    if (ctx->ExecuteFlag) {
5723       /*CALL_ProvokingVertexEXT(ctx->Exec, (mode));*/
5724       _mesa_ProvokingVertexEXT(mode);
5725    }
5726 }
5727
5728
5729
5730 /**
5731  * Save an error-generating command into display list.
5732  *
5733  * KW: Will appear in the list before the vertex buffer containing the
5734  * command that provoked the error.  I don't see this as a problem.
5735  */
5736 static void
5737 save_error(GLcontext *ctx, GLenum error, const char *s)
5738 {
5739    Node *n;
5740    n = ALLOC_INSTRUCTION(ctx, OPCODE_ERROR, 2);
5741    if (n) {
5742       n[1].e = error;
5743       n[2].data = (void *) s;
5744    }
5745 }
5746
5747
5748 /**
5749  * Compile an error into current display list.
5750  */
5751 void
5752 _mesa_compile_error(GLcontext *ctx, GLenum error, const char *s)
5753 {
5754    if (ctx->CompileFlag)
5755       save_error(ctx, error, s);
5756    if (ctx->ExecuteFlag)
5757       _mesa_error(ctx, error, s);
5758 }
5759
5760
5761 /**
5762  * Test if ID names a display list.
5763  */
5764 static GLboolean
5765 islist(GLcontext *ctx, GLuint list)
5766 {
5767    if (list > 0 && lookup_list(ctx, list)) {
5768       return GL_TRUE;
5769    }
5770    else {
5771       return GL_FALSE;
5772    }
5773 }
5774
5775
5776
5777 /**********************************************************************/
5778 /*                     Display list execution                         */
5779 /**********************************************************************/
5780
5781
5782 /*
5783  * Execute a display list.  Note that the ListBase offset must have already
5784  * been added before calling this function.  I.e. the list argument is
5785  * the absolute list number, not relative to ListBase.
5786  * \param list - display list number
5787  */
5788 static void
5789 execute_list(GLcontext *ctx, GLuint list)
5790 {
5791    struct gl_display_list *dlist;
5792    Node *n;
5793    GLboolean done;
5794
5795    if (list == 0 || !islist(ctx, list))
5796       return;
5797
5798    if (ctx->ListState.CallDepth == MAX_LIST_NESTING) {
5799       /* raise an error? */
5800       return;
5801    }
5802
5803    dlist = lookup_list(ctx, list);
5804    if (!dlist)
5805       return;
5806
5807    ctx->ListState.CallDepth++;
5808
5809    if (ctx->Driver.BeginCallList)
5810       ctx->Driver.BeginCallList(ctx, dlist);
5811
5812    n = dlist->Head;
5813
5814    done = GL_FALSE;
5815    while (!done) {
5816       OpCode opcode = n[0].opcode;
5817       int i = (int) n[0].opcode - (int) OPCODE_EXT_0;
5818
5819       if (i >= 0 && i < (GLint) ctx->ListExt.NumOpcodes) {
5820          /* this is a driver-extended opcode */
5821          ctx->ListExt.Opcode[i].Execute(ctx, &n[1]);
5822          n += ctx->ListExt.Opcode[i].Size;
5823       }
5824       else {
5825          switch (opcode) {
5826          case OPCODE_ERROR:
5827             _mesa_error(ctx, n[1].e, (const char *) n[2].data);
5828             break;
5829          case OPCODE_ACCUM:
5830             CALL_Accum(ctx->Exec, (n[1].e, n[2].f));
5831             break;
5832          case OPCODE_ALPHA_FUNC:
5833             CALL_AlphaFunc(ctx->Exec, (n[1].e, n[2].f));
5834             break;
5835          case OPCODE_BIND_TEXTURE:
5836             CALL_BindTexture(ctx->Exec, (n[1].e, n[2].ui));
5837             break;
5838          case OPCODE_BITMAP:
5839             {
5840                const struct gl_pixelstore_attrib save = ctx->Unpack;
5841                ctx->Unpack = ctx->DefaultPacking;
5842                CALL_Bitmap(ctx->Exec, ((GLsizei) n[1].i, (GLsizei) n[2].i,
5843                                        n[3].f, n[4].f, n[5].f, n[6].f,
5844                                        (const GLubyte *) n[7].data));
5845                ctx->Unpack = save;      /* restore */
5846             }
5847             break;
5848          case OPCODE_BLEND_COLOR:
5849             CALL_BlendColor(ctx->Exec, (n[1].f, n[2].f, n[3].f, n[4].f));
5850             break;
5851          case OPCODE_BLEND_EQUATION:
5852             CALL_BlendEquation(ctx->Exec, (n[1].e));
5853             break;
5854          case OPCODE_BLEND_EQUATION_SEPARATE:
5855             CALL_BlendEquationSeparateEXT(ctx->Exec, (n[1].e, n[2].e));
5856             break;
5857          case OPCODE_BLEND_FUNC_SEPARATE:
5858             CALL_BlendFuncSeparateEXT(ctx->Exec,
5859                                       (n[1].e, n[2].e, n[3].e, n[4].e));
5860             break;
5861          case OPCODE_CALL_LIST:
5862             /* Generated by glCallList(), don't add ListBase */
5863             if (ctx->ListState.CallDepth < MAX_LIST_NESTING) {
5864                execute_list(ctx, n[1].ui);
5865             }
5866             break;
5867          case OPCODE_CALL_LIST_OFFSET:
5868             /* Generated by glCallLists() so we must add ListBase */
5869             if (n[2].b) {
5870                /* user specified a bad data type at compile time */
5871                _mesa_error(ctx, GL_INVALID_ENUM, "glCallLists(type)");
5872             }
5873             else if (ctx->ListState.CallDepth < MAX_LIST_NESTING) {
5874                GLuint list = (GLuint) (ctx->List.ListBase + n[1].i);
5875                execute_list(ctx, list);
5876             }
5877             break;
5878          case OPCODE_CLEAR:
5879             CALL_Clear(ctx->Exec, (n[1].bf));
5880             break;
5881          case OPCODE_CLEAR_COLOR:
5882             CALL_ClearColor(ctx->Exec, (n[1].f, n[2].f, n[3].f, n[4].f));
5883             break;
5884          case OPCODE_CLEAR_ACCUM:
5885             CALL_ClearAccum(ctx->Exec, (n[1].f, n[2].f, n[3].f, n[4].f));
5886             break;
5887          case OPCODE_CLEAR_DEPTH:
5888             CALL_ClearDepth(ctx->Exec, ((GLclampd) n[1].f));
5889             break;
5890          case OPCODE_CLEAR_INDEX:
5891             CALL_ClearIndex(ctx->Exec, ((GLfloat) n[1].ui));
5892             break;
5893          case OPCODE_CLEAR_STENCIL:
5894             CALL_ClearStencil(ctx->Exec, (n[1].i));
5895             break;
5896          case OPCODE_CLIP_PLANE:
5897             {
5898                GLdouble eq[4];
5899                eq[0] = n[2].f;
5900                eq[1] = n[3].f;
5901                eq[2] = n[4].f;
5902                eq[3] = n[5].f;
5903                CALL_ClipPlane(ctx->Exec, (n[1].e, eq));
5904             }
5905             break;
5906          case OPCODE_COLOR_MASK:
5907             CALL_ColorMask(ctx->Exec, (n[1].b, n[2].b, n[3].b, n[4].b));
5908             break;
5909          case OPCODE_COLOR_MATERIAL:
5910             CALL_ColorMaterial(ctx->Exec, (n[1].e, n[2].e));
5911             break;
5912          case OPCODE_COLOR_TABLE:
5913             {
5914                const struct gl_pixelstore_attrib save = ctx->Unpack;
5915                ctx->Unpack = ctx->DefaultPacking;
5916                CALL_ColorTable(ctx->Exec, (n[1].e, n[2].e, n[3].i, n[4].e,
5917                                            n[5].e, n[6].data));
5918                ctx->Unpack = save;      /* restore */
5919             }
5920             break;
5921          case OPCODE_COLOR_TABLE_PARAMETER_FV:
5922             {
5923                GLfloat params[4];
5924                params[0] = n[3].f;
5925                params[1] = n[4].f;
5926                params[2] = n[5].f;
5927                params[3] = n[6].f;
5928                CALL_ColorTableParameterfv(ctx->Exec,
5929                                           (n[1].e, n[2].e, params));
5930             }
5931             break;
5932          case OPCODE_COLOR_TABLE_PARAMETER_IV:
5933             {
5934                GLint params[4];
5935                params[0] = n[3].i;
5936                params[1] = n[4].i;
5937                params[2] = n[5].i;
5938                params[3] = n[6].i;
5939                CALL_ColorTableParameteriv(ctx->Exec,
5940                                           (n[1].e, n[2].e, params));
5941             }
5942             break;
5943          case OPCODE_COLOR_SUB_TABLE:
5944             {
5945                const struct gl_pixelstore_attrib save = ctx->Unpack;
5946                ctx->Unpack = ctx->DefaultPacking;
5947                CALL_ColorSubTable(ctx->Exec, (n[1].e, n[2].i, n[3].i,
5948                                               n[4].e, n[5].e, n[6].data));
5949                ctx->Unpack = save;      /* restore */
5950             }
5951             break;
5952          case OPCODE_CONVOLUTION_FILTER_1D:
5953             {
5954                const struct gl_pixelstore_attrib save = ctx->Unpack;
5955                ctx->Unpack = ctx->DefaultPacking;
5956                CALL_ConvolutionFilter1D(ctx->Exec, (n[1].e, n[2].i, n[3].i,
5957                                                     n[4].e, n[5].e,
5958                                                     n[6].data));
5959                ctx->Unpack = save;      /* restore */
5960             }
5961             break;
5962          case OPCODE_CONVOLUTION_FILTER_2D:
5963             {
5964                const struct gl_pixelstore_attrib save = ctx->Unpack;
5965                ctx->Unpack = ctx->DefaultPacking;
5966                CALL_ConvolutionFilter2D(ctx->Exec, (n[1].e, n[2].i, n[3].i,
5967                                                     n[4].i, n[5].e, n[6].e,
5968                                                     n[7].data));
5969                ctx->Unpack = save;      /* restore */
5970             }
5971             break;
5972          case OPCODE_CONVOLUTION_PARAMETER_I:
5973             CALL_ConvolutionParameteri(ctx->Exec, (n[1].e, n[2].e, n[3].i));
5974             break;
5975          case OPCODE_CONVOLUTION_PARAMETER_IV:
5976             {
5977                GLint params[4];
5978                params[0] = n[3].i;
5979                params[1] = n[4].i;
5980                params[2] = n[5].i;
5981                params[3] = n[6].i;
5982                CALL_ConvolutionParameteriv(ctx->Exec,
5983                                            (n[1].e, n[2].e, params));
5984             }
5985             break;
5986          case OPCODE_CONVOLUTION_PARAMETER_F:
5987             CALL_ConvolutionParameterf(ctx->Exec, (n[1].e, n[2].e, n[3].f));
5988             break;
5989          case OPCODE_CONVOLUTION_PARAMETER_FV:
5990             {
5991                GLfloat params[4];
5992                params[0] = n[3].f;
5993                params[1] = n[4].f;
5994                params[2] = n[5].f;
5995                params[3] = n[6].f;
5996                CALL_ConvolutionParameterfv(ctx->Exec,
5997                                            (n[1].e, n[2].e, params));
5998             }
5999             break;
6000          case OPCODE_COPY_COLOR_SUB_TABLE:
6001             CALL_CopyColorSubTable(ctx->Exec, (n[1].e, n[2].i,
6002                                                n[3].i, n[4].i, n[5].i));
6003             break;
6004          case OPCODE_COPY_COLOR_TABLE:
6005             CALL_CopyColorSubTable(ctx->Exec, (n[1].e, n[2].i,
6006                                                n[3].i, n[4].i, n[5].i));
6007             break;
6008          case OPCODE_COPY_PIXELS:
6009             CALL_CopyPixels(ctx->Exec, (n[1].i, n[2].i,
6010                                         (GLsizei) n[3].i, (GLsizei) n[4].i,
6011                                         n[5].e));
6012             break;
6013          case OPCODE_COPY_TEX_IMAGE1D:
6014             CALL_CopyTexImage1D(ctx->Exec, (n[1].e, n[2].i, n[3].e, n[4].i,
6015                                             n[5].i, n[6].i, n[7].i));
6016             break;
6017          case OPCODE_COPY_TEX_IMAGE2D:
6018             CALL_CopyTexImage2D(ctx->Exec, (n[1].e, n[2].i, n[3].e, n[4].i,
6019                                             n[5].i, n[6].i, n[7].i, n[8].i));
6020             break;
6021          case OPCODE_COPY_TEX_SUB_IMAGE1D:
6022             CALL_CopyTexSubImage1D(ctx->Exec, (n[1].e, n[2].i, n[3].i,
6023                                                n[4].i, n[5].i, n[6].i));
6024             break;
6025          case OPCODE_COPY_TEX_SUB_IMAGE2D:
6026             CALL_CopyTexSubImage2D(ctx->Exec, (n[1].e, n[2].i, n[3].i,
6027                                                n[4].i, n[5].i, n[6].i, n[7].i,
6028                                                n[8].i));
6029             break;
6030          case OPCODE_COPY_TEX_SUB_IMAGE3D:
6031             CALL_CopyTexSubImage3D(ctx->Exec, (n[1].e, n[2].i, n[3].i,
6032                                                n[4].i, n[5].i, n[6].i, n[7].i,
6033                                                n[8].i, n[9].i));
6034             break;
6035          case OPCODE_CULL_FACE:
6036             CALL_CullFace(ctx->Exec, (n[1].e));
6037             break;
6038          case OPCODE_DEPTH_FUNC:
6039             CALL_DepthFunc(ctx->Exec, (n[1].e));
6040             break;
6041          case OPCODE_DEPTH_MASK:
6042             CALL_DepthMask(ctx->Exec, (n[1].b));
6043             break;
6044          case OPCODE_DEPTH_RANGE:
6045             CALL_DepthRange(ctx->Exec,
6046                             ((GLclampd) n[1].f, (GLclampd) n[2].f));
6047             break;
6048          case OPCODE_DISABLE:
6049             CALL_Disable(ctx->Exec, (n[1].e));
6050             break;
6051          case OPCODE_DRAW_BUFFER:
6052             CALL_DrawBuffer(ctx->Exec, (n[1].e));
6053             break;
6054          case OPCODE_DRAW_PIXELS:
6055             {
6056                const struct gl_pixelstore_attrib save = ctx->Unpack;
6057                ctx->Unpack = ctx->DefaultPacking;
6058                CALL_DrawPixels(ctx->Exec, (n[1].i, n[2].i, n[3].e, n[4].e,
6059                                            n[5].data));
6060                ctx->Unpack = save;      /* restore */
6061             }
6062             break;
6063          case OPCODE_ENABLE:
6064             CALL_Enable(ctx->Exec, (n[1].e));
6065             break;
6066          case OPCODE_EVALMESH1:
6067             CALL_EvalMesh1(ctx->Exec, (n[1].e, n[2].i, n[3].i));
6068             break;
6069          case OPCODE_EVALMESH2:
6070             CALL_EvalMesh2(ctx->Exec,
6071                            (n[1].e, n[2].i, n[3].i, n[4].i, n[5].i));
6072             break;
6073          case OPCODE_FOG:
6074             {
6075                GLfloat p[4];
6076                p[0] = n[2].f;
6077                p[1] = n[3].f;
6078                p[2] = n[4].f;
6079                p[3] = n[5].f;
6080                CALL_Fogfv(ctx->Exec, (n[1].e, p));
6081             }
6082             break;
6083          case OPCODE_FRONT_FACE:
6084             CALL_FrontFace(ctx->Exec, (n[1].e));
6085             break;
6086          case OPCODE_FRUSTUM:
6087             CALL_Frustum(ctx->Exec,
6088                          (n[1].f, n[2].f, n[3].f, n[4].f, n[5].f, n[6].f));
6089             break;
6090          case OPCODE_HINT:
6091             CALL_Hint(ctx->Exec, (n[1].e, n[2].e));
6092             break;
6093          case OPCODE_HISTOGRAM:
6094             CALL_Histogram(ctx->Exec, (n[1].e, n[2].i, n[3].e, n[4].b));
6095             break;
6096          case OPCODE_INDEX_MASK:
6097             CALL_IndexMask(ctx->Exec, (n[1].ui));
6098             break;
6099          case OPCODE_INIT_NAMES:
6100             CALL_InitNames(ctx->Exec, ());
6101             break;
6102          case OPCODE_LIGHT:
6103             {
6104                GLfloat p[4];
6105                p[0] = n[3].f;
6106                p[1] = n[4].f;
6107                p[2] = n[5].f;
6108                p[3] = n[6].f;
6109                CALL_Lightfv(ctx->Exec, (n[1].e, n[2].e, p));
6110             }
6111             break;
6112          case OPCODE_LIGHT_MODEL:
6113             {
6114                GLfloat p[4];
6115                p[0] = n[2].f;
6116                p[1] = n[3].f;
6117                p[2] = n[4].f;
6118                p[3] = n[5].f;
6119                CALL_LightModelfv(ctx->Exec, (n[1].e, p));
6120             }
6121             break;
6122          case OPCODE_LINE_STIPPLE:
6123             CALL_LineStipple(ctx->Exec, (n[1].i, n[2].us));
6124             break;
6125          case OPCODE_LINE_WIDTH:
6126             CALL_LineWidth(ctx->Exec, (n[1].f));
6127             break;
6128          case OPCODE_LIST_BASE:
6129             CALL_ListBase(ctx->Exec, (n[1].ui));
6130             break;
6131          case OPCODE_LOAD_IDENTITY:
6132             CALL_LoadIdentity(ctx->Exec, ());
6133             break;
6134          case OPCODE_LOAD_MATRIX:
6135             if (sizeof(Node) == sizeof(GLfloat)) {
6136                CALL_LoadMatrixf(ctx->Exec, (&n[1].f));
6137             }
6138             else {
6139                GLfloat m[16];
6140                GLuint i;
6141                for (i = 0; i < 16; i++) {
6142                   m[i] = n[1 + i].f;
6143                }
6144                CALL_LoadMatrixf(ctx->Exec, (m));
6145             }
6146             break;
6147          case OPCODE_LOAD_NAME:
6148             CALL_LoadName(ctx->Exec, (n[1].ui));
6149             break;
6150          case OPCODE_LOGIC_OP:
6151             CALL_LogicOp(ctx->Exec, (n[1].e));
6152             break;
6153          case OPCODE_MAP1:
6154             {
6155                GLenum target = n[1].e;
6156                GLint ustride = _mesa_evaluator_components(target);
6157                GLint uorder = n[5].i;
6158                GLfloat u1 = n[2].f;
6159                GLfloat u2 = n[3].f;
6160                CALL_Map1f(ctx->Exec, (target, u1, u2, ustride, uorder,
6161                                       (GLfloat *) n[6].data));
6162             }
6163             break;
6164          case OPCODE_MAP2:
6165             {
6166                GLenum target = n[1].e;
6167                GLfloat u1 = n[2].f;
6168                GLfloat u2 = n[3].f;
6169                GLfloat v1 = n[4].f;
6170                GLfloat v2 = n[5].f;
6171                GLint ustride = n[6].i;
6172                GLint vstride = n[7].i;
6173                GLint uorder = n[8].i;
6174                GLint vorder = n[9].i;
6175                CALL_Map2f(ctx->Exec, (target, u1, u2, ustride, uorder,
6176                                       v1, v2, vstride, vorder,
6177                                       (GLfloat *) n[10].data));
6178             }
6179             break;
6180          case OPCODE_MAPGRID1:
6181             CALL_MapGrid1f(ctx->Exec, (n[1].i, n[2].f, n[3].f));
6182             break;
6183          case OPCODE_MAPGRID2:
6184             CALL_MapGrid2f(ctx->Exec,
6185                            (n[1].i, n[2].f, n[3].f, n[4].i, n[5].f, n[6].f));
6186             break;
6187          case OPCODE_MATRIX_MODE:
6188             CALL_MatrixMode(ctx->Exec, (n[1].e));
6189             break;
6190          case OPCODE_MIN_MAX:
6191             CALL_Minmax(ctx->Exec, (n[1].e, n[2].e, n[3].b));
6192             break;
6193          case OPCODE_MULT_MATRIX:
6194             if (sizeof(Node) == sizeof(GLfloat)) {
6195                CALL_MultMatrixf(ctx->Exec, (&n[1].f));
6196             }
6197             else {
6198                GLfloat m[16];
6199                GLuint i;
6200                for (i = 0; i < 16; i++) {
6201                   m[i] = n[1 + i].f;
6202                }
6203                CALL_MultMatrixf(ctx->Exec, (m));
6204             }
6205             break;
6206          case OPCODE_ORTHO:
6207             CALL_Ortho(ctx->Exec,
6208                        (n[1].f, n[2].f, n[3].f, n[4].f, n[5].f, n[6].f));
6209             break;
6210          case OPCODE_PASSTHROUGH:
6211             CALL_PassThrough(ctx->Exec, (n[1].f));
6212             break;
6213          case OPCODE_PIXEL_MAP:
6214             CALL_PixelMapfv(ctx->Exec,
6215                             (n[1].e, n[2].i, (GLfloat *) n[3].data));
6216             break;
6217          case OPCODE_PIXEL_TRANSFER:
6218             CALL_PixelTransferf(ctx->Exec, (n[1].e, n[2].f));
6219             break;
6220          case OPCODE_PIXEL_ZOOM:
6221             CALL_PixelZoom(ctx->Exec, (n[1].f, n[2].f));
6222             break;
6223          case OPCODE_POINT_SIZE:
6224             CALL_PointSize(ctx->Exec, (n[1].f));
6225             break;
6226          case OPCODE_POINT_PARAMETERS:
6227             {
6228                GLfloat params[3];
6229                params[0] = n[2].f;
6230                params[1] = n[3].f;
6231                params[2] = n[4].f;
6232                CALL_PointParameterfvEXT(ctx->Exec, (n[1].e, params));
6233             }
6234             break;
6235          case OPCODE_POLYGON_MODE:
6236             CALL_PolygonMode(ctx->Exec, (n[1].e, n[2].e));
6237             break;
6238          case OPCODE_POLYGON_STIPPLE:
6239             {
6240                const struct gl_pixelstore_attrib save = ctx->Unpack;
6241                ctx->Unpack = ctx->DefaultPacking;
6242                CALL_PolygonStipple(ctx->Exec, ((GLubyte *) n[1].data));
6243                ctx->Unpack = save;      /* restore */
6244             }
6245             break;
6246          case OPCODE_POLYGON_OFFSET:
6247             CALL_PolygonOffset(ctx->Exec, (n[1].f, n[2].f));
6248             break;
6249          case OPCODE_POP_ATTRIB:
6250             CALL_PopAttrib(ctx->Exec, ());
6251             break;
6252          case OPCODE_POP_MATRIX:
6253             CALL_PopMatrix(ctx->Exec, ());
6254             break;
6255          case OPCODE_POP_NAME:
6256             CALL_PopName(ctx->Exec, ());
6257             break;
6258          case OPCODE_PRIORITIZE_TEXTURE:
6259             CALL_PrioritizeTextures(ctx->Exec, (1, &n[1].ui, &n[2].f));
6260             break;
6261          case OPCODE_PUSH_ATTRIB:
6262             CALL_PushAttrib(ctx->Exec, (n[1].bf));
6263             break;
6264          case OPCODE_PUSH_MATRIX:
6265             CALL_PushMatrix(ctx->Exec, ());
6266             break;
6267          case OPCODE_PUSH_NAME:
6268             CALL_PushName(ctx->Exec, (n[1].ui));
6269             break;
6270          case OPCODE_RASTER_POS:
6271             CALL_RasterPos4f(ctx->Exec, (n[1].f, n[2].f, n[3].f, n[4].f));
6272             break;
6273          case OPCODE_READ_BUFFER:
6274             CALL_ReadBuffer(ctx->Exec, (n[1].e));
6275             break;
6276          case OPCODE_RESET_HISTOGRAM:
6277             CALL_ResetHistogram(ctx->Exec, (n[1].e));
6278             break;
6279          case OPCODE_RESET_MIN_MAX:
6280             CALL_ResetMinmax(ctx->Exec, (n[1].e));
6281             break;
6282          case OPCODE_ROTATE:
6283             CALL_Rotatef(ctx->Exec, (n[1].f, n[2].f, n[3].f, n[4].f));
6284             break;
6285          case OPCODE_SCALE:
6286             CALL_Scalef(ctx->Exec, (n[1].f, n[2].f, n[3].f));
6287             break;
6288          case OPCODE_SCISSOR:
6289             CALL_Scissor(ctx->Exec, (n[1].i, n[2].i, n[3].i, n[4].i));
6290             break;
6291          case OPCODE_SHADE_MODEL:
6292             CALL_ShadeModel(ctx->Exec, (n[1].e));
6293             break;
6294          case OPCODE_PROVOKING_VERTEX:
6295             CALL_ProvokingVertexEXT(ctx->Exec, (n[1].e));
6296             break;
6297          case OPCODE_STENCIL_FUNC:
6298             CALL_StencilFunc(ctx->Exec, (n[1].e, n[2].i, n[3].ui));
6299             break;
6300          case OPCODE_STENCIL_MASK:
6301             CALL_StencilMask(ctx->Exec, (n[1].ui));
6302             break;
6303          case OPCODE_STENCIL_OP:
6304             CALL_StencilOp(ctx->Exec, (n[1].e, n[2].e, n[3].e));
6305             break;
6306          case OPCODE_STENCIL_FUNC_SEPARATE:
6307             CALL_StencilFuncSeparate(ctx->Exec,
6308                                      (n[1].e, n[2].e, n[3].i, n[4].ui));
6309             break;
6310          case OPCODE_STENCIL_MASK_SEPARATE:
6311             CALL_StencilMaskSeparate(ctx->Exec, (n[1].e, n[2].ui));
6312             break;
6313          case OPCODE_STENCIL_OP_SEPARATE:
6314             CALL_StencilOpSeparate(ctx->Exec,
6315                                    (n[1].e, n[2].e, n[3].e, n[4].e));
6316             break;
6317          case OPCODE_TEXENV:
6318             {
6319                GLfloat params[4];
6320                params[0] = n[3].f;
6321                params[1] = n[4].f;
6322                params[2] = n[5].f;
6323                params[3] = n[6].f;
6324                CALL_TexEnvfv(ctx->Exec, (n[1].e, n[2].e, params));
6325             }
6326             break;
6327          case OPCODE_TEXGEN:
6328             {
6329                GLfloat params[4];
6330                params[0] = n[3].f;
6331                params[1] = n[4].f;
6332                params[2] = n[5].f;
6333                params[3] = n[6].f;
6334                CALL_TexGenfv(ctx->Exec, (n[1].e, n[2].e, params));
6335             }
6336             break;
6337          case OPCODE_TEXPARAMETER:
6338             {
6339                GLfloat params[4];
6340                params[0] = n[3].f;
6341                params[1] = n[4].f;
6342                params[2] = n[5].f;
6343                params[3] = n[6].f;
6344                CALL_TexParameterfv(ctx->Exec, (n[1].e, n[2].e, params));
6345             }
6346             break;
6347          case OPCODE_TEX_IMAGE1D:
6348             {
6349                const struct gl_pixelstore_attrib save = ctx->Unpack;
6350                ctx->Unpack = ctx->DefaultPacking;
6351                CALL_TexImage1D(ctx->Exec, (n[1].e,      /* target */
6352                                            n[2].i,      /* level */
6353                                            n[3].i,      /* components */
6354                                            n[4].i,      /* width */
6355                                            n[5].e,      /* border */
6356                                            n[6].e,      /* format */
6357                                            n[7].e,      /* type */
6358                                            n[8].data));
6359                ctx->Unpack = save;      /* restore */
6360             }
6361             break;
6362          case OPCODE_TEX_IMAGE2D:
6363             {
6364                const struct gl_pixelstore_attrib save = ctx->Unpack;
6365                ctx->Unpack = ctx->DefaultPacking;
6366                CALL_TexImage2D(ctx->Exec, (n[1].e,      /* target */
6367                                            n[2].i,      /* level */
6368                                            n[3].i,      /* components */
6369                                            n[4].i,      /* width */
6370                                            n[5].i,      /* height */
6371                                            n[6].e,      /* border */
6372                                            n[7].e,      /* format */
6373                                            n[8].e,      /* type */
6374                                            n[9].data));
6375                ctx->Unpack = save;      /* restore */
6376             }
6377             break;
6378          case OPCODE_TEX_IMAGE3D:
6379             {
6380                const struct gl_pixelstore_attrib save = ctx->Unpack;
6381                ctx->Unpack = ctx->DefaultPacking;
6382                CALL_TexImage3D(ctx->Exec, (n[1].e,      /* target */
6383                                            n[2].i,      /* level */
6384                                            n[3].i,      /* components */
6385                                            n[4].i,      /* width */
6386                                            n[5].i,      /* height */
6387                                            n[6].i,      /* depth  */
6388                                            n[7].e,      /* border */
6389                                            n[8].e,      /* format */
6390                                            n[9].e,      /* type */
6391                                            n[10].data));
6392                ctx->Unpack = save;      /* restore */
6393             }
6394             break;
6395          case OPCODE_TEX_SUB_IMAGE1D:
6396             {
6397                const struct gl_pixelstore_attrib save = ctx->Unpack;
6398                ctx->Unpack = ctx->DefaultPacking;
6399                CALL_TexSubImage1D(ctx->Exec, (n[1].e, n[2].i, n[3].i,
6400                                               n[4].i, n[5].e,
6401                                               n[6].e, n[7].data));
6402                ctx->Unpack = save;      /* restore */
6403             }
6404             break;
6405          case OPCODE_TEX_SUB_IMAGE2D:
6406             {
6407                const struct gl_pixelstore_attrib save = ctx->Unpack;
6408                ctx->Unpack = ctx->DefaultPacking;
6409                CALL_TexSubImage2D(ctx->Exec, (n[1].e, n[2].i, n[3].i,
6410                                               n[4].i, n[5].e,
6411                                               n[6].i, n[7].e, n[8].e,
6412                                               n[9].data));
6413                ctx->Unpack = save;      /* restore */
6414             }
6415             break;
6416          case OPCODE_TEX_SUB_IMAGE3D:
6417             {
6418                const struct gl_pixelstore_attrib save = ctx->Unpack;
6419                ctx->Unpack = ctx->DefaultPacking;
6420                CALL_TexSubImage3D(ctx->Exec, (n[1].e, n[2].i, n[3].i,
6421                                               n[4].i, n[5].i, n[6].i, n[7].i,
6422                                               n[8].i, n[9].e, n[10].e,
6423                                               n[11].data));
6424                ctx->Unpack = save;      /* restore */
6425             }
6426             break;
6427          case OPCODE_TRANSLATE:
6428             CALL_Translatef(ctx->Exec, (n[1].f, n[2].f, n[3].f));
6429             break;
6430          case OPCODE_VIEWPORT:
6431             CALL_Viewport(ctx->Exec, (n[1].i, n[2].i,
6432                                       (GLsizei) n[3].i, (GLsizei) n[4].i));
6433             break;
6434          case OPCODE_WINDOW_POS:
6435             CALL_WindowPos4fMESA(ctx->Exec, (n[1].f, n[2].f, n[3].f, n[4].f));
6436             break;
6437          case OPCODE_ACTIVE_TEXTURE:   /* GL_ARB_multitexture */
6438             CALL_ActiveTextureARB(ctx->Exec, (n[1].e));
6439             break;
6440          case OPCODE_COMPRESSED_TEX_IMAGE_1D:  /* GL_ARB_texture_compression */
6441             CALL_CompressedTexImage1DARB(ctx->Exec, (n[1].e, n[2].i, n[3].e,
6442                                                      n[4].i, n[5].i, n[6].i,
6443                                                      n[7].data));
6444             break;
6445          case OPCODE_COMPRESSED_TEX_IMAGE_2D:  /* GL_ARB_texture_compression */
6446             CALL_CompressedTexImage2DARB(ctx->Exec, (n[1].e, n[2].i, n[3].e,
6447                                                      n[4].i, n[5].i, n[6].i,
6448                                                      n[7].i, n[8].data));
6449             break;
6450          case OPCODE_COMPRESSED_TEX_IMAGE_3D:  /* GL_ARB_texture_compression */
6451             CALL_CompressedTexImage3DARB(ctx->Exec, (n[1].e, n[2].i, n[3].e,
6452                                                      n[4].i, n[5].i, n[6].i,
6453                                                      n[7].i, n[8].i,
6454                                                      n[9].data));
6455             break;
6456          case OPCODE_COMPRESSED_TEX_SUB_IMAGE_1D:      /* GL_ARB_texture_compress */
6457             CALL_CompressedTexSubImage1DARB(ctx->Exec,
6458                                             (n[1].e, n[2].i, n[3].i, n[4].i,
6459                                              n[5].e, n[6].i, n[7].data));
6460             break;
6461          case OPCODE_COMPRESSED_TEX_SUB_IMAGE_2D:      /* GL_ARB_texture_compress */
6462             CALL_CompressedTexSubImage2DARB(ctx->Exec,
6463                                             (n[1].e, n[2].i, n[3].i, n[4].i,
6464                                              n[5].i, n[6].i, n[7].e, n[8].i,
6465                                              n[9].data));
6466             break;
6467          case OPCODE_COMPRESSED_TEX_SUB_IMAGE_3D:      /* GL_ARB_texture_compress */
6468             CALL_CompressedTexSubImage3DARB(ctx->Exec,
6469                                             (n[1].e, n[2].i, n[3].i, n[4].i,
6470                                              n[5].i, n[6].i, n[7].i, n[8].i,
6471                                              n[9].e, n[10].i, n[11].data));
6472             break;
6473          case OPCODE_SAMPLE_COVERAGE:  /* GL_ARB_multisample */
6474             CALL_SampleCoverageARB(ctx->Exec, (n[1].f, n[2].b));
6475             break;
6476          case OPCODE_WINDOW_POS_ARB:   /* GL_ARB_window_pos */
6477             CALL_WindowPos3fMESA(ctx->Exec, (n[1].f, n[2].f, n[3].f));
6478             break;
6479 #if FEATURE_NV_vertex_program || FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
6480          case OPCODE_BIND_PROGRAM_NV:  /* GL_NV_vertex_program */
6481             CALL_BindProgramNV(ctx->Exec, (n[1].e, n[2].ui));
6482             break;
6483 #endif
6484 #if FEATURE_NV_vertex_program
6485          case OPCODE_EXECUTE_PROGRAM_NV:
6486             {
6487                GLfloat v[4];
6488                v[0] = n[3].f;
6489                v[1] = n[4].f;
6490                v[2] = n[5].f;
6491                v[3] = n[6].f;
6492                CALL_ExecuteProgramNV(ctx->Exec, (n[1].e, n[2].ui, v));
6493             }
6494             break;
6495          case OPCODE_REQUEST_RESIDENT_PROGRAMS_NV:
6496             CALL_RequestResidentProgramsNV(ctx->Exec, (n[1].ui,
6497                                                        (GLuint *) n[2].data));
6498             break;
6499          case OPCODE_LOAD_PROGRAM_NV:
6500             CALL_LoadProgramNV(ctx->Exec, (n[1].e, n[2].ui, n[3].i,
6501                                            (const GLubyte *) n[4].data));
6502             break;
6503          case OPCODE_TRACK_MATRIX_NV:
6504             CALL_TrackMatrixNV(ctx->Exec, (n[1].e, n[2].ui, n[3].e, n[4].e));
6505             break;
6506 #endif
6507
6508 #if FEATURE_NV_fragment_program
6509          case OPCODE_PROGRAM_LOCAL_PARAMETER_ARB:
6510             CALL_ProgramLocalParameter4fARB(ctx->Exec,
6511                                             (n[1].e, n[2].ui, n[3].f, n[4].f,
6512                                              n[5].f, n[6].f));
6513             break;
6514          case OPCODE_PROGRAM_NAMED_PARAMETER_NV:
6515             CALL_ProgramNamedParameter4fNV(ctx->Exec, (n[1].ui, n[2].i,
6516                                                        (const GLubyte *) n[3].
6517                                                        data, n[4].f, n[5].f,
6518                                                        n[6].f, n[7].f));
6519             break;
6520 #endif
6521
6522          case OPCODE_ACTIVE_STENCIL_FACE_EXT:
6523             CALL_ActiveStencilFaceEXT(ctx->Exec, (n[1].e));
6524             break;
6525          case OPCODE_DEPTH_BOUNDS_EXT:
6526             CALL_DepthBoundsEXT(ctx->Exec, (n[1].f, n[2].f));
6527             break;
6528 #if FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
6529          case OPCODE_PROGRAM_STRING_ARB:
6530             CALL_ProgramStringARB(ctx->Exec,
6531                                   (n[1].e, n[2].e, n[3].i, n[4].data));
6532             break;
6533 #endif
6534 #if FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program || FEATURE_NV_vertex_program
6535          case OPCODE_PROGRAM_ENV_PARAMETER_ARB:
6536             CALL_ProgramEnvParameter4fARB(ctx->Exec, (n[1].e, n[2].ui, n[3].f,
6537                                                       n[4].f, n[5].f,
6538                                                       n[6].f));
6539             break;
6540 #endif
6541 #if FEATURE_ARB_occlusion_query
6542          case OPCODE_BEGIN_QUERY_ARB:
6543             CALL_BeginQueryARB(ctx->Exec, (n[1].e, n[2].ui));
6544             break;
6545          case OPCODE_END_QUERY_ARB:
6546             CALL_EndQueryARB(ctx->Exec, (n[1].e));
6547             break;
6548 #endif
6549          case OPCODE_DRAW_BUFFERS_ARB:
6550             {
6551                GLenum buffers[MAX_DRAW_BUFFERS];
6552                GLint i, count = MIN2(n[1].i, MAX_DRAW_BUFFERS);
6553                for (i = 0; i < count; i++)
6554                   buffers[i] = n[2 + i].e;
6555                CALL_DrawBuffersARB(ctx->Exec, (n[1].i, buffers));
6556             }
6557             break;
6558 #if FEATURE_EXT_framebuffer_blit
6559          case OPCODE_BLIT_FRAMEBUFFER:
6560             CALL_BlitFramebufferEXT(ctx->Exec, (n[1].i, n[2].i, n[3].i, n[4].i,
6561                                                 n[5].i, n[6].i, n[7].i, n[8].i,
6562                                                 n[9].i, n[10].e));
6563             break;
6564 #endif
6565          case OPCODE_TEX_BUMP_PARAMETER_ATI:
6566             {
6567                GLfloat values[4];
6568                GLuint i, pname = n[1].ui;
6569
6570                for (i = 0; i < 4; i++)
6571                   values[i] = n[1 + i].f;
6572                CALL_TexBumpParameterfvATI(ctx->Exec, (pname, values));
6573             }
6574             break;
6575 #if FEATURE_ATI_fragment_shader
6576          case OPCODE_BIND_FRAGMENT_SHADER_ATI:
6577             CALL_BindFragmentShaderATI(ctx->Exec, (n[1].i));
6578             break;
6579          case OPCODE_SET_FRAGMENT_SHADER_CONSTANTS_ATI:
6580             {
6581                GLfloat values[4];
6582                GLuint i, dst = n[1].ui;
6583
6584                for (i = 0; i < 4; i++)
6585                   values[i] = n[1 + i].f;
6586                CALL_SetFragmentShaderConstantATI(ctx->Exec, (dst, values));
6587             }
6588             break;
6589 #endif
6590          case OPCODE_ATTR_1F_NV:
6591             CALL_VertexAttrib1fNV(ctx->Exec, (n[1].e, n[2].f));
6592             break;
6593          case OPCODE_ATTR_2F_NV:
6594             /* Really shouldn't have to do this - the Node structure
6595              * is convenient, but it would be better to store the data
6596              * packed appropriately so that it can be sent directly
6597              * on.  With x86_64 becoming common, this will start to
6598              * matter more.
6599              */
6600             if (sizeof(Node) == sizeof(GLfloat))
6601                CALL_VertexAttrib2fvNV(ctx->Exec, (n[1].e, &n[2].f));
6602             else
6603                CALL_VertexAttrib2fNV(ctx->Exec, (n[1].e, n[2].f, n[3].f));
6604             break;
6605          case OPCODE_ATTR_3F_NV:
6606             if (sizeof(Node) == sizeof(GLfloat))
6607                CALL_VertexAttrib3fvNV(ctx->Exec, (n[1].e, &n[2].f));
6608             else
6609                CALL_VertexAttrib3fNV(ctx->Exec, (n[1].e, n[2].f, n[3].f,
6610                                                  n[4].f));
6611             break;
6612          case OPCODE_ATTR_4F_NV:
6613             if (sizeof(Node) == sizeof(GLfloat))
6614                CALL_VertexAttrib4fvNV(ctx->Exec, (n[1].e, &n[2].f));
6615             else
6616                CALL_VertexAttrib4fNV(ctx->Exec, (n[1].e, n[2].f, n[3].f,
6617                                                  n[4].f, n[5].f));
6618             break;
6619          case OPCODE_ATTR_1F_ARB:
6620             CALL_VertexAttrib1fARB(ctx->Exec, (n[1].e, n[2].f));
6621             break;
6622          case OPCODE_ATTR_2F_ARB:
6623             /* Really shouldn't have to do this - the Node structure
6624              * is convenient, but it would be better to store the data
6625              * packed appropriately so that it can be sent directly
6626              * on.  With x86_64 becoming common, this will start to
6627              * matter more.
6628              */
6629             if (sizeof(Node) == sizeof(GLfloat))
6630                CALL_VertexAttrib2fvARB(ctx->Exec, (n[1].e, &n[2].f));
6631             else
6632                CALL_VertexAttrib2fARB(ctx->Exec, (n[1].e, n[2].f, n[3].f));
6633             break;
6634          case OPCODE_ATTR_3F_ARB:
6635             if (sizeof(Node) == sizeof(GLfloat))
6636                CALL_VertexAttrib3fvARB(ctx->Exec, (n[1].e, &n[2].f));
6637             else
6638                CALL_VertexAttrib3fARB(ctx->Exec, (n[1].e, n[2].f, n[3].f,
6639                                                   n[4].f));
6640             break;
6641          case OPCODE_ATTR_4F_ARB:
6642             if (sizeof(Node) == sizeof(GLfloat))
6643                CALL_VertexAttrib4fvARB(ctx->Exec, (n[1].e, &n[2].f));
6644             else
6645                CALL_VertexAttrib4fARB(ctx->Exec, (n[1].e, n[2].f, n[3].f,
6646                                                   n[4].f, n[5].f));
6647             break;
6648          case OPCODE_MATERIAL:
6649             if (sizeof(Node) == sizeof(GLfloat))
6650                CALL_Materialfv(ctx->Exec, (n[1].e, n[2].e, &n[3].f));
6651             else {
6652                GLfloat f[4];
6653                f[0] = n[3].f;
6654                f[1] = n[4].f;
6655                f[2] = n[5].f;
6656                f[3] = n[6].f;
6657                CALL_Materialfv(ctx->Exec, (n[1].e, n[2].e, f));
6658             }
6659             break;
6660          case OPCODE_BEGIN:
6661             CALL_Begin(ctx->Exec, (n[1].e));
6662             break;
6663          case OPCODE_END:
6664             CALL_End(ctx->Exec, ());
6665             break;
6666          case OPCODE_RECTF:
6667             CALL_Rectf(ctx->Exec, (n[1].f, n[2].f, n[3].f, n[4].f));
6668             break;
6669          case OPCODE_EVAL_C1:
6670             CALL_EvalCoord1f(ctx->Exec, (n[1].f));
6671             break;
6672          case OPCODE_EVAL_C2:
6673             CALL_EvalCoord2f(ctx->Exec, (n[1].f, n[2].f));
6674             break;
6675          case OPCODE_EVAL_P1:
6676             CALL_EvalPoint1(ctx->Exec, (n[1].i));
6677             break;
6678          case OPCODE_EVAL_P2:
6679             CALL_EvalPoint2(ctx->Exec, (n[1].i, n[2].i));
6680             break;
6681
6682          case OPCODE_CONTINUE:
6683             n = (Node *) n[1].next;
6684             break;
6685          case OPCODE_END_OF_LIST:
6686             done = GL_TRUE;
6687             break;
6688          default:
6689             {
6690                char msg[1000];
6691                _mesa_sprintf(msg, "Error in execute_list: opcode=%d",
6692                              (int) opcode);
6693                _mesa_problem(ctx, msg);
6694             }
6695             done = GL_TRUE;
6696          }
6697
6698          /* increment n to point to next compiled command */
6699          if (opcode != OPCODE_CONTINUE) {
6700             n += InstSize[opcode];
6701          }
6702       }
6703    }
6704
6705    if (ctx->Driver.EndCallList)
6706       ctx->Driver.EndCallList(ctx);
6707
6708    ctx->ListState.CallDepth--;
6709 }
6710
6711
6712
6713 /**********************************************************************/
6714 /*                           GL functions                             */
6715 /**********************************************************************/
6716
6717 /**
6718  * Test if a display list number is valid.
6719  */
6720 GLboolean GLAPIENTRY
6721 _mesa_IsList(GLuint list)
6722 {
6723    GET_CURRENT_CONTEXT(ctx);
6724    FLUSH_VERTICES(ctx, 0);      /* must be called before assert */
6725    ASSERT_OUTSIDE_BEGIN_END_WITH_RETVAL(ctx, GL_FALSE);
6726    return islist(ctx, list);
6727 }
6728
6729
6730 /**
6731  * Delete a sequence of consecutive display lists.
6732  */
6733 void GLAPIENTRY
6734 _mesa_DeleteLists(GLuint list, GLsizei range)
6735 {
6736    GET_CURRENT_CONTEXT(ctx);
6737    GLuint i;
6738    FLUSH_VERTICES(ctx, 0);      /* must be called before assert */
6739    ASSERT_OUTSIDE_BEGIN_END(ctx);
6740
6741    if (range < 0) {
6742       _mesa_error(ctx, GL_INVALID_VALUE, "glDeleteLists");
6743       return;
6744    }
6745    for (i = list; i < list + range; i++) {
6746       destroy_list(ctx, i);
6747    }
6748 }
6749
6750
6751 /**
6752  * Return a display list number, n, such that lists n through n+range-1
6753  * are free.
6754  */
6755 GLuint GLAPIENTRY
6756 _mesa_GenLists(GLsizei range)
6757 {
6758    GET_CURRENT_CONTEXT(ctx);
6759    GLuint base;
6760    FLUSH_VERTICES(ctx, 0);      /* must be called before assert */
6761    ASSERT_OUTSIDE_BEGIN_END_WITH_RETVAL(ctx, 0);
6762
6763    if (range < 0) {
6764       _mesa_error(ctx, GL_INVALID_VALUE, "glGenLists");
6765       return 0;
6766    }
6767    if (range == 0) {
6768       return 0;
6769    }
6770
6771    /*
6772     * Make this an atomic operation
6773     */
6774    _glthread_LOCK_MUTEX(ctx->Shared->Mutex);
6775
6776    base = _mesa_HashFindFreeKeyBlock(ctx->Shared->DisplayList, range);
6777    if (base) {
6778       /* reserve the list IDs by with empty/dummy lists */
6779       GLint i;
6780       for (i = 0; i < range; i++) {
6781          _mesa_HashInsert(ctx->Shared->DisplayList, base + i,
6782                           make_list(base + i, 1));
6783       }
6784    }
6785
6786    _glthread_UNLOCK_MUTEX(ctx->Shared->Mutex);
6787
6788    return base;
6789 }
6790
6791
6792 /**
6793  * Begin a new display list.
6794  */
6795 void GLAPIENTRY
6796 _mesa_NewList(GLuint name, GLenum mode)
6797 {
6798    GET_CURRENT_CONTEXT(ctx);
6799    GLint i;
6800
6801    FLUSH_CURRENT(ctx, 0);       /* must be called before assert */
6802    ASSERT_OUTSIDE_BEGIN_END(ctx);
6803
6804    if (MESA_VERBOSE & VERBOSE_API)
6805       _mesa_debug(ctx, "glNewList %u %s\n", name,
6806                   _mesa_lookup_enum_by_nr(mode));
6807
6808    if (name == 0) {
6809       _mesa_error(ctx, GL_INVALID_VALUE, "glNewList");
6810       return;
6811    }
6812
6813    if (mode != GL_COMPILE && mode != GL_COMPILE_AND_EXECUTE) {
6814       _mesa_error(ctx, GL_INVALID_ENUM, "glNewList");
6815       return;
6816    }
6817
6818    if (ctx->ListState.CurrentList) {
6819       /* already compiling a display list */
6820       _mesa_error(ctx, GL_INVALID_OPERATION, "glNewList");
6821       return;
6822    }
6823
6824    ctx->CompileFlag = GL_TRUE;
6825    ctx->ExecuteFlag = (mode == GL_COMPILE_AND_EXECUTE);
6826
6827    /* Allocate new display list */
6828    ctx->ListState.CurrentList = make_list(name, BLOCK_SIZE);
6829    ctx->ListState.CurrentBlock = ctx->ListState.CurrentList->Head;
6830    ctx->ListState.CurrentPos = 0;
6831
6832    /* Reset acumulated list state:
6833     */
6834    for (i = 0; i < Elements(ctx->ListState.ActiveAttribSize); i++)
6835       ctx->ListState.ActiveAttribSize[i] = 0;
6836
6837    for (i = 0; i < Elements(ctx->ListState.ActiveMaterialSize); i++)
6838       ctx->ListState.ActiveMaterialSize[i] = 0;
6839
6840    ctx->Driver.CurrentSavePrimitive = PRIM_UNKNOWN;
6841    ctx->Driver.NewList(ctx, name, mode);
6842
6843    ctx->CurrentDispatch = ctx->Save;
6844    _glapi_set_dispatch(ctx->CurrentDispatch);
6845 }
6846
6847
6848 /**
6849  * End definition of current display list.
6850  */
6851 void GLAPIENTRY
6852 _mesa_EndList(void)
6853 {
6854    GET_CURRENT_CONTEXT(ctx);
6855    SAVE_FLUSH_VERTICES(ctx);
6856    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
6857
6858    if (MESA_VERBOSE & VERBOSE_API)
6859       _mesa_debug(ctx, "glEndList\n");
6860
6861    /* Check that a list is under construction */
6862    if (!ctx->ListState.CurrentList) {
6863       _mesa_error(ctx, GL_INVALID_OPERATION, "glEndList");
6864       return;
6865    }
6866
6867    /* Call before emitting END_OF_LIST, in case the driver wants to
6868     * emit opcodes itself.
6869     */
6870    ctx->Driver.EndList(ctx);
6871
6872    (void) ALLOC_INSTRUCTION(ctx, OPCODE_END_OF_LIST, 0);
6873
6874    /* Destroy old list, if any */
6875    destroy_list(ctx, ctx->ListState.CurrentList->Name);
6876
6877    /* Install the new list */
6878    _mesa_HashInsert(ctx->Shared->DisplayList,
6879                     ctx->ListState.CurrentList->Name,
6880                     ctx->ListState.CurrentList);
6881
6882
6883    if (MESA_VERBOSE & VERBOSE_DISPLAY_LIST)
6884       mesa_print_display_list(ctx->ListState.CurrentList->Name);
6885
6886    ctx->ListState.CurrentList = NULL;
6887    ctx->ExecuteFlag = GL_TRUE;
6888    ctx->CompileFlag = GL_FALSE;
6889
6890    ctx->CurrentDispatch = ctx->Exec;
6891    _glapi_set_dispatch(ctx->CurrentDispatch);
6892 }
6893
6894
6895 void GLAPIENTRY
6896 _mesa_CallList(GLuint list)
6897 {
6898    GLboolean save_compile_flag;
6899    GET_CURRENT_CONTEXT(ctx);
6900    FLUSH_CURRENT(ctx, 0);
6901    /* VERY IMPORTANT:  Save the CompileFlag status, turn it off, */
6902    /* execute the display list, and restore the CompileFlag. */
6903
6904    if (MESA_VERBOSE & VERBOSE_API)
6905       _mesa_debug(ctx, "glCallList %d\n", list);
6906
6907    if (list == 0) {
6908       _mesa_error(ctx, GL_INVALID_VALUE, "glCallList(list==0)");
6909       return;
6910    }
6911
6912 /*     mesa_print_display_list( list ); */
6913
6914    save_compile_flag = ctx->CompileFlag;
6915    if (save_compile_flag) {
6916       ctx->CompileFlag = GL_FALSE;
6917    }
6918
6919    execute_list(ctx, list);
6920    ctx->CompileFlag = save_compile_flag;
6921
6922    /* also restore API function pointers to point to "save" versions */
6923    if (save_compile_flag) {
6924       ctx->CurrentDispatch = ctx->Save;
6925       _glapi_set_dispatch(ctx->CurrentDispatch);
6926    }
6927 }
6928
6929
6930 /**
6931  * Execute glCallLists:  call multiple display lists.
6932  */
6933 void GLAPIENTRY
6934 _mesa_CallLists(GLsizei n, GLenum type, const GLvoid * lists)
6935 {
6936    GET_CURRENT_CONTEXT(ctx);
6937    GLint i;
6938    GLboolean save_compile_flag;
6939
6940    if (MESA_VERBOSE & VERBOSE_API)
6941       _mesa_debug(ctx, "glCallLists %d\n", n);
6942
6943    switch (type) {
6944    case GL_BYTE:
6945    case GL_UNSIGNED_BYTE:
6946    case GL_SHORT:
6947    case GL_UNSIGNED_SHORT:
6948    case GL_INT:
6949    case GL_UNSIGNED_INT:
6950    case GL_FLOAT:
6951    case GL_2_BYTES:
6952    case GL_3_BYTES:
6953    case GL_4_BYTES:
6954       /* OK */
6955       break;
6956    default:
6957       _mesa_error(ctx, GL_INVALID_ENUM, "glCallLists(type)");
6958       return;
6959    }
6960
6961    /* Save the CompileFlag status, turn it off, execute display list,
6962     * and restore the CompileFlag.
6963     */
6964    save_compile_flag = ctx->CompileFlag;
6965    ctx->CompileFlag = GL_FALSE;
6966
6967    for (i = 0; i < n; i++) {
6968       GLuint list = (GLuint) (ctx->List.ListBase + translate_id(i, type, lists));
6969       execute_list(ctx, list);
6970    }
6971
6972    ctx->CompileFlag = save_compile_flag;
6973
6974    /* also restore API function pointers to point to "save" versions */
6975    if (save_compile_flag) {
6976       ctx->CurrentDispatch = ctx->Save;
6977       _glapi_set_dispatch(ctx->CurrentDispatch);
6978    }
6979 }
6980
6981
6982 /**
6983  * Set the offset added to list numbers in glCallLists.
6984  */
6985 void GLAPIENTRY
6986 _mesa_ListBase(GLuint base)
6987 {
6988    GET_CURRENT_CONTEXT(ctx);
6989    FLUSH_VERTICES(ctx, 0);      /* must be called before assert */
6990    ASSERT_OUTSIDE_BEGIN_END(ctx);
6991    ctx->List.ListBase = base;
6992 }
6993
6994
6995 /* Can no longer assume ctx->Exec->Func is equal to _mesa_Func.
6996  */
6997 static void GLAPIENTRY
6998 exec_Finish(void)
6999 {
7000    GET_CURRENT_CONTEXT(ctx);
7001    FLUSH_VERTICES(ctx, 0);
7002    CALL_Finish(ctx->Exec, ());
7003 }
7004
7005 static void GLAPIENTRY
7006 exec_Flush(void)
7007 {
7008    GET_CURRENT_CONTEXT(ctx);
7009    FLUSH_VERTICES(ctx, 0);
7010    CALL_Flush(ctx->Exec, ());
7011 }
7012
7013 static void GLAPIENTRY
7014 exec_GetBooleanv(GLenum pname, GLboolean *params)
7015 {
7016    GET_CURRENT_CONTEXT(ctx);
7017    FLUSH_VERTICES(ctx, 0);
7018    CALL_GetBooleanv(ctx->Exec, (pname, params));
7019 }
7020
7021 static void GLAPIENTRY
7022 exec_GetClipPlane(GLenum plane, GLdouble * equation)
7023 {
7024    GET_CURRENT_CONTEXT(ctx);
7025    FLUSH_VERTICES(ctx, 0);
7026    CALL_GetClipPlane(ctx->Exec, (plane, equation));
7027 }
7028
7029 static void GLAPIENTRY
7030 exec_GetDoublev(GLenum pname, GLdouble *params)
7031 {
7032    GET_CURRENT_CONTEXT(ctx);
7033    FLUSH_VERTICES(ctx, 0);
7034    CALL_GetDoublev(ctx->Exec, (pname, params));
7035 }
7036
7037 static GLenum GLAPIENTRY
7038 exec_GetError(void)
7039 {
7040    GET_CURRENT_CONTEXT(ctx);
7041    FLUSH_VERTICES(ctx, 0);
7042    return CALL_GetError(ctx->Exec, ());
7043 }
7044
7045 static void GLAPIENTRY
7046 exec_GetFloatv(GLenum pname, GLfloat *params)
7047 {
7048    GET_CURRENT_CONTEXT(ctx);
7049    FLUSH_VERTICES(ctx, 0);
7050    CALL_GetFloatv(ctx->Exec, (pname, params));
7051 }
7052
7053 static void GLAPIENTRY
7054 exec_GetIntegerv(GLenum pname, GLint *params)
7055 {
7056    GET_CURRENT_CONTEXT(ctx);
7057    FLUSH_VERTICES(ctx, 0);
7058    CALL_GetIntegerv(ctx->Exec, (pname, params));
7059 }
7060
7061 static void GLAPIENTRY
7062 exec_GetLightfv(GLenum light, GLenum pname, GLfloat *params)
7063 {
7064    GET_CURRENT_CONTEXT(ctx);
7065    FLUSH_VERTICES(ctx, 0);
7066    CALL_GetLightfv(ctx->Exec, (light, pname, params));
7067 }
7068
7069 static void GLAPIENTRY
7070 exec_GetLightiv(GLenum light, GLenum pname, GLint *params)
7071 {
7072    GET_CURRENT_CONTEXT(ctx);
7073    FLUSH_VERTICES(ctx, 0);
7074    CALL_GetLightiv(ctx->Exec, (light, pname, params));
7075 }
7076
7077 static void GLAPIENTRY
7078 exec_GetMapdv(GLenum target, GLenum query, GLdouble * v)
7079 {
7080    GET_CURRENT_CONTEXT(ctx);
7081    FLUSH_VERTICES(ctx, 0);
7082    CALL_GetMapdv(ctx->Exec, (target, query, v));
7083 }
7084
7085 static void GLAPIENTRY
7086 exec_GetMapfv(GLenum target, GLenum query, GLfloat * v)
7087 {
7088    GET_CURRENT_CONTEXT(ctx);
7089    FLUSH_VERTICES(ctx, 0);
7090    CALL_GetMapfv(ctx->Exec, (target, query, v));
7091 }
7092
7093 static void GLAPIENTRY
7094 exec_GetMapiv(GLenum target, GLenum query, GLint * v)
7095 {
7096    GET_CURRENT_CONTEXT(ctx);
7097    FLUSH_VERTICES(ctx, 0);
7098    CALL_GetMapiv(ctx->Exec, (target, query, v));
7099 }
7100
7101 static void GLAPIENTRY
7102 exec_GetMaterialfv(GLenum face, GLenum pname, GLfloat *params)
7103 {
7104    GET_CURRENT_CONTEXT(ctx);
7105    FLUSH_VERTICES(ctx, 0);
7106    CALL_GetMaterialfv(ctx->Exec, (face, pname, params));
7107 }
7108
7109 static void GLAPIENTRY
7110 exec_GetMaterialiv(GLenum face, GLenum pname, GLint *params)
7111 {
7112    GET_CURRENT_CONTEXT(ctx);
7113    FLUSH_VERTICES(ctx, 0);
7114    CALL_GetMaterialiv(ctx->Exec, (face, pname, params));
7115 }
7116
7117 static void GLAPIENTRY
7118 exec_GetPixelMapfv(GLenum map, GLfloat *values)
7119 {
7120    GET_CURRENT_CONTEXT(ctx);
7121    FLUSH_VERTICES(ctx, 0);
7122    CALL_GetPixelMapfv(ctx->Exec, (map, values));
7123 }
7124
7125 static void GLAPIENTRY
7126 exec_GetPixelMapuiv(GLenum map, GLuint *values)
7127 {
7128    GET_CURRENT_CONTEXT(ctx);
7129    FLUSH_VERTICES(ctx, 0);
7130    CALL_GetPixelMapuiv(ctx->Exec, (map, values));
7131 }
7132
7133 static void GLAPIENTRY
7134 exec_GetPixelMapusv(GLenum map, GLushort *values)
7135 {
7136    GET_CURRENT_CONTEXT(ctx);
7137    FLUSH_VERTICES(ctx, 0);
7138    CALL_GetPixelMapusv(ctx->Exec, (map, values));
7139 }
7140
7141 static void GLAPIENTRY
7142 exec_GetPolygonStipple(GLubyte * dest)
7143 {
7144    GET_CURRENT_CONTEXT(ctx);
7145    FLUSH_VERTICES(ctx, 0);
7146    CALL_GetPolygonStipple(ctx->Exec, (dest));
7147 }
7148
7149 static const GLubyte *GLAPIENTRY
7150 exec_GetString(GLenum name)
7151 {
7152    GET_CURRENT_CONTEXT(ctx);
7153    FLUSH_VERTICES(ctx, 0);
7154    return CALL_GetString(ctx->Exec, (name));
7155 }
7156
7157 static void GLAPIENTRY
7158 exec_GetTexEnvfv(GLenum target, GLenum pname, GLfloat *params)
7159 {
7160    GET_CURRENT_CONTEXT(ctx);
7161    FLUSH_VERTICES(ctx, 0);
7162    CALL_GetTexEnvfv(ctx->Exec, (target, pname, params));
7163 }
7164
7165 static void GLAPIENTRY
7166 exec_GetTexEnviv(GLenum target, GLenum pname, GLint *params)
7167 {
7168    GET_CURRENT_CONTEXT(ctx);
7169    FLUSH_VERTICES(ctx, 0);
7170    CALL_GetTexEnviv(ctx->Exec, (target, pname, params));
7171 }
7172
7173 static void GLAPIENTRY
7174 exec_GetTexGendv(GLenum coord, GLenum pname, GLdouble *params)
7175 {
7176    GET_CURRENT_CONTEXT(ctx);
7177    FLUSH_VERTICES(ctx, 0);
7178    CALL_GetTexGendv(ctx->Exec, (coord, pname, params));
7179 }
7180
7181 static void GLAPIENTRY
7182 exec_GetTexGenfv(GLenum coord, GLenum pname, GLfloat *params)
7183 {
7184    GET_CURRENT_CONTEXT(ctx);
7185    FLUSH_VERTICES(ctx, 0);
7186    CALL_GetTexGenfv(ctx->Exec, (coord, pname, params));
7187 }
7188
7189 static void GLAPIENTRY
7190 exec_GetTexGeniv(GLenum coord, GLenum pname, GLint *params)
7191 {
7192    GET_CURRENT_CONTEXT(ctx);
7193    FLUSH_VERTICES(ctx, 0);
7194    CALL_GetTexGeniv(ctx->Exec, (coord, pname, params));
7195 }
7196
7197 static void GLAPIENTRY
7198 exec_GetTexImage(GLenum target, GLint level, GLenum format,
7199                  GLenum type, GLvoid * pixels)
7200 {
7201    GET_CURRENT_CONTEXT(ctx);
7202    FLUSH_VERTICES(ctx, 0);
7203    CALL_GetTexImage(ctx->Exec, (target, level, format, type, pixels));
7204 }
7205
7206 static void GLAPIENTRY
7207 exec_GetTexLevelParameterfv(GLenum target, GLint level,
7208                             GLenum pname, GLfloat *params)
7209 {
7210    GET_CURRENT_CONTEXT(ctx);
7211    FLUSH_VERTICES(ctx, 0);
7212    CALL_GetTexLevelParameterfv(ctx->Exec, (target, level, pname, params));
7213 }
7214
7215 static void GLAPIENTRY
7216 exec_GetTexLevelParameteriv(GLenum target, GLint level,
7217                             GLenum pname, GLint *params)
7218 {
7219    GET_CURRENT_CONTEXT(ctx);
7220    FLUSH_VERTICES(ctx, 0);
7221    CALL_GetTexLevelParameteriv(ctx->Exec, (target, level, pname, params));
7222 }
7223
7224 static void GLAPIENTRY
7225 exec_GetTexParameterfv(GLenum target, GLenum pname, GLfloat *params)
7226 {
7227    GET_CURRENT_CONTEXT(ctx);
7228    FLUSH_VERTICES(ctx, 0);
7229    CALL_GetTexParameterfv(ctx->Exec, (target, pname, params));
7230 }
7231
7232 static void GLAPIENTRY
7233 exec_GetTexParameteriv(GLenum target, GLenum pname, GLint *params)
7234 {
7235    GET_CURRENT_CONTEXT(ctx);
7236    FLUSH_VERTICES(ctx, 0);
7237    CALL_GetTexParameteriv(ctx->Exec, (target, pname, params));
7238 }
7239
7240 static GLboolean GLAPIENTRY
7241 exec_IsEnabled(GLenum cap)
7242 {
7243    GET_CURRENT_CONTEXT(ctx);
7244    FLUSH_VERTICES(ctx, 0);
7245    return CALL_IsEnabled(ctx->Exec, (cap));
7246 }
7247
7248 static void GLAPIENTRY
7249 exec_PixelStoref(GLenum pname, GLfloat param)
7250 {
7251    GET_CURRENT_CONTEXT(ctx);
7252    FLUSH_VERTICES(ctx, 0);
7253    CALL_PixelStoref(ctx->Exec, (pname, param));
7254 }
7255
7256 static void GLAPIENTRY
7257 exec_PixelStorei(GLenum pname, GLint param)
7258 {
7259    GET_CURRENT_CONTEXT(ctx);
7260    FLUSH_VERTICES(ctx, 0);
7261    CALL_PixelStorei(ctx->Exec, (pname, param));
7262 }
7263
7264 static void GLAPIENTRY
7265 exec_ReadPixels(GLint x, GLint y, GLsizei width, GLsizei height,
7266                 GLenum format, GLenum type, GLvoid * pixels)
7267 {
7268    GET_CURRENT_CONTEXT(ctx);
7269    FLUSH_VERTICES(ctx, 0);
7270    CALL_ReadPixels(ctx->Exec, (x, y, width, height, format, type, pixels));
7271 }
7272
7273 static GLint GLAPIENTRY
7274 exec_RenderMode(GLenum mode)
7275 {
7276    GET_CURRENT_CONTEXT(ctx);
7277    FLUSH_VERTICES(ctx, 0);
7278    return CALL_RenderMode(ctx->Exec, (mode));
7279 }
7280
7281 static void GLAPIENTRY
7282 exec_FeedbackBuffer(GLsizei size, GLenum type, GLfloat * buffer)
7283 {
7284    GET_CURRENT_CONTEXT(ctx);
7285    FLUSH_VERTICES(ctx, 0);
7286    CALL_FeedbackBuffer(ctx->Exec, (size, type, buffer));
7287 }
7288
7289 static void GLAPIENTRY
7290 exec_SelectBuffer(GLsizei size, GLuint * buffer)
7291 {
7292    GET_CURRENT_CONTEXT(ctx);
7293    FLUSH_VERTICES(ctx, 0);
7294    CALL_SelectBuffer(ctx->Exec, (size, buffer));
7295 }
7296
7297 static GLboolean GLAPIENTRY
7298 exec_AreTexturesResident(GLsizei n, const GLuint * texName,
7299                          GLboolean * residences)
7300 {
7301    GET_CURRENT_CONTEXT(ctx);
7302    FLUSH_VERTICES(ctx, 0);
7303    return CALL_AreTexturesResident(ctx->Exec, (n, texName, residences));
7304 }
7305
7306 static void GLAPIENTRY
7307 exec_ColorPointer(GLint size, GLenum type, GLsizei stride, const GLvoid *ptr)
7308 {
7309    GET_CURRENT_CONTEXT(ctx);
7310    FLUSH_VERTICES(ctx, 0);
7311    CALL_ColorPointer(ctx->Exec, (size, type, stride, ptr));
7312 }
7313
7314 static void GLAPIENTRY
7315 exec_DeleteTextures(GLsizei n, const GLuint * texName)
7316 {
7317    GET_CURRENT_CONTEXT(ctx);
7318    FLUSH_VERTICES(ctx, 0);
7319    CALL_DeleteTextures(ctx->Exec, (n, texName));
7320 }
7321
7322 static void GLAPIENTRY
7323 exec_DisableClientState(GLenum cap)
7324 {
7325    GET_CURRENT_CONTEXT(ctx);
7326    FLUSH_VERTICES(ctx, 0);
7327    CALL_DisableClientState(ctx->Exec, (cap));
7328 }
7329
7330 static void GLAPIENTRY
7331 exec_EdgeFlagPointer(GLsizei stride, const GLvoid * vptr)
7332 {
7333    GET_CURRENT_CONTEXT(ctx);
7334    FLUSH_VERTICES(ctx, 0);
7335    CALL_EdgeFlagPointer(ctx->Exec, (stride, vptr));
7336 }
7337
7338 static void GLAPIENTRY
7339 exec_EnableClientState(GLenum cap)
7340 {
7341    GET_CURRENT_CONTEXT(ctx);
7342    FLUSH_VERTICES(ctx, 0);
7343    CALL_EnableClientState(ctx->Exec, (cap));
7344 }
7345
7346 static void GLAPIENTRY
7347 exec_GenTextures(GLsizei n, GLuint * texName)
7348 {
7349    GET_CURRENT_CONTEXT(ctx);
7350    FLUSH_VERTICES(ctx, 0);
7351    CALL_GenTextures(ctx->Exec, (n, texName));
7352 }
7353
7354 static void GLAPIENTRY
7355 exec_GetPointerv(GLenum pname, GLvoid **params)
7356 {
7357    GET_CURRENT_CONTEXT(ctx);
7358    FLUSH_VERTICES(ctx, 0);
7359    CALL_GetPointerv(ctx->Exec, (pname, params));
7360 }
7361
7362 static void GLAPIENTRY
7363 exec_IndexPointer(GLenum type, GLsizei stride, const GLvoid *ptr)
7364 {
7365    GET_CURRENT_CONTEXT(ctx);
7366    FLUSH_VERTICES(ctx, 0);
7367    CALL_IndexPointer(ctx->Exec, (type, stride, ptr));
7368 }
7369
7370 static void GLAPIENTRY
7371 exec_InterleavedArrays(GLenum format, GLsizei stride, const GLvoid * pointer)
7372 {
7373    GET_CURRENT_CONTEXT(ctx);
7374    FLUSH_VERTICES(ctx, 0);
7375    CALL_InterleavedArrays(ctx->Exec, (format, stride, pointer));
7376 }
7377
7378 static GLboolean GLAPIENTRY
7379 exec_IsTexture(GLuint texture)
7380 {
7381    GET_CURRENT_CONTEXT(ctx);
7382    FLUSH_VERTICES(ctx, 0);
7383    return CALL_IsTexture(ctx->Exec, (texture));
7384 }
7385
7386 static void GLAPIENTRY
7387 exec_NormalPointer(GLenum type, GLsizei stride, const GLvoid *ptr)
7388 {
7389    GET_CURRENT_CONTEXT(ctx);
7390    FLUSH_VERTICES(ctx, 0);
7391    CALL_NormalPointer(ctx->Exec, (type, stride, ptr));
7392 }
7393
7394 static void GLAPIENTRY
7395 exec_PopClientAttrib(void)
7396 {
7397    GET_CURRENT_CONTEXT(ctx);
7398    FLUSH_VERTICES(ctx, 0);
7399    CALL_PopClientAttrib(ctx->Exec, ());
7400 }
7401
7402 static void GLAPIENTRY
7403 exec_PushClientAttrib(GLbitfield mask)
7404 {
7405    GET_CURRENT_CONTEXT(ctx);
7406    FLUSH_VERTICES(ctx, 0);
7407    CALL_PushClientAttrib(ctx->Exec, (mask));
7408 }
7409
7410 static void GLAPIENTRY
7411 exec_TexCoordPointer(GLint size, GLenum type, GLsizei stride,
7412                      const GLvoid *ptr)
7413 {
7414    GET_CURRENT_CONTEXT(ctx);
7415    FLUSH_VERTICES(ctx, 0);
7416    CALL_TexCoordPointer(ctx->Exec, (size, type, stride, ptr));
7417 }
7418
7419 static void GLAPIENTRY
7420 exec_GetCompressedTexImageARB(GLenum target, GLint level, GLvoid * img)
7421 {
7422    GET_CURRENT_CONTEXT(ctx);
7423    FLUSH_VERTICES(ctx, 0);
7424    CALL_GetCompressedTexImageARB(ctx->Exec, (target, level, img));
7425 }
7426
7427 static void GLAPIENTRY
7428 exec_VertexPointer(GLint size, GLenum type, GLsizei stride,
7429                    const GLvoid *ptr)
7430 {
7431    GET_CURRENT_CONTEXT(ctx);
7432    FLUSH_VERTICES(ctx, 0);
7433    CALL_VertexPointer(ctx->Exec, (size, type, stride, ptr));
7434 }
7435
7436 static void GLAPIENTRY
7437 exec_CopyConvolutionFilter1D(GLenum target, GLenum internalFormat,
7438                              GLint x, GLint y, GLsizei width)
7439 {
7440    GET_CURRENT_CONTEXT(ctx);
7441    FLUSH_VERTICES(ctx, 0);
7442    CALL_CopyConvolutionFilter1D(ctx->Exec,
7443                                 (target, internalFormat, x, y, width));
7444 }
7445
7446 static void GLAPIENTRY
7447 exec_CopyConvolutionFilter2D(GLenum target, GLenum internalFormat,
7448                              GLint x, GLint y, GLsizei width, GLsizei height)
7449 {
7450    GET_CURRENT_CONTEXT(ctx);
7451    FLUSH_VERTICES(ctx, 0);
7452    CALL_CopyConvolutionFilter2D(ctx->Exec,
7453                                 (target, internalFormat, x, y, width,
7454                                  height));
7455 }
7456
7457 static void GLAPIENTRY
7458 exec_GetColorTable(GLenum target, GLenum format, GLenum type, GLvoid * data)
7459 {
7460    GET_CURRENT_CONTEXT(ctx);
7461    FLUSH_VERTICES(ctx, 0);
7462    CALL_GetColorTable(ctx->Exec, (target, format, type, data));
7463 }
7464
7465 static void GLAPIENTRY
7466 exec_GetColorTableParameterfv(GLenum target, GLenum pname, GLfloat *params)
7467 {
7468    GET_CURRENT_CONTEXT(ctx);
7469    FLUSH_VERTICES(ctx, 0);
7470    CALL_GetColorTableParameterfv(ctx->Exec, (target, pname, params));
7471 }
7472
7473 static void GLAPIENTRY
7474 exec_GetColorTableParameteriv(GLenum target, GLenum pname, GLint *params)
7475 {
7476    GET_CURRENT_CONTEXT(ctx);
7477    FLUSH_VERTICES(ctx, 0);
7478    CALL_GetColorTableParameteriv(ctx->Exec, (target, pname, params));
7479 }
7480
7481 static void GLAPIENTRY
7482 exec_GetConvolutionFilter(GLenum target, GLenum format, GLenum type,
7483                           GLvoid * image)
7484 {
7485    GET_CURRENT_CONTEXT(ctx);
7486    FLUSH_VERTICES(ctx, 0);
7487    CALL_GetConvolutionFilter(ctx->Exec, (target, format, type, image));
7488 }
7489
7490 static void GLAPIENTRY
7491 exec_GetConvolutionParameterfv(GLenum target, GLenum pname, GLfloat *params)
7492 {
7493    GET_CURRENT_CONTEXT(ctx);
7494    FLUSH_VERTICES(ctx, 0);
7495    CALL_GetConvolutionParameterfv(ctx->Exec, (target, pname, params));
7496 }
7497
7498 static void GLAPIENTRY
7499 exec_GetConvolutionParameteriv(GLenum target, GLenum pname, GLint *params)
7500 {
7501    GET_CURRENT_CONTEXT(ctx);
7502    FLUSH_VERTICES(ctx, 0);
7503    CALL_GetConvolutionParameteriv(ctx->Exec, (target, pname, params));
7504 }
7505
7506 static void GLAPIENTRY
7507 exec_GetHistogram(GLenum target, GLboolean reset, GLenum format,
7508                   GLenum type, GLvoid *values)
7509 {
7510    GET_CURRENT_CONTEXT(ctx);
7511    FLUSH_VERTICES(ctx, 0);
7512    CALL_GetHistogram(ctx->Exec, (target, reset, format, type, values));
7513 }
7514
7515 static void GLAPIENTRY
7516 exec_GetHistogramParameterfv(GLenum target, GLenum pname, GLfloat *params)
7517 {
7518    GET_CURRENT_CONTEXT(ctx);
7519    FLUSH_VERTICES(ctx, 0);
7520    CALL_GetHistogramParameterfv(ctx->Exec, (target, pname, params));
7521 }
7522
7523 static void GLAPIENTRY
7524 exec_GetHistogramParameteriv(GLenum target, GLenum pname, GLint *params)
7525 {
7526    GET_CURRENT_CONTEXT(ctx);
7527    FLUSH_VERTICES(ctx, 0);
7528    CALL_GetHistogramParameteriv(ctx->Exec, (target, pname, params));
7529 }
7530
7531 static void GLAPIENTRY
7532 exec_GetMinmax(GLenum target, GLboolean reset, GLenum format,
7533                GLenum type, GLvoid *values)
7534 {
7535    GET_CURRENT_CONTEXT(ctx);
7536    FLUSH_VERTICES(ctx, 0);
7537    CALL_GetMinmax(ctx->Exec, (target, reset, format, type, values));
7538 }
7539
7540 static void GLAPIENTRY
7541 exec_GetMinmaxParameterfv(GLenum target, GLenum pname, GLfloat *params)
7542 {
7543    GET_CURRENT_CONTEXT(ctx);
7544    FLUSH_VERTICES(ctx, 0);
7545    CALL_GetMinmaxParameterfv(ctx->Exec, (target, pname, params));
7546 }
7547
7548 static void GLAPIENTRY
7549 exec_GetMinmaxParameteriv(GLenum target, GLenum pname, GLint *params)
7550 {
7551    GET_CURRENT_CONTEXT(ctx);
7552    FLUSH_VERTICES(ctx, 0);
7553    CALL_GetMinmaxParameteriv(ctx->Exec, (target, pname, params));
7554 }
7555
7556 static void GLAPIENTRY
7557 exec_GetSeparableFilter(GLenum target, GLenum format, GLenum type,
7558                         GLvoid *row, GLvoid *column, GLvoid *span)
7559 {
7560    GET_CURRENT_CONTEXT(ctx);
7561    FLUSH_VERTICES(ctx, 0);
7562    CALL_GetSeparableFilter(ctx->Exec,
7563                            (target, format, type, row, column, span));
7564 }
7565
7566 static void GLAPIENTRY
7567 exec_SeparableFilter2D(GLenum target, GLenum internalFormat,
7568                        GLsizei width, GLsizei height, GLenum format,
7569                        GLenum type, const GLvoid *row, const GLvoid *column)
7570 {
7571    GET_CURRENT_CONTEXT(ctx);
7572    FLUSH_VERTICES(ctx, 0);
7573    CALL_SeparableFilter2D(ctx->Exec,
7574                           (target, internalFormat, width, height, format,
7575                            type, row, column));
7576 }
7577
7578 static void GLAPIENTRY
7579 exec_ColorPointerEXT(GLint size, GLenum type, GLsizei stride,
7580                      GLsizei count, const GLvoid *ptr)
7581 {
7582    GET_CURRENT_CONTEXT(ctx);
7583    FLUSH_VERTICES(ctx, 0);
7584    CALL_ColorPointerEXT(ctx->Exec, (size, type, stride, count, ptr));
7585 }
7586
7587 static void GLAPIENTRY
7588 exec_EdgeFlagPointerEXT(GLsizei stride, GLsizei count, const GLboolean *ptr)
7589 {
7590    GET_CURRENT_CONTEXT(ctx);
7591    FLUSH_VERTICES(ctx, 0);
7592    CALL_EdgeFlagPointerEXT(ctx->Exec, (stride, count, ptr));
7593 }
7594
7595 static void GLAPIENTRY
7596 exec_IndexPointerEXT(GLenum type, GLsizei stride, GLsizei count,
7597                      const GLvoid *ptr)
7598 {
7599    GET_CURRENT_CONTEXT(ctx);
7600    FLUSH_VERTICES(ctx, 0);
7601    CALL_IndexPointerEXT(ctx->Exec, (type, stride, count, ptr));
7602 }
7603
7604 static void GLAPIENTRY
7605 exec_NormalPointerEXT(GLenum type, GLsizei stride, GLsizei count,
7606                       const GLvoid *ptr)
7607 {
7608    GET_CURRENT_CONTEXT(ctx);
7609    FLUSH_VERTICES(ctx, 0);
7610    CALL_NormalPointerEXT(ctx->Exec, (type, stride, count, ptr));
7611 }
7612
7613 static void GLAPIENTRY
7614 exec_TexCoordPointerEXT(GLint size, GLenum type, GLsizei stride,
7615                         GLsizei count, const GLvoid *ptr)
7616 {
7617    GET_CURRENT_CONTEXT(ctx);
7618    FLUSH_VERTICES(ctx, 0);
7619    CALL_TexCoordPointerEXT(ctx->Exec, (size, type, stride, count, ptr));
7620 }
7621
7622 static void GLAPIENTRY
7623 exec_VertexPointerEXT(GLint size, GLenum type, GLsizei stride,
7624                       GLsizei count, const GLvoid *ptr)
7625 {
7626    GET_CURRENT_CONTEXT(ctx);
7627    FLUSH_VERTICES(ctx, 0);
7628    CALL_VertexPointerEXT(ctx->Exec, (size, type, stride, count, ptr));
7629 }
7630
7631 static void GLAPIENTRY
7632 exec_LockArraysEXT(GLint first, GLsizei count)
7633 {
7634    GET_CURRENT_CONTEXT(ctx);
7635    FLUSH_VERTICES(ctx, 0);
7636    CALL_LockArraysEXT(ctx->Exec, (first, count));
7637 }
7638
7639 static void GLAPIENTRY
7640 exec_UnlockArraysEXT(void)
7641 {
7642    GET_CURRENT_CONTEXT(ctx);
7643    FLUSH_VERTICES(ctx, 0);
7644    CALL_UnlockArraysEXT(ctx->Exec, ());
7645 }
7646
7647 static void GLAPIENTRY
7648 exec_ClientActiveTextureARB(GLenum target)
7649 {
7650    GET_CURRENT_CONTEXT(ctx);
7651    FLUSH_VERTICES(ctx, 0);
7652    CALL_ClientActiveTextureARB(ctx->Exec, (target));
7653 }
7654
7655 static void GLAPIENTRY
7656 exec_SecondaryColorPointerEXT(GLint size, GLenum type,
7657                               GLsizei stride, const GLvoid *ptr)
7658 {
7659    GET_CURRENT_CONTEXT(ctx);
7660    FLUSH_VERTICES(ctx, 0);
7661    CALL_SecondaryColorPointerEXT(ctx->Exec, (size, type, stride, ptr));
7662 }
7663
7664 static void GLAPIENTRY
7665 exec_FogCoordPointerEXT(GLenum type, GLsizei stride, const GLvoid *ptr)
7666 {
7667    GET_CURRENT_CONTEXT(ctx);
7668    FLUSH_VERTICES(ctx, 0);
7669    CALL_FogCoordPointerEXT(ctx->Exec, (type, stride, ptr));
7670 }
7671
7672 /* GL_EXT_multi_draw_arrays */
7673 static void GLAPIENTRY
7674 exec_MultiDrawArraysEXT(GLenum mode, GLint * first,
7675                         GLsizei * count, GLsizei primcount)
7676 {
7677    GET_CURRENT_CONTEXT(ctx);
7678    FLUSH_VERTICES(ctx, 0);
7679    CALL_MultiDrawArraysEXT(ctx->Exec, (mode, first, count, primcount));
7680 }
7681
7682 /* GL_EXT_multi_draw_arrays */
7683 static void GLAPIENTRY
7684 exec_MultiDrawElementsEXT(GLenum mode, const GLsizei * count,
7685                           GLenum type, const GLvoid ** indices,
7686                           GLsizei primcount)
7687 {
7688    GET_CURRENT_CONTEXT(ctx);
7689    FLUSH_VERTICES(ctx, 0);
7690    CALL_MultiDrawElementsEXT(ctx->Exec,
7691                              (mode, count, type, indices, primcount));
7692 }
7693
7694 /* GL_IBM_multimode_draw_arrays */
7695 static void GLAPIENTRY
7696 exec_MultiModeDrawArraysIBM(const GLenum * mode, const GLint * first,
7697                             const GLsizei * count, GLsizei primcount,
7698                             GLint modestride)
7699 {
7700    GET_CURRENT_CONTEXT(ctx);
7701    FLUSH_VERTICES(ctx, 0);
7702    CALL_MultiModeDrawArraysIBM(ctx->Exec,
7703                                (mode, first, count, primcount, modestride));
7704 }
7705
7706 /* GL_IBM_multimode_draw_arrays */
7707 static void GLAPIENTRY
7708 exec_MultiModeDrawElementsIBM(const GLenum * mode,
7709                               const GLsizei * count,
7710                               GLenum type,
7711                               const GLvoid * const *indices,
7712                               GLsizei primcount, GLint modestride)
7713 {
7714    GET_CURRENT_CONTEXT(ctx);
7715    FLUSH_VERTICES(ctx, 0);
7716    CALL_MultiModeDrawElementsIBM(ctx->Exec,
7717                                  (mode, count, type, indices, primcount,
7718                                   modestride));
7719 }
7720
7721
7722
7723 /**
7724  * Setup the given dispatch table to point to Mesa's display list
7725  * building functions.
7726  *
7727  * This does not include any of the tnl functions - they are
7728  * initialized from _mesa_init_api_defaults and from the active vtxfmt
7729  * struct.
7730  */
7731 void
7732 _mesa_init_dlist_table(struct _glapi_table *table)
7733 {
7734    _mesa_loopback_init_api_table(table);
7735
7736    /* GL 1.0 */
7737    SET_Accum(table, save_Accum);
7738    SET_AlphaFunc(table, save_AlphaFunc);
7739    SET_Bitmap(table, save_Bitmap);
7740    SET_BlendFunc(table, save_BlendFunc);
7741    SET_CallList(table, _mesa_save_CallList);
7742    SET_CallLists(table, _mesa_save_CallLists);
7743    SET_Clear(table, save_Clear);
7744    SET_ClearAccum(table, save_ClearAccum);
7745    SET_ClearColor(table, save_ClearColor);
7746    SET_ClearDepth(table, save_ClearDepth);
7747    SET_ClearIndex(table, save_ClearIndex);
7748    SET_ClearStencil(table, save_ClearStencil);
7749    SET_ClipPlane(table, save_ClipPlane);
7750    SET_ColorMask(table, save_ColorMask);
7751    SET_ColorMaterial(table, save_ColorMaterial);
7752    SET_CopyPixels(table, save_CopyPixels);
7753    SET_CullFace(table, save_CullFace);
7754    SET_DeleteLists(table, _mesa_DeleteLists);
7755    SET_DepthFunc(table, save_DepthFunc);
7756    SET_DepthMask(table, save_DepthMask);
7757    SET_DepthRange(table, save_DepthRange);
7758    SET_Disable(table, save_Disable);
7759    SET_DrawBuffer(table, save_DrawBuffer);
7760    SET_DrawPixels(table, save_DrawPixels);
7761    SET_Enable(table, save_Enable);
7762    SET_EndList(table, _mesa_EndList);
7763    SET_EvalMesh1(table, _mesa_save_EvalMesh1);
7764    SET_EvalMesh2(table, _mesa_save_EvalMesh2);
7765    SET_Finish(table, exec_Finish);
7766    SET_Flush(table, exec_Flush);
7767    SET_Fogf(table, save_Fogf);
7768    SET_Fogfv(table, save_Fogfv);
7769    SET_Fogi(table, save_Fogi);
7770    SET_Fogiv(table, save_Fogiv);
7771    SET_FrontFace(table, save_FrontFace);
7772    SET_Frustum(table, save_Frustum);
7773    SET_GenLists(table, _mesa_GenLists);
7774    SET_GetBooleanv(table, exec_GetBooleanv);
7775    SET_GetClipPlane(table, exec_GetClipPlane);
7776    SET_GetDoublev(table, exec_GetDoublev);
7777    SET_GetError(table, exec_GetError);
7778    SET_GetFloatv(table, exec_GetFloatv);
7779    SET_GetIntegerv(table, exec_GetIntegerv);
7780    SET_GetLightfv(table, exec_GetLightfv);
7781    SET_GetLightiv(table, exec_GetLightiv);
7782    SET_GetMapdv(table, exec_GetMapdv);
7783    SET_GetMapfv(table, exec_GetMapfv);
7784    SET_GetMapiv(table, exec_GetMapiv);
7785    SET_GetMaterialfv(table, exec_GetMaterialfv);
7786    SET_GetMaterialiv(table, exec_GetMaterialiv);
7787    SET_GetPixelMapfv(table, exec_GetPixelMapfv);
7788    SET_GetPixelMapuiv(table, exec_GetPixelMapuiv);
7789    SET_GetPixelMapusv(table, exec_GetPixelMapusv);
7790    SET_GetPolygonStipple(table, exec_GetPolygonStipple);
7791    SET_GetString(table, exec_GetString);
7792    SET_GetTexEnvfv(table, exec_GetTexEnvfv);
7793    SET_GetTexEnviv(table, exec_GetTexEnviv);
7794    SET_GetTexGendv(table, exec_GetTexGendv);
7795    SET_GetTexGenfv(table, exec_GetTexGenfv);
7796    SET_GetTexGeniv(table, exec_GetTexGeniv);
7797    SET_GetTexImage(table, exec_GetTexImage);
7798    SET_GetTexLevelParameterfv(table, exec_GetTexLevelParameterfv);
7799    SET_GetTexLevelParameteriv(table, exec_GetTexLevelParameteriv);
7800    SET_GetTexParameterfv(table, exec_GetTexParameterfv);
7801    SET_GetTexParameteriv(table, exec_GetTexParameteriv);
7802    SET_Hint(table, save_Hint);
7803    SET_IndexMask(table, save_IndexMask);
7804    SET_InitNames(table, save_InitNames);
7805    SET_IsEnabled(table, exec_IsEnabled);
7806    SET_IsList(table, _mesa_IsList);
7807    SET_LightModelf(table, save_LightModelf);
7808    SET_LightModelfv(table, save_LightModelfv);
7809    SET_LightModeli(table, save_LightModeli);
7810    SET_LightModeliv(table, save_LightModeliv);
7811    SET_Lightf(table, save_Lightf);
7812    SET_Lightfv(table, save_Lightfv);
7813    SET_Lighti(table, save_Lighti);
7814    SET_Lightiv(table, save_Lightiv);
7815    SET_LineStipple(table, save_LineStipple);
7816    SET_LineWidth(table, save_LineWidth);
7817    SET_ListBase(table, save_ListBase);
7818    SET_LoadIdentity(table, save_LoadIdentity);
7819    SET_LoadMatrixd(table, save_LoadMatrixd);
7820    SET_LoadMatrixf(table, save_LoadMatrixf);
7821    SET_LoadName(table, save_LoadName);
7822    SET_LogicOp(table, save_LogicOp);
7823    SET_Map1d(table, save_Map1d);
7824    SET_Map1f(table, save_Map1f);
7825    SET_Map2d(table, save_Map2d);
7826    SET_Map2f(table, save_Map2f);
7827    SET_MapGrid1d(table, save_MapGrid1d);
7828    SET_MapGrid1f(table, save_MapGrid1f);
7829    SET_MapGrid2d(table, save_MapGrid2d);
7830    SET_MapGrid2f(table, save_MapGrid2f);
7831    SET_MatrixMode(table, save_MatrixMode);
7832    SET_MultMatrixd(table, save_MultMatrixd);
7833    SET_MultMatrixf(table, save_MultMatrixf);
7834    SET_NewList(table, save_NewList);
7835    SET_Ortho(table, save_Ortho);
7836    SET_PassThrough(table, save_PassThrough);
7837    SET_PixelMapfv(table, save_PixelMapfv);
7838    SET_PixelMapuiv(table, save_PixelMapuiv);
7839    SET_PixelMapusv(table, save_PixelMapusv);
7840    SET_PixelStoref(table, exec_PixelStoref);
7841    SET_PixelStorei(table, exec_PixelStorei);
7842    SET_PixelTransferf(table, save_PixelTransferf);
7843    SET_PixelTransferi(table, save_PixelTransferi);
7844    SET_PixelZoom(table, save_PixelZoom);
7845    SET_PointSize(table, save_PointSize);
7846    SET_PolygonMode(table, save_PolygonMode);
7847    SET_PolygonOffset(table, save_PolygonOffset);
7848    SET_PolygonStipple(table, save_PolygonStipple);
7849    SET_PopAttrib(table, save_PopAttrib);
7850    SET_PopMatrix(table, save_PopMatrix);
7851    SET_PopName(table, save_PopName);
7852    SET_PushAttrib(table, save_PushAttrib);
7853    SET_PushMatrix(table, save_PushMatrix);
7854    SET_PushName(table, save_PushName);
7855    SET_RasterPos2d(table, save_RasterPos2d);
7856    SET_RasterPos2dv(table, save_RasterPos2dv);
7857    SET_RasterPos2f(table, save_RasterPos2f);
7858    SET_RasterPos2fv(table, save_RasterPos2fv);
7859    SET_RasterPos2i(table, save_RasterPos2i);
7860    SET_RasterPos2iv(table, save_RasterPos2iv);
7861    SET_RasterPos2s(table, save_RasterPos2s);
7862    SET_RasterPos2sv(table, save_RasterPos2sv);
7863    SET_RasterPos3d(table, save_RasterPos3d);
7864    SET_RasterPos3dv(table, save_RasterPos3dv);
7865    SET_RasterPos3f(table, save_RasterPos3f);
7866    SET_RasterPos3fv(table, save_RasterPos3fv);
7867    SET_RasterPos3i(table, save_RasterPos3i);
7868    SET_RasterPos3iv(table, save_RasterPos3iv);
7869    SET_RasterPos3s(table, save_RasterPos3s);
7870    SET_RasterPos3sv(table, save_RasterPos3sv);
7871    SET_RasterPos4d(table, save_RasterPos4d);
7872    SET_RasterPos4dv(table, save_RasterPos4dv);
7873    SET_RasterPos4f(table, save_RasterPos4f);
7874    SET_RasterPos4fv(table, save_RasterPos4fv);
7875    SET_RasterPos4i(table, save_RasterPos4i);
7876    SET_RasterPos4iv(table, save_RasterPos4iv);
7877    SET_RasterPos4s(table, save_RasterPos4s);
7878    SET_RasterPos4sv(table, save_RasterPos4sv);
7879    SET_ReadBuffer(table, save_ReadBuffer);
7880    SET_ReadPixels(table, exec_ReadPixels);
7881    SET_RenderMode(table, exec_RenderMode);
7882    SET_Rotated(table, save_Rotated);
7883    SET_Rotatef(table, save_Rotatef);
7884    SET_Scaled(table, save_Scaled);
7885    SET_Scalef(table, save_Scalef);
7886    SET_Scissor(table, save_Scissor);
7887    SET_FeedbackBuffer(table, exec_FeedbackBuffer);
7888    SET_SelectBuffer(table, exec_SelectBuffer);
7889    SET_ShadeModel(table, save_ShadeModel);
7890    SET_StencilFunc(table, save_StencilFunc);
7891    SET_StencilMask(table, save_StencilMask);
7892    SET_StencilOp(table, save_StencilOp);
7893    SET_TexEnvf(table, save_TexEnvf);
7894    SET_TexEnvfv(table, save_TexEnvfv);
7895    SET_TexEnvi(table, save_TexEnvi);
7896    SET_TexEnviv(table, save_TexEnviv);
7897    SET_TexGend(table, save_TexGend);
7898    SET_TexGendv(table, save_TexGendv);
7899    SET_TexGenf(table, save_TexGenf);
7900    SET_TexGenfv(table, save_TexGenfv);
7901    SET_TexGeni(table, save_TexGeni);
7902    SET_TexGeniv(table, save_TexGeniv);
7903    SET_TexImage1D(table, save_TexImage1D);
7904    SET_TexImage2D(table, save_TexImage2D);
7905    SET_TexParameterf(table, save_TexParameterf);
7906    SET_TexParameterfv(table, save_TexParameterfv);
7907    SET_TexParameteri(table, save_TexParameteri);
7908    SET_TexParameteriv(table, save_TexParameteriv);
7909    SET_Translated(table, save_Translated);
7910    SET_Translatef(table, save_Translatef);
7911    SET_Viewport(table, save_Viewport);
7912
7913    /* GL 1.1 */
7914    SET_AreTexturesResident(table, exec_AreTexturesResident);
7915    SET_BindTexture(table, save_BindTexture);
7916    SET_ColorPointer(table, exec_ColorPointer);
7917    SET_CopyTexImage1D(table, save_CopyTexImage1D);
7918    SET_CopyTexImage2D(table, save_CopyTexImage2D);
7919    SET_CopyTexSubImage1D(table, save_CopyTexSubImage1D);
7920    SET_CopyTexSubImage2D(table, save_CopyTexSubImage2D);
7921    SET_DeleteTextures(table, exec_DeleteTextures);
7922    SET_DisableClientState(table, exec_DisableClientState);
7923    SET_EdgeFlagPointer(table, exec_EdgeFlagPointer);
7924    SET_EnableClientState(table, exec_EnableClientState);
7925    SET_GenTextures(table, exec_GenTextures);
7926    SET_GetPointerv(table, exec_GetPointerv);
7927    SET_IndexPointer(table, exec_IndexPointer);
7928    SET_InterleavedArrays(table, exec_InterleavedArrays);
7929    SET_IsTexture(table, exec_IsTexture);
7930    SET_NormalPointer(table, exec_NormalPointer);
7931    SET_PopClientAttrib(table, exec_PopClientAttrib);
7932    SET_PrioritizeTextures(table, save_PrioritizeTextures);
7933    SET_PushClientAttrib(table, exec_PushClientAttrib);
7934    SET_TexCoordPointer(table, exec_TexCoordPointer);
7935    SET_TexSubImage1D(table, save_TexSubImage1D);
7936    SET_TexSubImage2D(table, save_TexSubImage2D);
7937    SET_VertexPointer(table, exec_VertexPointer);
7938
7939    /* GL 1.2 */
7940    SET_CopyTexSubImage3D(table, save_CopyTexSubImage3D);
7941    SET_TexImage3D(table, save_TexImage3D);
7942    SET_TexSubImage3D(table, save_TexSubImage3D);
7943
7944    /* GL 2.0 */
7945    SET_StencilFuncSeparate(table, save_StencilFuncSeparate);
7946    SET_StencilMaskSeparate(table, save_StencilMaskSeparate);
7947    SET_StencilOpSeparate(table, save_StencilOpSeparate);
7948
7949    /* ATI_separate_stencil */
7950    SET_StencilFuncSeparateATI(table, save_StencilFuncSeparateATI);
7951
7952    /* GL_ARB_imaging */
7953    /* Not all are supported */
7954    SET_BlendColor(table, save_BlendColor);
7955    SET_BlendEquation(table, save_BlendEquation);
7956    SET_ColorSubTable(table, save_ColorSubTable);
7957    SET_ColorTable(table, save_ColorTable);
7958    SET_ColorTableParameterfv(table, save_ColorTableParameterfv);
7959    SET_ColorTableParameteriv(table, save_ColorTableParameteriv);
7960    SET_ConvolutionFilter1D(table, save_ConvolutionFilter1D);
7961    SET_ConvolutionFilter2D(table, save_ConvolutionFilter2D);
7962    SET_ConvolutionParameterf(table, save_ConvolutionParameterf);
7963    SET_ConvolutionParameterfv(table, save_ConvolutionParameterfv);
7964    SET_ConvolutionParameteri(table, save_ConvolutionParameteri);
7965    SET_ConvolutionParameteriv(table, save_ConvolutionParameteriv);
7966    SET_CopyColorSubTable(table, save_CopyColorSubTable);
7967    SET_CopyColorTable(table, save_CopyColorTable);
7968    SET_CopyConvolutionFilter1D(table, exec_CopyConvolutionFilter1D);
7969    SET_CopyConvolutionFilter2D(table, exec_CopyConvolutionFilter2D);
7970    SET_GetColorTable(table, exec_GetColorTable);
7971    SET_GetColorTableParameterfv(table, exec_GetColorTableParameterfv);
7972    SET_GetColorTableParameteriv(table, exec_GetColorTableParameteriv);
7973    SET_GetConvolutionFilter(table, exec_GetConvolutionFilter);
7974    SET_GetConvolutionParameterfv(table, exec_GetConvolutionParameterfv);
7975    SET_GetConvolutionParameteriv(table, exec_GetConvolutionParameteriv);
7976    SET_GetHistogram(table, exec_GetHistogram);
7977    SET_GetHistogramParameterfv(table, exec_GetHistogramParameterfv);
7978    SET_GetHistogramParameteriv(table, exec_GetHistogramParameteriv);
7979    SET_GetMinmax(table, exec_GetMinmax);
7980    SET_GetMinmaxParameterfv(table, exec_GetMinmaxParameterfv);
7981    SET_GetMinmaxParameteriv(table, exec_GetMinmaxParameteriv);
7982    SET_GetSeparableFilter(table, exec_GetSeparableFilter);
7983    SET_Histogram(table, save_Histogram);
7984    SET_Minmax(table, save_Minmax);
7985    SET_ResetHistogram(table, save_ResetHistogram);
7986    SET_ResetMinmax(table, save_ResetMinmax);
7987    SET_SeparableFilter2D(table, exec_SeparableFilter2D);
7988
7989    /* 2. GL_EXT_blend_color */
7990 #if 0
7991    SET_BlendColorEXT(table, save_BlendColorEXT);
7992 #endif
7993
7994    /* 3. GL_EXT_polygon_offset */
7995    SET_PolygonOffsetEXT(table, save_PolygonOffsetEXT);
7996
7997    /* 6. GL_EXT_texture3d */
7998 #if 0
7999    SET_CopyTexSubImage3DEXT(table, save_CopyTexSubImage3D);
8000    SET_TexImage3DEXT(table, save_TexImage3DEXT);
8001    SET_TexSubImage3DEXT(table, save_TexSubImage3D);
8002 #endif
8003
8004    /* 14. GL_SGI_color_table */
8005 #if 0
8006    SET_ColorTableSGI(table, save_ColorTable);
8007    SET_ColorSubTableSGI(table, save_ColorSubTable);
8008    SET_GetColorTableSGI(table, exec_GetColorTable);
8009    SET_GetColorTableParameterfvSGI(table, exec_GetColorTableParameterfv);
8010    SET_GetColorTableParameterivSGI(table, exec_GetColorTableParameteriv);
8011 #endif
8012
8013    /* 30. GL_EXT_vertex_array */
8014    SET_ColorPointerEXT(table, exec_ColorPointerEXT);
8015    SET_EdgeFlagPointerEXT(table, exec_EdgeFlagPointerEXT);
8016    SET_IndexPointerEXT(table, exec_IndexPointerEXT);
8017    SET_NormalPointerEXT(table, exec_NormalPointerEXT);
8018    SET_TexCoordPointerEXT(table, exec_TexCoordPointerEXT);
8019    SET_VertexPointerEXT(table, exec_VertexPointerEXT);
8020
8021    /* 37. GL_EXT_blend_minmax */
8022 #if 0
8023    SET_BlendEquationEXT(table, save_BlendEquationEXT);
8024 #endif
8025
8026    /* 54. GL_EXT_point_parameters */
8027    SET_PointParameterfEXT(table, save_PointParameterfEXT);
8028    SET_PointParameterfvEXT(table, save_PointParameterfvEXT);
8029
8030    /* 97. GL_EXT_compiled_vertex_array */
8031    SET_LockArraysEXT(table, exec_LockArraysEXT);
8032    SET_UnlockArraysEXT(table, exec_UnlockArraysEXT);
8033
8034    /* 145. GL_EXT_secondary_color */
8035    SET_SecondaryColorPointerEXT(table, exec_SecondaryColorPointerEXT);
8036
8037    /* 148. GL_EXT_multi_draw_arrays */
8038    SET_MultiDrawArraysEXT(table, exec_MultiDrawArraysEXT);
8039    SET_MultiDrawElementsEXT(table, exec_MultiDrawElementsEXT);
8040
8041    /* 149. GL_EXT_fog_coord */
8042    SET_FogCoordPointerEXT(table, exec_FogCoordPointerEXT);
8043
8044    /* 173. GL_EXT_blend_func_separate */
8045    SET_BlendFuncSeparateEXT(table, save_BlendFuncSeparateEXT);
8046
8047    /* 196. GL_MESA_resize_buffers */
8048    SET_ResizeBuffersMESA(table, _mesa_ResizeBuffersMESA);
8049
8050    /* 197. GL_MESA_window_pos */
8051    SET_WindowPos2dMESA(table, save_WindowPos2dMESA);
8052    SET_WindowPos2dvMESA(table, save_WindowPos2dvMESA);
8053    SET_WindowPos2fMESA(table, save_WindowPos2fMESA);
8054    SET_WindowPos2fvMESA(table, save_WindowPos2fvMESA);
8055    SET_WindowPos2iMESA(table, save_WindowPos2iMESA);
8056    SET_WindowPos2ivMESA(table, save_WindowPos2ivMESA);
8057    SET_WindowPos2sMESA(table, save_WindowPos2sMESA);
8058    SET_WindowPos2svMESA(table, save_WindowPos2svMESA);
8059    SET_WindowPos3dMESA(table, save_WindowPos3dMESA);
8060    SET_WindowPos3dvMESA(table, save_WindowPos3dvMESA);
8061    SET_WindowPos3fMESA(table, save_WindowPos3fMESA);
8062    SET_WindowPos3fvMESA(table, save_WindowPos3fvMESA);
8063    SET_WindowPos3iMESA(table, save_WindowPos3iMESA);
8064    SET_WindowPos3ivMESA(table, save_WindowPos3ivMESA);
8065    SET_WindowPos3sMESA(table, save_WindowPos3sMESA);
8066    SET_WindowPos3svMESA(table, save_WindowPos3svMESA);
8067    SET_WindowPos4dMESA(table, save_WindowPos4dMESA);
8068    SET_WindowPos4dvMESA(table, save_WindowPos4dvMESA);
8069    SET_WindowPos4fMESA(table, save_WindowPos4fMESA);
8070    SET_WindowPos4fvMESA(table, save_WindowPos4fvMESA);
8071    SET_WindowPos4iMESA(table, save_WindowPos4iMESA);
8072    SET_WindowPos4ivMESA(table, save_WindowPos4ivMESA);
8073    SET_WindowPos4sMESA(table, save_WindowPos4sMESA);
8074    SET_WindowPos4svMESA(table, save_WindowPos4svMESA);
8075
8076    /* 200. GL_IBM_multimode_draw_arrays */
8077    SET_MultiModeDrawArraysIBM(table, exec_MultiModeDrawArraysIBM);
8078    SET_MultiModeDrawElementsIBM(table, exec_MultiModeDrawElementsIBM);
8079
8080 #if FEATURE_NV_vertex_program
8081    /* 233. GL_NV_vertex_program */
8082    /* The following commands DO NOT go into display lists:
8083     * AreProgramsResidentNV, IsProgramNV, GenProgramsNV, DeleteProgramsNV,
8084     * VertexAttribPointerNV, GetProgram*, GetVertexAttrib*
8085     */
8086    SET_BindProgramNV(table, save_BindProgramNV);
8087    SET_DeleteProgramsNV(table, _mesa_DeletePrograms);
8088    SET_ExecuteProgramNV(table, save_ExecuteProgramNV);
8089    SET_GenProgramsNV(table, _mesa_GenPrograms);
8090    SET_AreProgramsResidentNV(table, _mesa_AreProgramsResidentNV);
8091    SET_RequestResidentProgramsNV(table, save_RequestResidentProgramsNV);
8092    SET_GetProgramParameterfvNV(table, _mesa_GetProgramParameterfvNV);
8093    SET_GetProgramParameterdvNV(table, _mesa_GetProgramParameterdvNV);
8094    SET_GetProgramivNV(table, _mesa_GetProgramivNV);
8095    SET_GetProgramStringNV(table, _mesa_GetProgramStringNV);
8096    SET_GetTrackMatrixivNV(table, _mesa_GetTrackMatrixivNV);
8097    SET_GetVertexAttribdvNV(table, _mesa_GetVertexAttribdvNV);
8098    SET_GetVertexAttribfvNV(table, _mesa_GetVertexAttribfvNV);
8099    SET_GetVertexAttribivNV(table, _mesa_GetVertexAttribivNV);
8100    SET_GetVertexAttribPointervNV(table, _mesa_GetVertexAttribPointervNV);
8101    SET_IsProgramNV(table, _mesa_IsProgramARB);
8102    SET_LoadProgramNV(table, save_LoadProgramNV);
8103    SET_ProgramEnvParameter4dARB(table, save_ProgramEnvParameter4dARB);
8104    SET_ProgramEnvParameter4dvARB(table, save_ProgramEnvParameter4dvARB);
8105    SET_ProgramEnvParameter4fARB(table, save_ProgramEnvParameter4fARB);
8106    SET_ProgramEnvParameter4fvARB(table, save_ProgramEnvParameter4fvARB);
8107    SET_ProgramParameters4dvNV(table, save_ProgramParameters4dvNV);
8108    SET_ProgramParameters4fvNV(table, save_ProgramParameters4fvNV);
8109    SET_TrackMatrixNV(table, save_TrackMatrixNV);
8110    SET_VertexAttribPointerNV(table, _mesa_VertexAttribPointerNV);
8111 #endif
8112
8113    /* 244. GL_ATI_envmap_bumpmap */
8114    SET_TexBumpParameterivATI(table, save_TexBumpParameterivATI);
8115    SET_TexBumpParameterfvATI(table, save_TexBumpParameterfvATI);
8116
8117    /* 245. GL_ATI_fragment_shader */
8118 #if FEATURE_ATI_fragment_shader
8119    SET_BindFragmentShaderATI(table, save_BindFragmentShaderATI);
8120    SET_SetFragmentShaderConstantATI(table, save_SetFragmentShaderConstantATI);
8121 #endif
8122
8123    /* 282. GL_NV_fragment_program */
8124 #if FEATURE_NV_fragment_program
8125    SET_ProgramNamedParameter4fNV(table, save_ProgramNamedParameter4fNV);
8126    SET_ProgramNamedParameter4dNV(table, save_ProgramNamedParameter4dNV);
8127    SET_ProgramNamedParameter4fvNV(table, save_ProgramNamedParameter4fvNV);
8128    SET_ProgramNamedParameter4dvNV(table, save_ProgramNamedParameter4dvNV);
8129    SET_GetProgramNamedParameterfvNV(table,
8130                                     _mesa_GetProgramNamedParameterfvNV);
8131    SET_GetProgramNamedParameterdvNV(table,
8132                                     _mesa_GetProgramNamedParameterdvNV);
8133    SET_ProgramLocalParameter4dARB(table, save_ProgramLocalParameter4dARB);
8134    SET_ProgramLocalParameter4dvARB(table, save_ProgramLocalParameter4dvARB);
8135    SET_ProgramLocalParameter4fARB(table, save_ProgramLocalParameter4fARB);
8136    SET_ProgramLocalParameter4fvARB(table, save_ProgramLocalParameter4fvARB);
8137    SET_GetProgramLocalParameterdvARB(table,
8138                                      _mesa_GetProgramLocalParameterdvARB);
8139    SET_GetProgramLocalParameterfvARB(table,
8140                                      _mesa_GetProgramLocalParameterfvARB);
8141 #endif
8142
8143    /* 262. GL_NV_point_sprite */
8144    SET_PointParameteriNV(table, save_PointParameteriNV);
8145    SET_PointParameterivNV(table, save_PointParameterivNV);
8146
8147    /* 268. GL_EXT_stencil_two_side */
8148    SET_ActiveStencilFaceEXT(table, save_ActiveStencilFaceEXT);
8149
8150    /* 273. GL_APPLE_vertex_array_object */
8151    SET_BindVertexArrayAPPLE(table, _mesa_BindVertexArrayAPPLE);
8152    SET_DeleteVertexArraysAPPLE(table, _mesa_DeleteVertexArraysAPPLE);
8153    SET_GenVertexArraysAPPLE(table, _mesa_GenVertexArraysAPPLE);
8154    SET_IsVertexArrayAPPLE(table, _mesa_IsVertexArrayAPPLE);
8155
8156    /* ???. GL_EXT_depth_bounds_test */
8157    SET_DepthBoundsEXT(table, save_DepthBoundsEXT);
8158
8159    /* ARB 1. GL_ARB_multitexture */
8160    SET_ActiveTextureARB(table, save_ActiveTextureARB);
8161    SET_ClientActiveTextureARB(table, exec_ClientActiveTextureARB);
8162
8163    /* ARB 3. GL_ARB_transpose_matrix */
8164    SET_LoadTransposeMatrixdARB(table, save_LoadTransposeMatrixdARB);
8165    SET_LoadTransposeMatrixfARB(table, save_LoadTransposeMatrixfARB);
8166    SET_MultTransposeMatrixdARB(table, save_MultTransposeMatrixdARB);
8167    SET_MultTransposeMatrixfARB(table, save_MultTransposeMatrixfARB);
8168
8169    /* ARB 5. GL_ARB_multisample */
8170    SET_SampleCoverageARB(table, save_SampleCoverageARB);
8171
8172    /* ARB 12. GL_ARB_texture_compression */
8173    SET_CompressedTexImage3DARB(table, save_CompressedTexImage3DARB);
8174    SET_CompressedTexImage2DARB(table, save_CompressedTexImage2DARB);
8175    SET_CompressedTexImage1DARB(table, save_CompressedTexImage1DARB);
8176    SET_CompressedTexSubImage3DARB(table, save_CompressedTexSubImage3DARB);
8177    SET_CompressedTexSubImage2DARB(table, save_CompressedTexSubImage2DARB);
8178    SET_CompressedTexSubImage1DARB(table, save_CompressedTexSubImage1DARB);
8179    SET_GetCompressedTexImageARB(table, exec_GetCompressedTexImageARB);
8180
8181    /* ARB 14. GL_ARB_point_parameters */
8182    /* aliased with EXT_point_parameters functions */
8183
8184    /* ARB 25. GL_ARB_window_pos */
8185    /* aliased with MESA_window_pos functions */
8186
8187    /* ARB 26. GL_ARB_vertex_program */
8188    /* ARB 27. GL_ARB_fragment_program */
8189 #if FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
8190    /* glVertexAttrib* functions alias the NV ones, handled elsewhere */
8191    SET_VertexAttribPointerARB(table, _mesa_VertexAttribPointerARB);
8192    SET_EnableVertexAttribArrayARB(table, _mesa_EnableVertexAttribArrayARB);
8193    SET_DisableVertexAttribArrayARB(table, _mesa_DisableVertexAttribArrayARB);
8194    SET_ProgramStringARB(table, save_ProgramStringARB);
8195    SET_BindProgramNV(table, save_BindProgramNV);
8196    SET_DeleteProgramsNV(table, _mesa_DeletePrograms);
8197    SET_GenProgramsNV(table, _mesa_GenPrograms);
8198    SET_IsProgramNV(table, _mesa_IsProgramARB);
8199    SET_GetVertexAttribdvNV(table, _mesa_GetVertexAttribdvNV);
8200    SET_GetVertexAttribfvNV(table, _mesa_GetVertexAttribfvNV);
8201    SET_GetVertexAttribivNV(table, _mesa_GetVertexAttribivNV);
8202    SET_GetVertexAttribPointervNV(table, _mesa_GetVertexAttribPointervNV);
8203    SET_ProgramEnvParameter4dARB(table, save_ProgramEnvParameter4dARB);
8204    SET_ProgramEnvParameter4dvARB(table, save_ProgramEnvParameter4dvARB);
8205    SET_ProgramEnvParameter4fARB(table, save_ProgramEnvParameter4fARB);
8206    SET_ProgramEnvParameter4fvARB(table, save_ProgramEnvParameter4fvARB);
8207    SET_ProgramLocalParameter4dARB(table, save_ProgramLocalParameter4dARB);
8208    SET_ProgramLocalParameter4dvARB(table, save_ProgramLocalParameter4dvARB);
8209    SET_ProgramLocalParameter4fARB(table, save_ProgramLocalParameter4fARB);
8210    SET_ProgramLocalParameter4fvARB(table, save_ProgramLocalParameter4fvARB);
8211    SET_GetProgramEnvParameterdvARB(table, _mesa_GetProgramEnvParameterdvARB);
8212    SET_GetProgramEnvParameterfvARB(table, _mesa_GetProgramEnvParameterfvARB);
8213    SET_GetProgramLocalParameterdvARB(table,
8214                                      _mesa_GetProgramLocalParameterdvARB);
8215    SET_GetProgramLocalParameterfvARB(table,
8216                                      _mesa_GetProgramLocalParameterfvARB);
8217    SET_GetProgramivARB(table, _mesa_GetProgramivARB);
8218    SET_GetProgramStringARB(table, _mesa_GetProgramStringARB);
8219 #endif
8220
8221    /* ARB 28. GL_ARB_vertex_buffer_object */
8222 #if FEATURE_ARB_vertex_buffer_object
8223    /* None of the extension's functions get compiled */
8224    SET_BindBufferARB(table, _mesa_BindBufferARB);
8225    SET_BufferDataARB(table, _mesa_BufferDataARB);
8226    SET_BufferSubDataARB(table, _mesa_BufferSubDataARB);
8227    SET_DeleteBuffersARB(table, _mesa_DeleteBuffersARB);
8228    SET_GenBuffersARB(table, _mesa_GenBuffersARB);
8229    SET_GetBufferParameterivARB(table, _mesa_GetBufferParameterivARB);
8230    SET_GetBufferPointervARB(table, _mesa_GetBufferPointervARB);
8231    SET_GetBufferSubDataARB(table, _mesa_GetBufferSubDataARB);
8232    SET_IsBufferARB(table, _mesa_IsBufferARB);
8233    SET_MapBufferARB(table, _mesa_MapBufferARB);
8234    SET_UnmapBufferARB(table, _mesa_UnmapBufferARB);
8235 #endif
8236
8237 #if FEATURE_ARB_occlusion_query
8238    SET_BeginQueryARB(table, save_BeginQueryARB);
8239    SET_EndQueryARB(table, save_EndQueryARB);
8240    SET_GenQueriesARB(table, _mesa_GenQueriesARB);
8241    SET_DeleteQueriesARB(table, _mesa_DeleteQueriesARB);
8242    SET_IsQueryARB(table, _mesa_IsQueryARB);
8243    SET_GetQueryivARB(table, _mesa_GetQueryivARB);
8244    SET_GetQueryObjectivARB(table, _mesa_GetQueryObjectivARB);
8245    SET_GetQueryObjectuivARB(table, _mesa_GetQueryObjectuivARB);
8246 #endif
8247    SET_DrawBuffersARB(table, save_DrawBuffersARB);
8248
8249 #if FEATURE_EXT_framebuffer_blit
8250    SET_BlitFramebufferEXT(table, save_BlitFramebufferEXT);
8251 #endif
8252
8253    /* ARB 30/31/32. GL_ARB_shader_objects, GL_ARB_vertex/fragment_shader */
8254    SET_BindAttribLocationARB(table, exec_BindAttribLocationARB);
8255    SET_GetAttribLocationARB(table, exec_GetAttribLocationARB);
8256    /* XXX additional functions need to be implemented here! */
8257
8258    /* 299. GL_EXT_blend_equation_separate */
8259    SET_BlendEquationSeparateEXT(table, save_BlendEquationSeparateEXT);
8260
8261    /* GL_EXT_gpu_program_parmaeters */
8262 #if FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
8263    SET_ProgramEnvParameters4fvEXT(table, save_ProgramEnvParameters4fvEXT);
8264    SET_ProgramLocalParameters4fvEXT(table, save_ProgramLocalParameters4fvEXT);
8265 #endif
8266
8267    /* ARB 50. GL_ARB_map_buffer_range */
8268 #if FEATURE_ARB_map_buffer_range
8269    SET_MapBufferRange(table, _mesa_MapBufferRange); /* no dlist save */
8270    SET_FlushMappedBufferRange(table, _mesa_FlushMappedBufferRange); /* no dl */
8271 #endif
8272
8273    /* ARB 59. GL_ARB_copy_buffer */
8274    SET_CopyBufferSubData(table, _mesa_CopyBufferSubData); /* no dlist save */
8275
8276    /* 364. GL_EXT_provoking_vertex */
8277    SET_ProvokingVertexEXT(table, save_ProvokingVertexEXT);
8278 }
8279
8280
8281
8282 static const char *
8283 enum_string(GLenum k)
8284 {
8285    return _mesa_lookup_enum_by_nr(k);
8286 }
8287
8288
8289 /**
8290  * Print the commands in a display list.  For debugging only.
8291  * TODO: many commands aren't handled yet.
8292  */
8293 static void GLAPIENTRY
8294 print_list(GLcontext *ctx, GLuint list)
8295 {
8296    struct gl_display_list *dlist;
8297    Node *n;
8298    GLboolean done;
8299
8300    if (!islist(ctx, list)) {
8301       _mesa_printf("%u is not a display list ID\n", list);
8302       return;
8303    }
8304
8305    dlist = lookup_list(ctx, list);
8306    if (!dlist)
8307       return;
8308
8309    n = dlist->Head;
8310
8311    _mesa_printf("START-LIST %u, address %p\n", list, (void *) n);
8312
8313    done = n ? GL_FALSE : GL_TRUE;
8314    while (!done) {
8315       OpCode opcode = n[0].opcode;
8316       GLint i = (GLint) n[0].opcode - (GLint) OPCODE_EXT_0;
8317
8318       if (i >= 0 && i < (GLint) ctx->ListExt.NumOpcodes) {
8319          /* this is a driver-extended opcode */
8320          ctx->ListExt.Opcode[i].Print(ctx, &n[1]);
8321          n += ctx->ListExt.Opcode[i].Size;
8322       }
8323       else {
8324          switch (opcode) {
8325          case OPCODE_ACCUM:
8326             _mesa_printf("Accum %s %g\n", enum_string(n[1].e), n[2].f);
8327             break;
8328          case OPCODE_BITMAP:
8329             _mesa_printf("Bitmap %d %d %g %g %g %g %p\n", n[1].i, n[2].i,
8330                          n[3].f, n[4].f, n[5].f, n[6].f, (void *) n[7].data);
8331             break;
8332          case OPCODE_CALL_LIST:
8333             _mesa_printf("CallList %d\n", (int) n[1].ui);
8334             break;
8335          case OPCODE_CALL_LIST_OFFSET:
8336             _mesa_printf("CallList %d + offset %u = %u\n", (int) n[1].ui,
8337                          ctx->List.ListBase, ctx->List.ListBase + n[1].ui);
8338             break;
8339          case OPCODE_COLOR_TABLE_PARAMETER_FV:
8340             _mesa_printf("ColorTableParameterfv %s %s %f %f %f %f\n",
8341                          enum_string(n[1].e), enum_string(n[2].e),
8342                          n[3].f, n[4].f, n[5].f, n[6].f);
8343             break;
8344          case OPCODE_COLOR_TABLE_PARAMETER_IV:
8345             _mesa_printf("ColorTableParameteriv %s %s %d %d %d %d\n",
8346                          enum_string(n[1].e), enum_string(n[2].e),
8347                          n[3].i, n[4].i, n[5].i, n[6].i);
8348             break;
8349          case OPCODE_DISABLE:
8350             _mesa_printf("Disable %s\n", enum_string(n[1].e));
8351             break;
8352          case OPCODE_ENABLE:
8353             _mesa_printf("Enable %s\n", enum_string(n[1].e));
8354             break;
8355          case OPCODE_FRUSTUM:
8356             _mesa_printf("Frustum %g %g %g %g %g %g\n",
8357                          n[1].f, n[2].f, n[3].f, n[4].f, n[5].f, n[6].f);
8358             break;
8359          case OPCODE_LINE_STIPPLE:
8360             _mesa_printf("LineStipple %d %x\n", n[1].i, (int) n[2].us);
8361             break;
8362          case OPCODE_LOAD_IDENTITY:
8363             _mesa_printf("LoadIdentity\n");
8364             break;
8365          case OPCODE_LOAD_MATRIX:
8366             _mesa_printf("LoadMatrix\n");
8367             _mesa_printf("  %8f %8f %8f %8f\n",
8368                          n[1].f, n[5].f, n[9].f, n[13].f);
8369             _mesa_printf("  %8f %8f %8f %8f\n",
8370                          n[2].f, n[6].f, n[10].f, n[14].f);
8371             _mesa_printf("  %8f %8f %8f %8f\n",
8372                          n[3].f, n[7].f, n[11].f, n[15].f);
8373             _mesa_printf("  %8f %8f %8f %8f\n",
8374                          n[4].f, n[8].f, n[12].f, n[16].f);
8375             break;
8376          case OPCODE_MULT_MATRIX:
8377             _mesa_printf("MultMatrix (or Rotate)\n");
8378             _mesa_printf("  %8f %8f %8f %8f\n",
8379                          n[1].f, n[5].f, n[9].f, n[13].f);
8380             _mesa_printf("  %8f %8f %8f %8f\n",
8381                          n[2].f, n[6].f, n[10].f, n[14].f);
8382             _mesa_printf("  %8f %8f %8f %8f\n",
8383                          n[3].f, n[7].f, n[11].f, n[15].f);
8384             _mesa_printf("  %8f %8f %8f %8f\n",
8385                          n[4].f, n[8].f, n[12].f, n[16].f);
8386             break;
8387          case OPCODE_ORTHO:
8388             _mesa_printf("Ortho %g %g %g %g %g %g\n",
8389                          n[1].f, n[2].f, n[3].f, n[4].f, n[5].f, n[6].f);
8390             break;
8391          case OPCODE_POP_ATTRIB:
8392             _mesa_printf("PopAttrib\n");
8393             break;
8394          case OPCODE_POP_MATRIX:
8395             _mesa_printf("PopMatrix\n");
8396             break;
8397          case OPCODE_POP_NAME:
8398             _mesa_printf("PopName\n");
8399             break;
8400          case OPCODE_PUSH_ATTRIB:
8401             _mesa_printf("PushAttrib %x\n", n[1].bf);
8402             break;
8403          case OPCODE_PUSH_MATRIX:
8404             _mesa_printf("PushMatrix\n");
8405             break;
8406          case OPCODE_PUSH_NAME:
8407             _mesa_printf("PushName %d\n", (int) n[1].ui);
8408             break;
8409          case OPCODE_RASTER_POS:
8410             _mesa_printf("RasterPos %g %g %g %g\n",
8411                          n[1].f, n[2].f, n[3].f, n[4].f);
8412             break;
8413          case OPCODE_ROTATE:
8414             _mesa_printf("Rotate %g %g %g %g\n",
8415                          n[1].f, n[2].f, n[3].f, n[4].f);
8416             break;
8417          case OPCODE_SCALE:
8418             _mesa_printf("Scale %g %g %g\n", n[1].f, n[2].f, n[3].f);
8419             break;
8420          case OPCODE_TRANSLATE:
8421             _mesa_printf("Translate %g %g %g\n", n[1].f, n[2].f, n[3].f);
8422             break;
8423          case OPCODE_BIND_TEXTURE:
8424             _mesa_printf("BindTexture %s %d\n",
8425                          _mesa_lookup_enum_by_nr(n[1].ui), n[2].ui);
8426             break;
8427          case OPCODE_SHADE_MODEL:
8428             _mesa_printf("ShadeModel %s\n", _mesa_lookup_enum_by_nr(n[1].ui));
8429             break;
8430          case OPCODE_MAP1:
8431             _mesa_printf("Map1 %s %.3f %.3f %d %d\n",
8432                          _mesa_lookup_enum_by_nr(n[1].ui),
8433                          n[2].f, n[3].f, n[4].i, n[5].i);
8434             break;
8435          case OPCODE_MAP2:
8436             _mesa_printf("Map2 %s %.3f %.3f %.3f %.3f %d %d %d %d\n",
8437                          _mesa_lookup_enum_by_nr(n[1].ui),
8438                          n[2].f, n[3].f, n[4].f, n[5].f,
8439                          n[6].i, n[7].i, n[8].i, n[9].i);
8440             break;
8441          case OPCODE_MAPGRID1:
8442             _mesa_printf("MapGrid1 %d %.3f %.3f\n", n[1].i, n[2].f, n[3].f);
8443             break;
8444          case OPCODE_MAPGRID2:
8445             _mesa_printf("MapGrid2 %d %.3f %.3f, %d %.3f %.3f\n",
8446                          n[1].i, n[2].f, n[3].f, n[4].i, n[5].f, n[6].f);
8447             break;
8448          case OPCODE_EVALMESH1:
8449             _mesa_printf("EvalMesh1 %d %d\n", n[1].i, n[2].i);
8450             break;
8451          case OPCODE_EVALMESH2:
8452             _mesa_printf("EvalMesh2 %d %d %d %d\n",
8453                          n[1].i, n[2].i, n[3].i, n[4].i);
8454             break;
8455
8456          case OPCODE_ATTR_1F_NV:
8457             _mesa_printf("ATTR_1F_NV attr %d: %f\n", n[1].i, n[2].f);
8458             break;
8459          case OPCODE_ATTR_2F_NV:
8460             _mesa_printf("ATTR_2F_NV attr %d: %f %f\n",
8461                          n[1].i, n[2].f, n[3].f);
8462             break;
8463          case OPCODE_ATTR_3F_NV:
8464             _mesa_printf("ATTR_3F_NV attr %d: %f %f %f\n",
8465                          n[1].i, n[2].f, n[3].f, n[4].f);
8466             break;
8467          case OPCODE_ATTR_4F_NV:
8468             _mesa_printf("ATTR_4F_NV attr %d: %f %f %f %f\n",
8469                          n[1].i, n[2].f, n[3].f, n[4].f, n[5].f);
8470             break;
8471          case OPCODE_ATTR_1F_ARB:
8472             _mesa_printf("ATTR_1F_ARB attr %d: %f\n", n[1].i, n[2].f);
8473             break;
8474          case OPCODE_ATTR_2F_ARB:
8475             _mesa_printf("ATTR_2F_ARB attr %d: %f %f\n",
8476                          n[1].i, n[2].f, n[3].f);
8477             break;
8478          case OPCODE_ATTR_3F_ARB:
8479             _mesa_printf("ATTR_3F_ARB attr %d: %f %f %f\n",
8480                          n[1].i, n[2].f, n[3].f, n[4].f);
8481             break;
8482          case OPCODE_ATTR_4F_ARB:
8483             _mesa_printf("ATTR_4F_ARB attr %d: %f %f %f %f\n",
8484                          n[1].i, n[2].f, n[3].f, n[4].f, n[5].f);
8485             break;
8486
8487          case OPCODE_MATERIAL:
8488             _mesa_printf("MATERIAL %x %x: %f %f %f %f\n",
8489                          n[1].i, n[2].i, n[3].f, n[4].f, n[5].f, n[6].f);
8490             break;
8491          case OPCODE_BEGIN:
8492             _mesa_printf("BEGIN %x\n", n[1].i);
8493             break;
8494          case OPCODE_END:
8495             _mesa_printf("END\n");
8496             break;
8497          case OPCODE_RECTF:
8498             _mesa_printf("RECTF %f %f %f %f\n", n[1].f, n[2].f, n[3].f,
8499                          n[4].f);
8500             break;
8501          case OPCODE_EVAL_C1:
8502             _mesa_printf("EVAL_C1 %f\n", n[1].f);
8503             break;
8504          case OPCODE_EVAL_C2:
8505             _mesa_printf("EVAL_C2 %f %f\n", n[1].f, n[2].f);
8506             break;
8507          case OPCODE_EVAL_P1:
8508             _mesa_printf("EVAL_P1 %d\n", n[1].i);
8509             break;
8510          case OPCODE_EVAL_P2:
8511             _mesa_printf("EVAL_P2 %d %d\n", n[1].i, n[2].i);
8512             break;
8513
8514          case OPCODE_PROVOKING_VERTEX:
8515             _mesa_printf("ProvokingVertex %s\n",
8516                          _mesa_lookup_enum_by_nr(n[1].ui));
8517             break;
8518
8519             /*
8520              * meta opcodes/commands
8521              */
8522          case OPCODE_ERROR:
8523             _mesa_printf("Error: %s %s\n",
8524                          enum_string(n[1].e), (const char *) n[2].data);
8525             break;
8526          case OPCODE_CONTINUE:
8527             _mesa_printf("DISPLAY-LIST-CONTINUE\n");
8528             n = (Node *) n[1].next;
8529             break;
8530          case OPCODE_END_OF_LIST:
8531             _mesa_printf("END-LIST %u\n", list);
8532             done = GL_TRUE;
8533             break;
8534          default:
8535             if (opcode < 0 || opcode > OPCODE_END_OF_LIST) {
8536                _mesa_printf
8537                   ("ERROR IN DISPLAY LIST: opcode = %d, address = %p\n",
8538                    opcode, (void *) n);
8539                return;
8540             }
8541             else {
8542                _mesa_printf("command %d, %u operands\n", opcode,
8543                             InstSize[opcode]);
8544             }
8545          }
8546          /* increment n to point to next compiled command */
8547          if (opcode != OPCODE_CONTINUE) {
8548             n += InstSize[opcode];
8549          }
8550       }
8551    }
8552 }
8553
8554
8555
8556 /**
8557  * Clients may call this function to help debug display list problems.
8558  * This function is _ONLY_FOR_DEBUGGING_PURPOSES_.  It may be removed,
8559  * changed, or break in the future without notice.
8560  */
8561 void
8562 mesa_print_display_list(GLuint list)
8563 {
8564    GET_CURRENT_CONTEXT(ctx);
8565    print_list(ctx, list);
8566 }
8567
8568
8569 /**********************************************************************/
8570 /*****                      Initialization                        *****/
8571 /**********************************************************************/
8572
8573 void
8574 _mesa_save_vtxfmt_init(GLvertexformat * vfmt)
8575 {
8576    vfmt->ArrayElement = _ae_loopback_array_elt; /* generic helper */
8577    vfmt->Begin = save_Begin;
8578    vfmt->CallList = _mesa_save_CallList;
8579    vfmt->CallLists = _mesa_save_CallLists;
8580    vfmt->Color3f = save_Color3f;
8581    vfmt->Color3fv = save_Color3fv;
8582    vfmt->Color4f = save_Color4f;
8583    vfmt->Color4fv = save_Color4fv;
8584    vfmt->EdgeFlag = save_EdgeFlag;
8585    vfmt->End = save_End;
8586    vfmt->EvalCoord1f = save_EvalCoord1f;
8587    vfmt->EvalCoord1fv = save_EvalCoord1fv;
8588    vfmt->EvalCoord2f = save_EvalCoord2f;
8589    vfmt->EvalCoord2fv = save_EvalCoord2fv;
8590    vfmt->EvalPoint1 = save_EvalPoint1;
8591    vfmt->EvalPoint2 = save_EvalPoint2;
8592    vfmt->FogCoordfEXT = save_FogCoordfEXT;
8593    vfmt->FogCoordfvEXT = save_FogCoordfvEXT;
8594    vfmt->Indexf = save_Indexf;
8595    vfmt->Indexfv = save_Indexfv;
8596    vfmt->Materialfv = save_Materialfv;
8597    vfmt->MultiTexCoord1fARB = save_MultiTexCoord1f;
8598    vfmt->MultiTexCoord1fvARB = save_MultiTexCoord1fv;
8599    vfmt->MultiTexCoord2fARB = save_MultiTexCoord2f;
8600    vfmt->MultiTexCoord2fvARB = save_MultiTexCoord2fv;
8601    vfmt->MultiTexCoord3fARB = save_MultiTexCoord3f;
8602    vfmt->MultiTexCoord3fvARB = save_MultiTexCoord3fv;
8603    vfmt->MultiTexCoord4fARB = save_MultiTexCoord4f;
8604    vfmt->MultiTexCoord4fvARB = save_MultiTexCoord4fv;
8605    vfmt->Normal3f = save_Normal3f;
8606    vfmt->Normal3fv = save_Normal3fv;
8607    vfmt->SecondaryColor3fEXT = save_SecondaryColor3fEXT;
8608    vfmt->SecondaryColor3fvEXT = save_SecondaryColor3fvEXT;
8609    vfmt->TexCoord1f = save_TexCoord1f;
8610    vfmt->TexCoord1fv = save_TexCoord1fv;
8611    vfmt->TexCoord2f = save_TexCoord2f;
8612    vfmt->TexCoord2fv = save_TexCoord2fv;
8613    vfmt->TexCoord3f = save_TexCoord3f;
8614    vfmt->TexCoord3fv = save_TexCoord3fv;
8615    vfmt->TexCoord4f = save_TexCoord4f;
8616    vfmt->TexCoord4fv = save_TexCoord4fv;
8617    vfmt->Vertex2f = save_Vertex2f;
8618    vfmt->Vertex2fv = save_Vertex2fv;
8619    vfmt->Vertex3f = save_Vertex3f;
8620    vfmt->Vertex3fv = save_Vertex3fv;
8621    vfmt->Vertex4f = save_Vertex4f;
8622    vfmt->Vertex4fv = save_Vertex4fv;
8623    vfmt->VertexAttrib1fNV = save_VertexAttrib1fNV;
8624    vfmt->VertexAttrib1fvNV = save_VertexAttrib1fvNV;
8625    vfmt->VertexAttrib2fNV = save_VertexAttrib2fNV;
8626    vfmt->VertexAttrib2fvNV = save_VertexAttrib2fvNV;
8627    vfmt->VertexAttrib3fNV = save_VertexAttrib3fNV;
8628    vfmt->VertexAttrib3fvNV = save_VertexAttrib3fvNV;
8629    vfmt->VertexAttrib4fNV = save_VertexAttrib4fNV;
8630    vfmt->VertexAttrib4fvNV = save_VertexAttrib4fvNV;
8631    vfmt->VertexAttrib1fARB = save_VertexAttrib1fARB;
8632    vfmt->VertexAttrib1fvARB = save_VertexAttrib1fvARB;
8633    vfmt->VertexAttrib2fARB = save_VertexAttrib2fARB;
8634    vfmt->VertexAttrib2fvARB = save_VertexAttrib2fvARB;
8635    vfmt->VertexAttrib3fARB = save_VertexAttrib3fARB;
8636    vfmt->VertexAttrib3fvARB = save_VertexAttrib3fvARB;
8637    vfmt->VertexAttrib4fARB = save_VertexAttrib4fARB;
8638    vfmt->VertexAttrib4fvARB = save_VertexAttrib4fvARB;
8639
8640    vfmt->EvalMesh1 = _mesa_save_EvalMesh1;
8641    vfmt->EvalMesh2 = _mesa_save_EvalMesh2;
8642    vfmt->Rectf = save_Rectf;
8643
8644    /* The driver is required to implement these as
8645     * 1) They can probably do a better job.
8646     * 2) A lot of new mechanisms would have to be added to this module
8647     *     to support it.  That code would probably never get used,
8648     *     because of (1).
8649     */
8650 #if 0
8651    vfmt->DrawArrays = 0;
8652    vfmt->DrawElements = 0;
8653    vfmt->DrawRangeElements = 0;
8654 #endif
8655 }
8656
8657
8658 /**
8659  * Initialize display list state for given context.
8660  */
8661 void
8662 _mesa_init_display_list(GLcontext *ctx)
8663 {
8664    static GLboolean tableInitialized = GL_FALSE;
8665
8666    /* zero-out the instruction size table, just once */
8667    if (!tableInitialized) {
8668       _mesa_bzero(InstSize, sizeof(InstSize));
8669       tableInitialized = GL_TRUE;
8670    }
8671
8672    /* Display list */
8673    ctx->ListState.CallDepth = 0;
8674    ctx->ExecuteFlag = GL_TRUE;
8675    ctx->CompileFlag = GL_FALSE;
8676    ctx->ListState.CurrentBlock = NULL;
8677    ctx->ListState.CurrentPos = 0;
8678
8679    /* Display List group */
8680    ctx->List.ListBase = 0;
8681
8682    _mesa_save_vtxfmt_init(&ctx->ListState.ListVtxfmt);
8683 }