2 * Mesa 3-D graphics library
4 * Copyright (C) 1999-2007 Brian Paul All Rights Reserved.
5 * Copyright (C) 2008 VMware, Inc. All Rights Reserved.
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:
14 * The above copyright notice and this permission notice shall be included
15 * in all copies or substantial portions of the Software.
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 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
21 * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
22 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
23 * OTHER DEALINGS IN THE SOFTWARE.
28 * Mesa context/visual/framebuffer management functions.
33 * \mainpage Mesa Main Module
35 * \section MainIntroduction Introduction
37 * The Mesa Main module consists of all the files in the main/ directory.
38 * Among the features of this module are:
40 * <LI> Structures to represent most GL state </LI>
41 * <LI> State set/get functions </LI>
42 * <LI> Display lists </LI>
43 * <LI> Texture unit, object and image handling </LI>
44 * <LI> Matrix and attribute stacks </LI>
47 * Other modules are responsible for API dispatch, vertex transformation,
48 * point/line/triangle setup, rasterization, vertex array caching,
49 * vertex/fragment programs/shaders, etc.
52 * \section AboutDoxygen About Doxygen
54 * If you're viewing this information as Doxygen-generated HTML you'll
55 * see the documentation index at the top of this page.
57 * The first line lists the Mesa source code modules.
58 * The second line lists the indexes available for viewing the documentation
61 * Selecting the <b>Main page</b> link will display a summary of the module
64 * Selecting <b>Data Structures</b> will list all C structures.
66 * Selecting the <b>File List</b> link will list all the source files in
68 * Selecting a filename will show a list of all functions defined in that file.
70 * Selecting the <b>Data Fields</b> link will display a list of all
71 * documented structure members.
73 * Selecting the <b>Globals</b> link will display a list
74 * of all functions, structures, global variables and macros in the module.
83 #include "api_loopback.h"
88 #include "bufferobj.h"
95 #include "extensions.h"
100 #include "framebuffer.h"
107 #include "multisample.h"
108 #include "performance_monitor.h"
109 #include "pipelineobj.h"
111 #include "pixelstore.h"
114 #include "queryobj.h"
120 #include "shaderobj.h"
121 #include "shaderimage.h"
122 #include "util/simple_list.h"
125 #include "texcompress_s3tc.h"
126 #include "texstate.h"
127 #include "transformfeedback.h"
131 #include "viewport.h"
133 #include "program/program.h"
134 #include "program/prog_print.h"
135 #include "math/m_matrix.h"
136 #include "main/dispatch.h" /* for _gloffset_COUNT */
137 #include "uniforms.h"
141 #include "sparc/sparc.h"
144 #include "glsl_parser_extras.h"
149 int MESA_VERBOSE
= 0;
152 #ifndef MESA_DEBUG_FLAGS
153 int MESA_DEBUG_FLAGS
= 0;
157 /* ubyte -> float conversion */
158 GLfloat _mesa_ubyte_to_float_color_tab
[256];
163 * Swap buffers notification callback.
165 * \param ctx GL context.
167 * Called by window system just before swapping buffers.
168 * We have to finish any pending rendering.
171 _mesa_notifySwapBuffers(struct gl_context
*ctx
)
173 if (MESA_VERBOSE
& VERBOSE_SWAPBUFFERS
)
174 _mesa_debug(ctx
, "SwapBuffers\n");
175 FLUSH_CURRENT( ctx
, 0 );
176 if (ctx
->Driver
.Flush
) {
177 ctx
->Driver
.Flush(ctx
);
182 /**********************************************************************/
183 /** \name GL Visual allocation/destruction */
184 /**********************************************************************/
188 * Allocates a struct gl_config structure and initializes it via
189 * _mesa_initialize_visual().
191 * \param dbFlag double buffering
192 * \param stereoFlag stereo buffer
193 * \param depthBits requested bits per depth buffer value. Any value in [0, 32]
194 * is acceptable but the actual depth type will be GLushort or GLuint as
196 * \param stencilBits requested minimum bits per stencil buffer value
197 * \param accumRedBits, accumGreenBits, accumBlueBits, accumAlphaBits number
198 * of bits per color component in accum buffer.
199 * \param indexBits number of bits per pixel if \p rgbFlag is GL_FALSE
200 * \param redBits number of bits per color component in frame buffer for RGB(A)
201 * mode. We always use 8 in core Mesa though.
202 * \param greenBits same as above.
203 * \param blueBits same as above.
204 * \param alphaBits same as above.
205 * \param numSamples not really used.
207 * \return pointer to new struct gl_config or NULL if requested parameters
210 * \note Need to add params for level and numAuxBuffers (at least)
213 _mesa_create_visual( GLboolean dbFlag
,
214 GLboolean stereoFlag
,
222 GLint accumGreenBits
,
224 GLint accumAlphaBits
,
227 struct gl_config
*vis
= CALLOC_STRUCT(gl_config
);
229 if (!_mesa_initialize_visual(vis
, dbFlag
, stereoFlag
,
230 redBits
, greenBits
, blueBits
, alphaBits
,
231 depthBits
, stencilBits
,
232 accumRedBits
, accumGreenBits
,
233 accumBlueBits
, accumAlphaBits
,
244 * Makes some sanity checks and fills in the fields of the struct
245 * gl_config object with the given parameters. If the caller needs to
246 * set additional fields, he should just probably init the whole
247 * gl_config object himself.
249 * \return GL_TRUE on success, or GL_FALSE on failure.
251 * \sa _mesa_create_visual() above for the parameter description.
254 _mesa_initialize_visual( struct gl_config
*vis
,
256 GLboolean stereoFlag
,
264 GLint accumGreenBits
,
266 GLint accumAlphaBits
,
271 if (depthBits
< 0 || depthBits
> 32) {
274 if (stencilBits
< 0 || stencilBits
> 8) {
277 assert(accumRedBits
>= 0);
278 assert(accumGreenBits
>= 0);
279 assert(accumBlueBits
>= 0);
280 assert(accumAlphaBits
>= 0);
282 vis
->rgbMode
= GL_TRUE
;
283 vis
->doubleBufferMode
= dbFlag
;
284 vis
->stereoMode
= stereoFlag
;
286 vis
->redBits
= redBits
;
287 vis
->greenBits
= greenBits
;
288 vis
->blueBits
= blueBits
;
289 vis
->alphaBits
= alphaBits
;
290 vis
->rgbBits
= redBits
+ greenBits
+ blueBits
;
293 vis
->depthBits
= depthBits
;
294 vis
->stencilBits
= stencilBits
;
296 vis
->accumRedBits
= accumRedBits
;
297 vis
->accumGreenBits
= accumGreenBits
;
298 vis
->accumBlueBits
= accumBlueBits
;
299 vis
->accumAlphaBits
= accumAlphaBits
;
301 vis
->haveAccumBuffer
= accumRedBits
> 0;
302 vis
->haveDepthBuffer
= depthBits
> 0;
303 vis
->haveStencilBuffer
= stencilBits
> 0;
305 vis
->numAuxBuffers
= 0;
307 vis
->sampleBuffers
= numSamples
> 0 ? 1 : 0;
308 vis
->samples
= numSamples
;
315 * Destroy a visual and free its memory.
319 * Frees the visual structure.
322 _mesa_destroy_visual( struct gl_config
*vis
)
330 /**********************************************************************/
331 /** \name Context allocation, initialization, destroying
333 * The purpose of the most initialization functions here is to provide the
334 * default state values according to the OpenGL specification.
336 /**********************************************************************/
341 * This is lame. gdb only seems to recognize enum types that are
342 * actually used somewhere. We want to be able to print/use enum
343 * values such as TEXTURE_2D_INDEX in gdb. But we don't actually use
344 * the gl_texture_index type anywhere. Thus, this lame function.
347 dummy_enum_func(void)
349 gl_buffer_index bi
= BUFFER_FRONT_LEFT
;
350 gl_face_index fi
= FACE_POS_X
;
351 gl_frag_result fr
= FRAG_RESULT_DEPTH
;
352 gl_texture_index ti
= TEXTURE_2D_ARRAY_INDEX
;
353 gl_vert_attrib va
= VERT_ATTRIB_POS
;
354 gl_varying_slot vs
= VARYING_SLOT_POS
;
366 * One-time initialization mutex lock.
368 * \sa Used by one_time_init().
370 mtx_t OneTimeLock
= _MTX_INITIALIZER_NP
;
375 * Calls all the various one-time-init functions in Mesa.
377 * While holding a global mutex lock, calls several initialization functions,
378 * and sets the glapi callbacks if the \c MESA_DEBUG environment variable is
384 one_time_init( struct gl_context
*ctx
)
386 static GLbitfield api_init_mask
= 0x0;
388 mtx_lock(&OneTimeLock
);
390 /* truly one-time init */
391 if (!api_init_mask
) {
394 /* do some implementation tests */
395 assert( sizeof(GLbyte
) == 1 );
396 assert( sizeof(GLubyte
) == 1 );
397 assert( sizeof(GLshort
) == 2 );
398 assert( sizeof(GLushort
) == 2 );
399 assert( sizeof(GLint
) == 4 );
400 assert( sizeof(GLuint
) == 4 );
402 _mesa_one_time_init_extension_overrides();
404 _mesa_get_cpu_features();
406 for (i
= 0; i
< 256; i
++) {
407 _mesa_ubyte_to_float_color_tab
[i
] = (float) i
/ 255.0F
;
410 #if defined(DEBUG) && defined(__DATE__) && defined(__TIME__)
411 if (MESA_VERBOSE
!= 0) {
412 _mesa_debug(ctx
, "Mesa %s DEBUG build %s %s\n",
413 PACKAGE_VERSION
, __DATE__
, __TIME__
);
418 _mesa_test_formats();
422 /* per-API one-time init */
423 if (!(api_init_mask
& (1 << ctx
->API
))) {
424 _mesa_init_get_hash(ctx
);
426 _mesa_init_remap_table();
429 api_init_mask
|= 1 << ctx
->API
;
431 mtx_unlock(&OneTimeLock
);
433 /* Hopefully atexit() is widely available. If not, we may need some
436 atexit(_mesa_destroy_shader_compiler
);
443 * Initialize fields of gl_current_attrib (aka ctx->Current.*)
446 _mesa_init_current(struct gl_context
*ctx
)
450 /* Init all to (0,0,0,1) */
451 for (i
= 0; i
< ARRAY_SIZE(ctx
->Current
.Attrib
); i
++) {
452 ASSIGN_4V( ctx
->Current
.Attrib
[i
], 0.0, 0.0, 0.0, 1.0 );
455 /* redo special cases: */
456 ASSIGN_4V( ctx
->Current
.Attrib
[VERT_ATTRIB_WEIGHT
], 1.0, 0.0, 0.0, 0.0 );
457 ASSIGN_4V( ctx
->Current
.Attrib
[VERT_ATTRIB_NORMAL
], 0.0, 0.0, 1.0, 1.0 );
458 ASSIGN_4V( ctx
->Current
.Attrib
[VERT_ATTRIB_COLOR0
], 1.0, 1.0, 1.0, 1.0 );
459 ASSIGN_4V( ctx
->Current
.Attrib
[VERT_ATTRIB_COLOR1
], 0.0, 0.0, 0.0, 1.0 );
460 ASSIGN_4V( ctx
->Current
.Attrib
[VERT_ATTRIB_COLOR_INDEX
], 1.0, 0.0, 0.0, 1.0 );
461 ASSIGN_4V( ctx
->Current
.Attrib
[VERT_ATTRIB_EDGEFLAG
], 1.0, 0.0, 0.0, 1.0 );
466 * Init vertex/fragment/geometry program limits.
467 * Important: drivers should override these with actual limits.
470 init_program_limits(struct gl_constants
*consts
, gl_shader_stage stage
,
471 struct gl_program_constants
*prog
)
473 prog
->MaxInstructions
= MAX_PROGRAM_INSTRUCTIONS
;
474 prog
->MaxAluInstructions
= MAX_PROGRAM_INSTRUCTIONS
;
475 prog
->MaxTexInstructions
= MAX_PROGRAM_INSTRUCTIONS
;
476 prog
->MaxTexIndirections
= MAX_PROGRAM_INSTRUCTIONS
;
477 prog
->MaxTemps
= MAX_PROGRAM_TEMPS
;
478 prog
->MaxEnvParams
= MAX_PROGRAM_ENV_PARAMS
;
479 prog
->MaxLocalParams
= MAX_PROGRAM_LOCAL_PARAMS
;
480 prog
->MaxAddressOffset
= MAX_PROGRAM_LOCAL_PARAMS
;
483 case MESA_SHADER_VERTEX
:
484 prog
->MaxParameters
= MAX_VERTEX_PROGRAM_PARAMS
;
485 prog
->MaxAttribs
= MAX_VERTEX_GENERIC_ATTRIBS
;
486 prog
->MaxAddressRegs
= MAX_VERTEX_PROGRAM_ADDRESS_REGS
;
487 prog
->MaxUniformComponents
= 4 * MAX_UNIFORMS
;
488 prog
->MaxInputComponents
= 0; /* value not used */
489 prog
->MaxOutputComponents
= 16 * 4; /* old limit not to break tnl and swrast */
491 case MESA_SHADER_FRAGMENT
:
492 prog
->MaxParameters
= MAX_FRAGMENT_PROGRAM_PARAMS
;
493 prog
->MaxAttribs
= MAX_FRAGMENT_PROGRAM_INPUTS
;
494 prog
->MaxAddressRegs
= MAX_FRAGMENT_PROGRAM_ADDRESS_REGS
;
495 prog
->MaxUniformComponents
= 4 * MAX_UNIFORMS
;
496 prog
->MaxInputComponents
= 16 * 4; /* old limit not to break tnl and swrast */
497 prog
->MaxOutputComponents
= 0; /* value not used */
499 case MESA_SHADER_GEOMETRY
:
500 prog
->MaxParameters
= MAX_VERTEX_PROGRAM_PARAMS
;
501 prog
->MaxAttribs
= MAX_VERTEX_GENERIC_ATTRIBS
;
502 prog
->MaxAddressRegs
= MAX_VERTEX_PROGRAM_ADDRESS_REGS
;
503 prog
->MaxUniformComponents
= 4 * MAX_UNIFORMS
;
504 prog
->MaxInputComponents
= 16 * 4; /* old limit not to break tnl and swrast */
505 prog
->MaxOutputComponents
= 16 * 4; /* old limit not to break tnl and swrast */
507 case MESA_SHADER_COMPUTE
:
508 prog
->MaxParameters
= 0; /* not meaningful for compute shaders */
509 prog
->MaxAttribs
= 0; /* not meaningful for compute shaders */
510 prog
->MaxAddressRegs
= 0; /* not meaningful for compute shaders */
511 prog
->MaxUniformComponents
= 4 * MAX_UNIFORMS
;
512 prog
->MaxInputComponents
= 0; /* not meaningful for compute shaders */
513 prog
->MaxOutputComponents
= 0; /* not meaningful for compute shaders */
516 assert(0 && "Bad shader stage in init_program_limits()");
519 /* Set the native limits to zero. This implies that there is no native
520 * support for shaders. Let the drivers fill in the actual values.
522 prog
->MaxNativeInstructions
= 0;
523 prog
->MaxNativeAluInstructions
= 0;
524 prog
->MaxNativeTexInstructions
= 0;
525 prog
->MaxNativeTexIndirections
= 0;
526 prog
->MaxNativeAttribs
= 0;
527 prog
->MaxNativeTemps
= 0;
528 prog
->MaxNativeAddressRegs
= 0;
529 prog
->MaxNativeParameters
= 0;
531 /* Set GLSL datatype range/precision info assuming IEEE float values.
532 * Drivers should override these defaults as needed.
534 prog
->MediumFloat
.RangeMin
= 127;
535 prog
->MediumFloat
.RangeMax
= 127;
536 prog
->MediumFloat
.Precision
= 23;
537 prog
->LowFloat
= prog
->HighFloat
= prog
->MediumFloat
;
539 /* Assume ints are stored as floats for now, since this is the least-common
540 * denominator. The OpenGL ES spec implies (page 132) that the precision
541 * of integer types should be 0. Practically speaking, IEEE
542 * single-precision floating point values can only store integers in the
543 * range [-0x01000000, 0x01000000] without loss of precision.
545 prog
->MediumInt
.RangeMin
= 24;
546 prog
->MediumInt
.RangeMax
= 24;
547 prog
->MediumInt
.Precision
= 0;
548 prog
->LowInt
= prog
->HighInt
= prog
->MediumInt
;
550 prog
->MaxUniformBlocks
= 12;
551 prog
->MaxCombinedUniformComponents
= (prog
->MaxUniformComponents
+
552 consts
->MaxUniformBlockSize
/ 4 *
553 prog
->MaxUniformBlocks
);
555 prog
->MaxAtomicBuffers
= 0;
556 prog
->MaxAtomicCounters
= 0;
561 * Initialize fields of gl_constants (aka ctx->Const.*).
562 * Use defaults from config.h. The device drivers will often override
563 * some of these values (such as number of texture units).
566 _mesa_init_constants(struct gl_constants
*consts
, gl_api api
)
571 /* Constants, may be overriden (usually only reduced) by device drivers */
572 consts
->MaxTextureMbytes
= MAX_TEXTURE_MBYTES
;
573 consts
->MaxTextureLevels
= MAX_TEXTURE_LEVELS
;
574 consts
->Max3DTextureLevels
= MAX_3D_TEXTURE_LEVELS
;
575 consts
->MaxCubeTextureLevels
= MAX_CUBE_TEXTURE_LEVELS
;
576 consts
->MaxTextureRectSize
= MAX_TEXTURE_RECT_SIZE
;
577 consts
->MaxArrayTextureLayers
= MAX_ARRAY_TEXTURE_LAYERS
;
578 consts
->MaxTextureCoordUnits
= MAX_TEXTURE_COORD_UNITS
;
579 consts
->Program
[MESA_SHADER_FRAGMENT
].MaxTextureImageUnits
= MAX_TEXTURE_IMAGE_UNITS
;
580 consts
->MaxTextureUnits
= MIN2(consts
->MaxTextureCoordUnits
,
581 consts
->Program
[MESA_SHADER_FRAGMENT
].MaxTextureImageUnits
);
582 consts
->MaxTextureMaxAnisotropy
= MAX_TEXTURE_MAX_ANISOTROPY
;
583 consts
->MaxTextureLodBias
= MAX_TEXTURE_LOD_BIAS
;
584 consts
->MaxTextureBufferSize
= 65536;
585 consts
->TextureBufferOffsetAlignment
= 1;
586 consts
->MaxArrayLockSize
= MAX_ARRAY_LOCK_SIZE
;
587 consts
->SubPixelBits
= SUB_PIXEL_BITS
;
588 consts
->MinPointSize
= MIN_POINT_SIZE
;
589 consts
->MaxPointSize
= MAX_POINT_SIZE
;
590 consts
->MinPointSizeAA
= MIN_POINT_SIZE
;
591 consts
->MaxPointSizeAA
= MAX_POINT_SIZE
;
592 consts
->PointSizeGranularity
= (GLfloat
) POINT_SIZE_GRANULARITY
;
593 consts
->MinLineWidth
= MIN_LINE_WIDTH
;
594 consts
->MaxLineWidth
= MAX_LINE_WIDTH
;
595 consts
->MinLineWidthAA
= MIN_LINE_WIDTH
;
596 consts
->MaxLineWidthAA
= MAX_LINE_WIDTH
;
597 consts
->LineWidthGranularity
= (GLfloat
) LINE_WIDTH_GRANULARITY
;
598 consts
->MaxClipPlanes
= 6;
599 consts
->MaxLights
= MAX_LIGHTS
;
600 consts
->MaxShininess
= 128.0;
601 consts
->MaxSpotExponent
= 128.0;
602 consts
->MaxViewportWidth
= MAX_VIEWPORT_WIDTH
;
603 consts
->MaxViewportHeight
= MAX_VIEWPORT_HEIGHT
;
604 consts
->MinMapBufferAlignment
= 64;
606 /* Driver must override these values if ARB_viewport_array is supported. */
607 consts
->MaxViewports
= 1;
608 consts
->ViewportSubpixelBits
= 0;
609 consts
->ViewportBounds
.Min
= 0;
610 consts
->ViewportBounds
.Max
= 0;
612 /** GL_ARB_uniform_buffer_object */
613 consts
->MaxCombinedUniformBlocks
= 36;
614 consts
->MaxUniformBufferBindings
= 36;
615 consts
->MaxUniformBlockSize
= 16384;
616 consts
->UniformBufferOffsetAlignment
= 1;
618 /* GL_ARB_explicit_uniform_location, GL_MAX_UNIFORM_LOCATIONS */
619 consts
->MaxUserAssignableUniformLocations
=
620 4 * MESA_SHADER_STAGES
* MAX_UNIFORMS
;
622 for (i
= 0; i
< MESA_SHADER_STAGES
; i
++)
623 init_program_limits(consts
, i
, &consts
->Program
[i
]);
625 consts
->MaxProgramMatrices
= MAX_PROGRAM_MATRICES
;
626 consts
->MaxProgramMatrixStackDepth
= MAX_PROGRAM_MATRIX_STACK_DEPTH
;
628 /* Assume that if GLSL 1.30+ (or GLSL ES 3.00+) is supported that
629 * gl_VertexID is implemented using a native hardware register with OpenGL
632 consts
->VertexID_is_zero_based
= false;
634 /* GL_ARB_draw_buffers */
635 consts
->MaxDrawBuffers
= MAX_DRAW_BUFFERS
;
637 consts
->MaxColorAttachments
= MAX_COLOR_ATTACHMENTS
;
638 consts
->MaxRenderbufferSize
= MAX_RENDERBUFFER_SIZE
;
640 consts
->Program
[MESA_SHADER_VERTEX
].MaxTextureImageUnits
= MAX_TEXTURE_IMAGE_UNITS
;
641 consts
->MaxCombinedTextureImageUnits
= MAX_COMBINED_TEXTURE_IMAGE_UNITS
;
642 consts
->MaxVarying
= 16; /* old limit not to break tnl and swrast */
643 consts
->Program
[MESA_SHADER_GEOMETRY
].MaxTextureImageUnits
= MAX_TEXTURE_IMAGE_UNITS
;
644 consts
->MaxGeometryOutputVertices
= MAX_GEOMETRY_OUTPUT_VERTICES
;
645 consts
->MaxGeometryTotalOutputComponents
= MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS
;
647 /* Shading language version */
648 consts
->GLSLVersion
= 120;
649 _mesa_override_glsl_version(consts
);
652 consts
->GenerateTemporaryNames
= true;
654 consts
->GenerateTemporaryNames
= false;
657 /* GL_ARB_framebuffer_object */
658 consts
->MaxSamples
= 0;
660 /* GLSL default if NativeIntegers == FALSE */
661 consts
->UniformBooleanTrue
= FLOAT_AS_UNION(1.0f
).u
;
664 consts
->MaxServerWaitTimeout
= 0x1fff7fffffffULL
;
666 /* GL_EXT_provoking_vertex */
667 consts
->QuadsFollowProvokingVertexConvention
= GL_TRUE
;
669 /* GL_EXT_transform_feedback */
670 consts
->MaxTransformFeedbackBuffers
= MAX_FEEDBACK_BUFFERS
;
671 consts
->MaxTransformFeedbackSeparateComponents
= 4 * MAX_FEEDBACK_ATTRIBS
;
672 consts
->MaxTransformFeedbackInterleavedComponents
= 4 * MAX_FEEDBACK_ATTRIBS
;
673 consts
->MaxVertexStreams
= 1;
676 consts
->ProfileMask
= api
== API_OPENGL_CORE
677 ? GL_CONTEXT_CORE_PROFILE_BIT
678 : GL_CONTEXT_COMPATIBILITY_PROFILE_BIT
;
681 consts
->MaxVertexAttribStride
= 2048;
683 /** GL_EXT_gpu_shader4 */
684 consts
->MinProgramTexelOffset
= -8;
685 consts
->MaxProgramTexelOffset
= 7;
687 /* GL_ARB_texture_gather */
688 consts
->MinProgramTextureGatherOffset
= -8;
689 consts
->MaxProgramTextureGatherOffset
= 7;
691 /* GL_ARB_robustness */
692 consts
->ResetStrategy
= GL_NO_RESET_NOTIFICATION_ARB
;
694 /* ES 3.0 or ARB_ES3_compatibility */
695 consts
->MaxElementIndex
= 0xffffffffu
;
697 /* GL_ARB_texture_multisample */
698 consts
->MaxColorTextureSamples
= 1;
699 consts
->MaxDepthTextureSamples
= 1;
700 consts
->MaxIntegerSamples
= 1;
702 /* GL_ARB_shader_atomic_counters */
703 consts
->MaxAtomicBufferBindings
= MAX_COMBINED_ATOMIC_BUFFERS
;
704 consts
->MaxAtomicBufferSize
= MAX_ATOMIC_COUNTERS
* ATOMIC_COUNTER_SIZE
;
705 consts
->MaxCombinedAtomicBuffers
= MAX_COMBINED_ATOMIC_BUFFERS
;
706 consts
->MaxCombinedAtomicCounters
= MAX_ATOMIC_COUNTERS
;
708 /* GL_ARB_vertex_attrib_binding */
709 consts
->MaxVertexAttribRelativeOffset
= 2047;
710 consts
->MaxVertexAttribBindings
= MAX_VERTEX_GENERIC_ATTRIBS
;
712 /* GL_ARB_compute_shader */
713 consts
->MaxComputeWorkGroupCount
[0] = 65535;
714 consts
->MaxComputeWorkGroupCount
[1] = 65535;
715 consts
->MaxComputeWorkGroupCount
[2] = 65535;
716 consts
->MaxComputeWorkGroupSize
[0] = 1024;
717 consts
->MaxComputeWorkGroupSize
[1] = 1024;
718 consts
->MaxComputeWorkGroupSize
[2] = 64;
719 consts
->MaxComputeWorkGroupInvocations
= 1024;
721 /** GL_ARB_gpu_shader5 */
722 consts
->MinFragmentInterpolationOffset
= MIN_FRAGMENT_INTERPOLATION_OFFSET
;
723 consts
->MaxFragmentInterpolationOffset
= MAX_FRAGMENT_INTERPOLATION_OFFSET
;
725 /** GL_KHR_context_flush_control */
726 consts
->ContextReleaseBehavior
= GL_CONTEXT_RELEASE_BEHAVIOR_FLUSH
;
731 * Do some sanity checks on the limits/constants for the given context.
732 * Only called the first time a context is bound.
735 check_context_limits(struct gl_context
*ctx
)
739 /* check that we don't exceed the size of various bitfields */
740 assert(VARYING_SLOT_MAX
<=
741 (8 * sizeof(ctx
->VertexProgram
._Current
->Base
.OutputsWritten
)));
742 assert(VARYING_SLOT_MAX
<=
743 (8 * sizeof(ctx
->FragmentProgram
._Current
->Base
.InputsRead
)));
745 /* shader-related checks */
746 assert(ctx
->Const
.Program
[MESA_SHADER_FRAGMENT
].MaxLocalParams
<= MAX_PROGRAM_LOCAL_PARAMS
);
747 assert(ctx
->Const
.Program
[MESA_SHADER_VERTEX
].MaxLocalParams
<= MAX_PROGRAM_LOCAL_PARAMS
);
749 /* Texture unit checks */
750 assert(ctx
->Const
.Program
[MESA_SHADER_FRAGMENT
].MaxTextureImageUnits
> 0);
751 assert(ctx
->Const
.Program
[MESA_SHADER_FRAGMENT
].MaxTextureImageUnits
<= MAX_TEXTURE_IMAGE_UNITS
);
752 assert(ctx
->Const
.MaxTextureCoordUnits
> 0);
753 assert(ctx
->Const
.MaxTextureCoordUnits
<= MAX_TEXTURE_COORD_UNITS
);
754 assert(ctx
->Const
.MaxTextureUnits
> 0);
755 assert(ctx
->Const
.MaxTextureUnits
<= MAX_TEXTURE_IMAGE_UNITS
);
756 assert(ctx
->Const
.MaxTextureUnits
<= MAX_TEXTURE_COORD_UNITS
);
757 assert(ctx
->Const
.MaxTextureUnits
== MIN2(ctx
->Const
.Program
[MESA_SHADER_FRAGMENT
].MaxTextureImageUnits
,
758 ctx
->Const
.MaxTextureCoordUnits
));
759 assert(ctx
->Const
.MaxCombinedTextureImageUnits
> 0);
760 assert(ctx
->Const
.MaxCombinedTextureImageUnits
<= MAX_COMBINED_TEXTURE_IMAGE_UNITS
);
761 assert(ctx
->Const
.MaxTextureCoordUnits
<= MAX_COMBINED_TEXTURE_IMAGE_UNITS
);
762 /* number of coord units cannot be greater than number of image units */
763 assert(ctx
->Const
.MaxTextureCoordUnits
<= ctx
->Const
.Program
[MESA_SHADER_FRAGMENT
].MaxTextureImageUnits
);
766 /* Texture size checks */
767 assert(ctx
->Const
.MaxTextureLevels
<= MAX_TEXTURE_LEVELS
);
768 assert(ctx
->Const
.Max3DTextureLevels
<= MAX_3D_TEXTURE_LEVELS
);
769 assert(ctx
->Const
.MaxCubeTextureLevels
<= MAX_CUBE_TEXTURE_LEVELS
);
770 assert(ctx
->Const
.MaxTextureRectSize
<= MAX_TEXTURE_RECT_SIZE
);
772 /* Texture level checks */
773 assert(MAX_TEXTURE_LEVELS
>= MAX_3D_TEXTURE_LEVELS
);
774 assert(MAX_TEXTURE_LEVELS
>= MAX_CUBE_TEXTURE_LEVELS
);
776 /* Max texture size should be <= max viewport size (render to texture) */
777 assert((1U << (ctx
->Const
.MaxTextureLevels
- 1))
778 <= ctx
->Const
.MaxViewportWidth
);
779 assert((1U << (ctx
->Const
.MaxTextureLevels
- 1))
780 <= ctx
->Const
.MaxViewportHeight
);
782 assert(ctx
->Const
.MaxDrawBuffers
<= MAX_DRAW_BUFFERS
);
784 /* if this fails, add more enum values to gl_buffer_index */
785 assert(BUFFER_COLOR0
+ MAX_DRAW_BUFFERS
<= BUFFER_COUNT
);
787 /* XXX probably add more tests */
792 * Initialize the attribute groups in a GL context.
794 * \param ctx GL context.
796 * Initializes all the attributes, calling the respective <tt>init*</tt>
797 * functions for the more complex data structures.
800 init_attrib_groups(struct gl_context
*ctx
)
805 _mesa_init_constants(&ctx
->Const
, ctx
->API
);
808 _mesa_init_extensions(&ctx
->Extensions
);
810 /* Attribute Groups */
811 _mesa_init_accum( ctx
);
812 _mesa_init_attrib( ctx
);
813 _mesa_init_buffer_objects( ctx
);
814 _mesa_init_color( ctx
);
815 _mesa_init_current( ctx
);
816 _mesa_init_depth( ctx
);
817 _mesa_init_debug( ctx
);
818 _mesa_init_display_list( ctx
);
819 _mesa_init_errors( ctx
);
820 _mesa_init_eval( ctx
);
821 _mesa_init_fbobjects( ctx
);
822 _mesa_init_feedback( ctx
);
823 _mesa_init_fog( ctx
);
824 _mesa_init_hint( ctx
);
825 _mesa_init_image_units( ctx
);
826 _mesa_init_line( ctx
);
827 _mesa_init_lighting( ctx
);
828 _mesa_init_matrix( ctx
);
829 _mesa_init_multisample( ctx
);
830 _mesa_init_performance_monitors( ctx
);
831 _mesa_init_pipeline( ctx
);
832 _mesa_init_pixel( ctx
);
833 _mesa_init_pixelstore( ctx
);
834 _mesa_init_point( ctx
);
835 _mesa_init_polygon( ctx
);
836 _mesa_init_program( ctx
);
837 _mesa_init_queryobj( ctx
);
838 _mesa_init_sync( ctx
);
839 _mesa_init_rastpos( ctx
);
840 _mesa_init_scissor( ctx
);
841 _mesa_init_shader_state( ctx
);
842 _mesa_init_stencil( ctx
);
843 _mesa_init_transform( ctx
);
844 _mesa_init_transform_feedback( ctx
);
845 _mesa_init_varray( ctx
);
846 _mesa_init_viewport( ctx
);
848 if (!_mesa_init_texture( ctx
))
851 _mesa_init_texture_s3tc( ctx
);
854 ctx
->NewState
= _NEW_ALL
;
855 ctx
->NewDriverState
= ~0;
856 ctx
->ErrorValue
= GL_NO_ERROR
;
857 ctx
->ShareGroupReset
= false;
858 ctx
->varying_vp_inputs
= VERT_BIT_ALL
;
865 * Update default objects in a GL context with respect to shared state.
867 * \param ctx GL context.
869 * Removes references to old default objects, (texture objects, program
870 * objects, etc.) and changes to reference those from the current shared
874 update_default_objects(struct gl_context
*ctx
)
878 _mesa_update_default_objects_program(ctx
);
879 _mesa_update_default_objects_texture(ctx
);
880 _mesa_update_default_objects_buffer_objects(ctx
);
886 /* XXX this is temporary and should be removed at some point in the
887 * future when there's a reasonable expectation that the libGL library
888 * contains the _glapi_new_nop_table() and _glapi_set_nop_handler()
889 * functions which were added in Mesa 10.6.
892 /* Avoid libGL / driver ABI break */
893 #define USE_GLAPI_NOP_FEATURES 0
895 #define USE_GLAPI_NOP_FEATURES 1
900 * This function is called by the glapi no-op functions. For each OpenGL
901 * function/entrypoint there's a simple no-op function. These "no-op"
902 * functions call this function.
904 * If there's a current OpenGL context for the calling thread, we record a
905 * GL_INVALID_OPERATION error. This can happen either because the app's
906 * calling an unsupported extension function, or calling an illegal function
907 * (such as glClear between glBegin/glEnd).
909 * If there's no current OpenGL context for the calling thread, we can
910 * print a message to stderr.
912 * \param name the name of the OpenGL function
914 #if USE_GLAPI_NOP_FEATURES
916 nop_handler(const char *name
)
918 GET_CURRENT_CONTEXT(ctx
);
920 _mesa_error(ctx
, GL_INVALID_OPERATION
, "%s(invalid call)", name
);
923 else if (getenv("MESA_DEBUG") || getenv("LIBGL_DEBUG")) {
925 "GL User Error: gl%s called without a rendering context\n",
935 * Special no-op glFlush, see below.
938 static void GLAPIENTRY
941 /* don't record an error like we do in nop_handler() */
946 #if !USE_GLAPI_NOP_FEATURES
950 GET_CURRENT_CONTEXT(ctx
);
951 _mesa_error(ctx
, GL_INVALID_OPERATION
,
952 "unsupported function called "
953 "(unsupported extension or deprecated function?)");
960 * Create a new API dispatch table in which all entries point to the
961 * generic_nop() function. This will not work on Windows because of
962 * the __stdcall convention which requires the callee to clean up the
963 * call stack. That's impossible with one generic no-op function.
965 struct _glapi_table
*
966 _mesa_new_nop_table(unsigned numEntries
)
968 struct _glapi_table
*table
;
970 #if !USE_GLAPI_NOP_FEATURES
971 table
= malloc(numEntries
* sizeof(_glapi_proc
));
973 _glapi_proc
*entry
= (_glapi_proc
*) table
;
975 for (i
= 0; i
< numEntries
; i
++) {
976 entry
[i
] = (_glapi_proc
) generic_nop
;
980 table
= _glapi_new_nop_table(numEntries
);
987 * Allocate and initialize a new dispatch table. The table will be
988 * populated with pointers to "no-op" functions. In turn, the no-op
989 * functions will call nop_handler() above.
991 static struct _glapi_table
*
992 alloc_dispatch_table(void)
994 /* Find the larger of Mesa's dispatch table and libGL's dispatch table.
995 * In practice, this'll be the same for stand-alone Mesa. But for DRI
996 * Mesa we do this to accommodate different versions of libGL and various
999 int numEntries
= MAX2(_glapi_get_dispatch_table_size(), _gloffset_COUNT
);
1001 struct _glapi_table
*table
= _mesa_new_nop_table(numEntries
);
1005 /* This is a special case for Windows in the event that
1006 * wglGetProcAddress is called between glBegin/End().
1008 * The MS opengl32.dll library apparently calls glFlush from
1009 * wglGetProcAddress(). If we're inside glBegin/End(), glFlush
1010 * will dispatch to _mesa_generic_nop() and we'll generate a
1011 * GL_INVALID_OPERATION error.
1013 * The specific case which hits this is piglit's primitive-restart
1014 * test which calls glPrimitiveRestartNV() inside glBegin/End. The
1015 * first time we call glPrimitiveRestartNV() Piglit's API dispatch
1016 * code will try to resolve the function by calling wglGetProcAddress.
1017 * This raises GL_INVALID_OPERATION and an assert(glGetError()==0)
1018 * will fail causing the test to fail. By suppressing the error, the
1019 * assertion passes and the test continues.
1021 SET_Flush(table
, nop_glFlush
);
1025 #if USE_GLAPI_NOP_FEATURES
1026 _glapi_set_nop_handler(nop_handler
);
1033 * Creates a minimal dispatch table for use within glBegin()/glEnd().
1035 * This ensures that we generate GL_INVALID_OPERATION errors from most
1036 * functions, since the set of functions that are valid within Begin/End is
1039 * From the GL 1.0 specification section 2.6.3, "GL Commands within
1042 * "The only GL commands that are allowed within any Begin/End pairs are
1043 * the commands for specifying vertex coordinates, vertex color, normal
1044 * coordinates, and texture coordinates (Vertex, Color, Index, Normal,
1045 * TexCoord), EvalCoord and EvalPoint commands (see section 5.1),
1046 * commands for specifying lighting material parameters (Material
1047 * commands see section 2.12.2), display list invocation commands
1048 * (CallList and CallLists see section 5.4), and the EdgeFlag
1049 * command. Executing Begin after Begin has already been executed but
1050 * before an End is issued generates the INVALID OPERATION error, as does
1051 * executing End without a previous corresponding Begin. Executing any
1052 * other GL command within Begin/End results in the error INVALID
1055 * The table entries for specifying vertex attributes are set up by
1056 * install_vtxfmt() and _mesa_loopback_init_api_table(), and End() and dlists
1057 * are set by install_vtxfmt() as well.
1059 static struct _glapi_table
*
1060 create_beginend_table(const struct gl_context
*ctx
)
1062 struct _glapi_table
*table
;
1064 table
= alloc_dispatch_table();
1068 /* Fill in functions which return a value, since they should return some
1069 * specific value even if they emit a GL_INVALID_OPERATION error from them
1070 * being called within glBegin()/glEnd().
1072 #define COPY_DISPATCH(func) SET_##func(table, GET_##func(ctx->Exec))
1074 COPY_DISPATCH(GenLists
);
1075 COPY_DISPATCH(IsProgram
);
1076 COPY_DISPATCH(IsVertexArray
);
1077 COPY_DISPATCH(IsBuffer
);
1078 COPY_DISPATCH(IsEnabled
);
1079 COPY_DISPATCH(IsEnabledi
);
1080 COPY_DISPATCH(IsRenderbuffer
);
1081 COPY_DISPATCH(IsFramebuffer
);
1082 COPY_DISPATCH(CheckFramebufferStatus
);
1083 COPY_DISPATCH(RenderMode
);
1084 COPY_DISPATCH(GetString
);
1085 COPY_DISPATCH(GetStringi
);
1086 COPY_DISPATCH(GetPointerv
);
1087 COPY_DISPATCH(IsQuery
);
1088 COPY_DISPATCH(IsSampler
);
1089 COPY_DISPATCH(IsSync
);
1090 COPY_DISPATCH(IsTexture
);
1091 COPY_DISPATCH(IsTransformFeedback
);
1092 COPY_DISPATCH(DeleteQueries
);
1093 COPY_DISPATCH(AreTexturesResident
);
1094 COPY_DISPATCH(FenceSync
);
1095 COPY_DISPATCH(ClientWaitSync
);
1096 COPY_DISPATCH(MapBuffer
);
1097 COPY_DISPATCH(UnmapBuffer
);
1098 COPY_DISPATCH(MapBufferRange
);
1099 COPY_DISPATCH(ObjectPurgeableAPPLE
);
1100 COPY_DISPATCH(ObjectUnpurgeableAPPLE
);
1102 _mesa_loopback_init_api_table(ctx
, table
);
1108 _mesa_initialize_dispatch_tables(struct gl_context
*ctx
)
1110 /* Do the code-generated setup of the exec table in api_exec.c. */
1111 _mesa_initialize_exec_table(ctx
);
1114 _mesa_initialize_save_table(ctx
);
1118 * Initialize a struct gl_context struct (rendering context).
1120 * This includes allocating all the other structs and arrays which hang off of
1121 * the context by pointers.
1122 * Note that the driver needs to pass in its dd_function_table here since
1123 * we need to at least call driverFunctions->NewTextureObject to create the
1124 * default texture objects.
1126 * Called by _mesa_create_context().
1128 * Performs the imports and exports callback tables initialization, and
1129 * miscellaneous one-time initializations. If no shared context is supplied one
1130 * is allocated, and increase its reference count. Setups the GL API dispatch
1131 * tables. Initialize the TNL module. Sets the maximum Z buffer depth.
1132 * Finally queries the \c MESA_DEBUG and \c MESA_VERBOSE environment variables
1135 * \param ctx the context to initialize
1136 * \param api the GL API type to create the context for
1137 * \param visual describes the visual attributes for this context or NULL to
1138 * create a configless context
1139 * \param share_list points to context to share textures, display lists,
1141 * \param driverFunctions table of device driver functions for this context
1145 _mesa_initialize_context(struct gl_context
*ctx
,
1147 const struct gl_config
*visual
,
1148 struct gl_context
*share_list
,
1149 const struct dd_function_table
*driverFunctions
)
1151 struct gl_shared_state
*shared
;
1154 assert(driverFunctions
->NewTextureObject
);
1155 assert(driverFunctions
->FreeTextureImageBuffer
);
1158 ctx
->DrawBuffer
= NULL
;
1159 ctx
->ReadBuffer
= NULL
;
1160 ctx
->WinSysDrawBuffer
= NULL
;
1161 ctx
->WinSysReadBuffer
= NULL
;
1164 ctx
->Visual
= *visual
;
1165 ctx
->HasConfig
= GL_TRUE
;
1168 memset(&ctx
->Visual
, 0, sizeof ctx
->Visual
);
1169 ctx
->HasConfig
= GL_FALSE
;
1172 _mesa_override_gl_version(ctx
);
1174 /* misc one-time initializations */
1177 /* Plug in driver functions and context pointer here.
1178 * This is important because when we call alloc_shared_state() below
1179 * we'll call ctx->Driver.NewTextureObject() to create the default
1182 ctx
->Driver
= *driverFunctions
;
1185 /* share state with another context */
1186 shared
= share_list
->Shared
;
1189 /* allocate new, unshared state */
1190 shared
= _mesa_alloc_shared_state(ctx
);
1195 _mesa_reference_shared_state(ctx
, &ctx
->Shared
, shared
);
1197 if (!init_attrib_groups( ctx
))
1200 /* setup the API dispatch tables with all nop functions */
1201 ctx
->OutsideBeginEnd
= alloc_dispatch_table();
1202 if (!ctx
->OutsideBeginEnd
)
1204 ctx
->Exec
= ctx
->OutsideBeginEnd
;
1205 ctx
->CurrentDispatch
= ctx
->OutsideBeginEnd
;
1207 ctx
->FragmentProgram
._MaintainTexEnvProgram
1208 = (getenv("MESA_TEX_PROG") != NULL
);
1210 ctx
->VertexProgram
._MaintainTnlProgram
1211 = (getenv("MESA_TNL_PROG") != NULL
);
1212 if (ctx
->VertexProgram
._MaintainTnlProgram
) {
1213 /* this is required... */
1214 ctx
->FragmentProgram
._MaintainTexEnvProgram
= GL_TRUE
;
1217 /* Mesa core handles all the formats that mesa core knows about.
1218 * Drivers will want to override this list with just the formats
1219 * they can handle, and confirm that appropriate fallbacks exist in
1220 * _mesa_choose_tex_format().
1222 memset(&ctx
->TextureFormatSupported
, GL_TRUE
,
1223 sizeof(ctx
->TextureFormatSupported
));
1226 case API_OPENGL_COMPAT
:
1227 ctx
->BeginEnd
= create_beginend_table(ctx
);
1228 ctx
->Save
= alloc_dispatch_table();
1229 if (!ctx
->BeginEnd
|| !ctx
->Save
)
1233 case API_OPENGL_CORE
:
1237 * GL_OES_texture_cube_map says
1238 * "Initially all texture generation modes are set to REFLECTION_MAP_OES"
1240 for (i
= 0; i
< MAX_TEXTURE_UNITS
; i
++) {
1241 struct gl_texture_unit
*texUnit
= &ctx
->Texture
.Unit
[i
];
1242 texUnit
->GenS
.Mode
= GL_REFLECTION_MAP_NV
;
1243 texUnit
->GenT
.Mode
= GL_REFLECTION_MAP_NV
;
1244 texUnit
->GenR
.Mode
= GL_REFLECTION_MAP_NV
;
1245 texUnit
->GenS
._ModeBit
= TEXGEN_REFLECTION_MAP_NV
;
1246 texUnit
->GenT
._ModeBit
= TEXGEN_REFLECTION_MAP_NV
;
1247 texUnit
->GenR
._ModeBit
= TEXGEN_REFLECTION_MAP_NV
;
1251 ctx
->FragmentProgram
._MaintainTexEnvProgram
= GL_TRUE
;
1252 ctx
->VertexProgram
._MaintainTnlProgram
= GL_TRUE
;
1256 ctx
->FirstTimeCurrent
= GL_TRUE
;
1261 _mesa_reference_shared_state(ctx
, &ctx
->Shared
, NULL
);
1262 free(ctx
->BeginEnd
);
1263 free(ctx
->OutsideBeginEnd
);
1270 * Allocate and initialize a struct gl_context structure.
1271 * Note that the driver needs to pass in its dd_function_table here since
1272 * we need to at least call driverFunctions->NewTextureObject to initialize
1273 * the rendering context.
1275 * \param api the GL API type to create the context for
1276 * \param visual a struct gl_config pointer (we copy the struct contents) or
1277 * NULL to create a configless context
1278 * \param share_list another context to share display lists with or NULL
1279 * \param driverFunctions points to the dd_function_table into which the
1280 * driver has plugged in all its special functions.
1282 * \return pointer to a new __struct gl_contextRec or NULL if error.
1285 _mesa_create_context(gl_api api
,
1286 const struct gl_config
*visual
,
1287 struct gl_context
*share_list
,
1288 const struct dd_function_table
*driverFunctions
)
1290 struct gl_context
*ctx
;
1292 ctx
= calloc(1, sizeof(struct gl_context
));
1296 if (_mesa_initialize_context(ctx
, api
, visual
, share_list
,
1308 * Free the data associated with the given context.
1310 * But doesn't free the struct gl_context struct itself.
1312 * \sa _mesa_initialize_context() and init_attrib_groups().
1315 _mesa_free_context_data( struct gl_context
*ctx
)
1317 if (!_mesa_get_current_context()){
1318 /* No current context, but we may need one in order to delete
1319 * texture objs, etc. So temporarily bind the context now.
1321 _mesa_make_current(ctx
, NULL
, NULL
);
1324 /* unreference WinSysDraw/Read buffers */
1325 _mesa_reference_framebuffer(&ctx
->WinSysDrawBuffer
, NULL
);
1326 _mesa_reference_framebuffer(&ctx
->WinSysReadBuffer
, NULL
);
1327 _mesa_reference_framebuffer(&ctx
->DrawBuffer
, NULL
);
1328 _mesa_reference_framebuffer(&ctx
->ReadBuffer
, NULL
);
1330 _mesa_reference_vertprog(ctx
, &ctx
->VertexProgram
.Current
, NULL
);
1331 _mesa_reference_vertprog(ctx
, &ctx
->VertexProgram
._Current
, NULL
);
1332 _mesa_reference_vertprog(ctx
, &ctx
->VertexProgram
._TnlProgram
, NULL
);
1334 _mesa_reference_geomprog(ctx
, &ctx
->GeometryProgram
._Current
, NULL
);
1336 _mesa_reference_fragprog(ctx
, &ctx
->FragmentProgram
.Current
, NULL
);
1337 _mesa_reference_fragprog(ctx
, &ctx
->FragmentProgram
._Current
, NULL
);
1338 _mesa_reference_fragprog(ctx
, &ctx
->FragmentProgram
._TexEnvProgram
, NULL
);
1340 _mesa_reference_vao(ctx
, &ctx
->Array
.VAO
, NULL
);
1341 _mesa_reference_vao(ctx
, &ctx
->Array
.DefaultVAO
, NULL
);
1343 _mesa_free_attrib_data(ctx
);
1344 _mesa_free_buffer_objects(ctx
);
1345 _mesa_free_eval_data( ctx
);
1346 _mesa_free_texture_data( ctx
);
1347 _mesa_free_matrix_data( ctx
);
1348 _mesa_free_pipeline_data(ctx
);
1349 _mesa_free_program_data(ctx
);
1350 _mesa_free_shader_state(ctx
);
1351 _mesa_free_queryobj_data(ctx
);
1352 _mesa_free_sync_data(ctx
);
1353 _mesa_free_varray_data(ctx
);
1354 _mesa_free_transform_feedback(ctx
);
1355 _mesa_free_performance_monitors(ctx
);
1357 _mesa_reference_buffer_object(ctx
, &ctx
->Pack
.BufferObj
, NULL
);
1358 _mesa_reference_buffer_object(ctx
, &ctx
->Unpack
.BufferObj
, NULL
);
1359 _mesa_reference_buffer_object(ctx
, &ctx
->DefaultPacking
.BufferObj
, NULL
);
1360 _mesa_reference_buffer_object(ctx
, &ctx
->Array
.ArrayBufferObj
, NULL
);
1362 /* free dispatch tables */
1363 free(ctx
->BeginEnd
);
1364 free(ctx
->OutsideBeginEnd
);
1367 /* Shared context state (display lists, textures, etc) */
1368 _mesa_reference_shared_state(ctx
, &ctx
->Shared
, NULL
);
1370 /* needs to be after freeing shared state */
1371 _mesa_free_display_list_data(ctx
);
1373 _mesa_free_errors_data(ctx
);
1375 free((void *)ctx
->Extensions
.String
);
1377 free(ctx
->VersionString
);
1379 /* unbind the context if it's currently bound */
1380 if (ctx
== _mesa_get_current_context()) {
1381 _mesa_make_current(NULL
, NULL
, NULL
);
1387 * Destroy a struct gl_context structure.
1389 * \param ctx GL context.
1391 * Calls _mesa_free_context_data() and frees the gl_context object itself.
1394 _mesa_destroy_context( struct gl_context
*ctx
)
1397 _mesa_free_context_data(ctx
);
1398 free( (void *) ctx
);
1404 * Copy attribute groups from one context to another.
1406 * \param src source context
1407 * \param dst destination context
1408 * \param mask bitwise OR of GL_*_BIT flags
1410 * According to the bits specified in \p mask, copies the corresponding
1411 * attributes from \p src into \p dst. For many of the attributes a simple \c
1412 * memcpy is not enough due to the existence of internal pointers in their data
1416 _mesa_copy_context( const struct gl_context
*src
, struct gl_context
*dst
,
1419 if (mask
& GL_ACCUM_BUFFER_BIT
) {
1421 dst
->Accum
= src
->Accum
;
1423 if (mask
& GL_COLOR_BUFFER_BIT
) {
1425 dst
->Color
= src
->Color
;
1427 if (mask
& GL_CURRENT_BIT
) {
1429 dst
->Current
= src
->Current
;
1431 if (mask
& GL_DEPTH_BUFFER_BIT
) {
1433 dst
->Depth
= src
->Depth
;
1435 if (mask
& GL_ENABLE_BIT
) {
1438 if (mask
& GL_EVAL_BIT
) {
1440 dst
->Eval
= src
->Eval
;
1442 if (mask
& GL_FOG_BIT
) {
1444 dst
->Fog
= src
->Fog
;
1446 if (mask
& GL_HINT_BIT
) {
1448 dst
->Hint
= src
->Hint
;
1450 if (mask
& GL_LIGHTING_BIT
) {
1452 /* begin with memcpy */
1453 dst
->Light
= src
->Light
;
1454 /* fixup linked lists to prevent pointer insanity */
1455 make_empty_list( &(dst
->Light
.EnabledList
) );
1456 for (i
= 0; i
< MAX_LIGHTS
; i
++) {
1457 if (dst
->Light
.Light
[i
].Enabled
) {
1458 insert_at_tail(&(dst
->Light
.EnabledList
), &(dst
->Light
.Light
[i
]));
1462 if (mask
& GL_LINE_BIT
) {
1464 dst
->Line
= src
->Line
;
1466 if (mask
& GL_LIST_BIT
) {
1468 dst
->List
= src
->List
;
1470 if (mask
& GL_PIXEL_MODE_BIT
) {
1472 dst
->Pixel
= src
->Pixel
;
1474 if (mask
& GL_POINT_BIT
) {
1476 dst
->Point
= src
->Point
;
1478 if (mask
& GL_POLYGON_BIT
) {
1480 dst
->Polygon
= src
->Polygon
;
1482 if (mask
& GL_POLYGON_STIPPLE_BIT
) {
1483 /* Use loop instead of memcpy due to problem with Portland Group's
1484 * C compiler. Reported by John Stone.
1487 for (i
= 0; i
< 32; i
++) {
1488 dst
->PolygonStipple
[i
] = src
->PolygonStipple
[i
];
1491 if (mask
& GL_SCISSOR_BIT
) {
1493 dst
->Scissor
= src
->Scissor
;
1495 if (mask
& GL_STENCIL_BUFFER_BIT
) {
1497 dst
->Stencil
= src
->Stencil
;
1499 if (mask
& GL_TEXTURE_BIT
) {
1500 /* Cannot memcpy because of pointers */
1501 _mesa_copy_texture_state(src
, dst
);
1503 if (mask
& GL_TRANSFORM_BIT
) {
1505 dst
->Transform
= src
->Transform
;
1507 if (mask
& GL_VIEWPORT_BIT
) {
1509 for (i
= 0; i
< src
->Const
.MaxViewports
; i
++) {
1511 dst
->ViewportArray
[i
] = src
->ViewportArray
[i
];
1515 /* XXX FIXME: Call callbacks?
1517 dst
->NewState
= _NEW_ALL
;
1518 dst
->NewDriverState
= ~0;
1523 * Check if the given context can render into the given framebuffer
1524 * by checking visual attributes.
1526 * Most of these tests could go away because Mesa is now pretty flexible
1527 * in terms of mixing rendering contexts with framebuffers. As long
1528 * as RGB vs. CI mode agree, we're probably good.
1530 * \return GL_TRUE if compatible, GL_FALSE otherwise.
1533 check_compatible(const struct gl_context
*ctx
,
1534 const struct gl_framebuffer
*buffer
)
1536 const struct gl_config
*ctxvis
= &ctx
->Visual
;
1537 const struct gl_config
*bufvis
= &buffer
->Visual
;
1539 if (buffer
== _mesa_get_incomplete_framebuffer())
1543 /* disabling this fixes the fgl_glxgears pbuffer demo */
1544 if (ctxvis
->doubleBufferMode
&& !bufvis
->doubleBufferMode
)
1547 if (ctxvis
->stereoMode
&& !bufvis
->stereoMode
)
1549 if (ctxvis
->haveAccumBuffer
&& !bufvis
->haveAccumBuffer
)
1551 if (ctxvis
->haveDepthBuffer
&& !bufvis
->haveDepthBuffer
)
1553 if (ctxvis
->haveStencilBuffer
&& !bufvis
->haveStencilBuffer
)
1555 if (ctxvis
->redMask
&& ctxvis
->redMask
!= bufvis
->redMask
)
1557 if (ctxvis
->greenMask
&& ctxvis
->greenMask
!= bufvis
->greenMask
)
1559 if (ctxvis
->blueMask
&& ctxvis
->blueMask
!= bufvis
->blueMask
)
1562 /* disabled (see bug 11161) */
1563 if (ctxvis
->depthBits
&& ctxvis
->depthBits
!= bufvis
->depthBits
)
1566 if (ctxvis
->stencilBits
&& ctxvis
->stencilBits
!= bufvis
->stencilBits
)
1574 * Check if the viewport/scissor size has not yet been initialized.
1575 * Initialize the size if the given width and height are non-zero.
1578 _mesa_check_init_viewport(struct gl_context
*ctx
, GLuint width
, GLuint height
)
1580 if (!ctx
->ViewportInitialized
&& width
> 0 && height
> 0) {
1583 /* Note: set flag here, before calling _mesa_set_viewport(), to prevent
1584 * potential infinite recursion.
1586 ctx
->ViewportInitialized
= GL_TRUE
;
1588 /* Note: ctx->Const.MaxViewports may not have been set by the driver
1589 * yet, so just initialize all of them.
1591 for (i
= 0; i
< MAX_VIEWPORTS
; i
++) {
1592 _mesa_set_viewport(ctx
, i
, 0, 0, width
, height
);
1593 _mesa_set_scissor(ctx
, i
, 0, 0, width
, height
);
1599 handle_first_current(struct gl_context
*ctx
)
1604 if (ctx
->Version
== 0) {
1605 /* probably in the process of tearing down the context */
1609 ctx
->Extensions
.String
= _mesa_make_extension_string(ctx
);
1611 check_context_limits(ctx
);
1613 /* According to GL_MESA_configless_context the default value of
1614 * glDrawBuffers depends on the config of the first surface it is bound to.
1615 * For GLES it is always GL_BACK which has a magic interpretation */
1616 if (!ctx
->HasConfig
&& _mesa_is_desktop_gl(ctx
)) {
1617 if (ctx
->DrawBuffer
!= _mesa_get_incomplete_framebuffer()) {
1618 if (ctx
->DrawBuffer
->Visual
.doubleBufferMode
)
1623 _mesa_drawbuffers(ctx
, ctx
->DrawBuffer
, 1, &buffer
,
1624 NULL
/* destMask */);
1627 if (ctx
->ReadBuffer
!= _mesa_get_incomplete_framebuffer()) {
1628 if (ctx
->ReadBuffer
->Visual
.doubleBufferMode
) {
1630 bufferIndex
= BUFFER_BACK_LEFT
;
1634 bufferIndex
= BUFFER_FRONT_LEFT
;
1637 _mesa_readbuffer(ctx
, ctx
->ReadBuffer
, buffer
, bufferIndex
);
1641 /* We can use this to help debug user's problems. Tell them to set
1642 * the MESA_INFO env variable before running their app. Then the
1643 * first time each context is made current we'll print some useful
1646 if (getenv("MESA_INFO")) {
1647 _mesa_print_info(ctx
);
1652 * Bind the given context to the given drawBuffer and readBuffer and
1653 * make it the current context for the calling thread.
1654 * We'll render into the drawBuffer and read pixels from the
1655 * readBuffer (i.e. glRead/CopyPixels, glCopyTexImage, etc).
1657 * We check that the context's and framebuffer's visuals are compatible
1658 * and return immediately if they're not.
1660 * \param newCtx the new GL context. If NULL then there will be no current GL
1662 * \param drawBuffer the drawing framebuffer
1663 * \param readBuffer the reading framebuffer
1666 _mesa_make_current( struct gl_context
*newCtx
,
1667 struct gl_framebuffer
*drawBuffer
,
1668 struct gl_framebuffer
*readBuffer
)
1670 GET_CURRENT_CONTEXT(curCtx
);
1672 if (MESA_VERBOSE
& VERBOSE_API
)
1673 _mesa_debug(newCtx
, "_mesa_make_current()\n");
1675 /* Check that the context's and framebuffer's visuals are compatible.
1677 if (newCtx
&& drawBuffer
&& newCtx
->WinSysDrawBuffer
!= drawBuffer
) {
1678 if (!check_compatible(newCtx
, drawBuffer
)) {
1679 _mesa_warning(newCtx
,
1680 "MakeCurrent: incompatible visuals for context and drawbuffer");
1684 if (newCtx
&& readBuffer
&& newCtx
->WinSysReadBuffer
!= readBuffer
) {
1685 if (!check_compatible(newCtx
, readBuffer
)) {
1686 _mesa_warning(newCtx
,
1687 "MakeCurrent: incompatible visuals for context and readbuffer");
1693 (curCtx
->WinSysDrawBuffer
|| curCtx
->WinSysReadBuffer
) &&
1694 /* make sure this context is valid for flushing */
1696 curCtx
->Const
.ContextReleaseBehavior
==
1697 GL_CONTEXT_RELEASE_BEHAVIOR_FLUSH
)
1698 _mesa_flush(curCtx
);
1700 /* We used to call _glapi_check_multithread() here. Now do it in drivers */
1701 _glapi_set_context((void *) newCtx
);
1702 assert(_mesa_get_current_context() == newCtx
);
1705 _glapi_set_dispatch(NULL
); /* none current */
1708 _glapi_set_dispatch(newCtx
->CurrentDispatch
);
1710 if (drawBuffer
&& readBuffer
) {
1711 assert(_mesa_is_winsys_fbo(drawBuffer
));
1712 assert(_mesa_is_winsys_fbo(readBuffer
));
1713 _mesa_reference_framebuffer(&newCtx
->WinSysDrawBuffer
, drawBuffer
);
1714 _mesa_reference_framebuffer(&newCtx
->WinSysReadBuffer
, readBuffer
);
1717 * Only set the context's Draw/ReadBuffer fields if they're NULL
1718 * or not bound to a user-created FBO.
1720 if (!newCtx
->DrawBuffer
|| _mesa_is_winsys_fbo(newCtx
->DrawBuffer
)) {
1721 _mesa_reference_framebuffer(&newCtx
->DrawBuffer
, drawBuffer
);
1722 /* Update the FBO's list of drawbuffers/renderbuffers.
1723 * For winsys FBOs this comes from the GL state (which may have
1724 * changed since the last time this FBO was bound).
1726 _mesa_update_draw_buffers(newCtx
);
1728 if (!newCtx
->ReadBuffer
|| _mesa_is_winsys_fbo(newCtx
->ReadBuffer
)) {
1729 _mesa_reference_framebuffer(&newCtx
->ReadBuffer
, readBuffer
);
1732 /* XXX only set this flag if we're really changing the draw/read
1733 * framebuffer bindings.
1735 newCtx
->NewState
|= _NEW_BUFFERS
;
1738 _mesa_check_init_viewport(newCtx
,
1739 drawBuffer
->Width
, drawBuffer
->Height
);
1743 if (newCtx
->FirstTimeCurrent
) {
1744 handle_first_current(newCtx
);
1745 newCtx
->FirstTimeCurrent
= GL_FALSE
;
1754 * Make context 'ctx' share the display lists, textures and programs
1755 * that are associated with 'ctxToShare'.
1756 * Any display lists, textures or programs associated with 'ctx' will
1757 * be deleted if nobody else is sharing them.
1760 _mesa_share_state(struct gl_context
*ctx
, struct gl_context
*ctxToShare
)
1762 if (ctx
&& ctxToShare
&& ctx
->Shared
&& ctxToShare
->Shared
) {
1763 struct gl_shared_state
*oldShared
= NULL
;
1765 /* save ref to old state to prevent it from being deleted immediately */
1766 _mesa_reference_shared_state(ctx
, &oldShared
, ctx
->Shared
);
1768 /* update ctx's Shared pointer */
1769 _mesa_reference_shared_state(ctx
, &ctx
->Shared
, ctxToShare
->Shared
);
1771 update_default_objects(ctx
);
1773 /* release the old shared state */
1774 _mesa_reference_shared_state(ctx
, &oldShared
, NULL
);
1786 * \return pointer to the current GL context for this thread.
1788 * Calls _glapi_get_context(). This isn't the fastest way to get the current
1789 * context. If you need speed, see the #GET_CURRENT_CONTEXT macro in
1793 _mesa_get_current_context( void )
1795 return (struct gl_context
*) _glapi_get_context();
1800 * Get context's current API dispatch table.
1802 * It'll either be the immediate-mode execute dispatcher or the display list
1803 * compile dispatcher.
1805 * \param ctx GL context.
1807 * \return pointer to dispatch_table.
1809 * Simply returns __struct gl_contextRec::CurrentDispatch.
1811 struct _glapi_table
*
1812 _mesa_get_dispatch(struct gl_context
*ctx
)
1814 return ctx
->CurrentDispatch
;
1820 /**********************************************************************/
1821 /** \name Miscellaneous functions */
1822 /**********************************************************************/
1828 * \param ctx GL context.
1829 * \param error error code.
1831 * Records the given error code and call the driver's dd_function_table::Error
1832 * function if defined.
1835 * This is called via _mesa_error().
1838 _mesa_record_error(struct gl_context
*ctx
, GLenum error
)
1843 if (ctx
->ErrorValue
== GL_NO_ERROR
) {
1844 ctx
->ErrorValue
= error
;
1850 * Flush commands and wait for completion.
1853 _mesa_finish(struct gl_context
*ctx
)
1855 FLUSH_VERTICES( ctx
, 0 );
1856 FLUSH_CURRENT( ctx
, 0 );
1857 if (ctx
->Driver
.Finish
) {
1858 ctx
->Driver
.Finish(ctx
);
1867 _mesa_flush(struct gl_context
*ctx
)
1869 FLUSH_VERTICES( ctx
, 0 );
1870 FLUSH_CURRENT( ctx
, 0 );
1871 if (ctx
->Driver
.Flush
) {
1872 ctx
->Driver
.Flush(ctx
);
1879 * Execute glFinish().
1881 * Calls the #ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH macro and the
1882 * dd_function_table::Finish driver callback, if not NULL.
1887 GET_CURRENT_CONTEXT(ctx
);
1888 ASSERT_OUTSIDE_BEGIN_END(ctx
);
1894 * Execute glFlush().
1896 * Calls the #ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH macro and the
1897 * dd_function_table::Flush driver callback, if not NULL.
1902 GET_CURRENT_CONTEXT(ctx
);
1903 ASSERT_OUTSIDE_BEGIN_END(ctx
);
1909 * ARB_blend_func_extended - ERRORS section
1910 * "The error INVALID_OPERATION is generated by Begin or any procedure that
1911 * implicitly calls Begin if any draw buffer has a blend function requiring the
1912 * second color input (SRC1_COLOR, ONE_MINUS_SRC1_COLOR, SRC1_ALPHA or
1913 * ONE_MINUS_SRC1_ALPHA), and a framebuffer is bound that has more than
1914 * the value of MAX_DUAL_SOURCE_DRAW_BUFFERS-1 active color attachements."
1917 _mesa_check_blend_func_error(struct gl_context
*ctx
)
1920 for (i
= ctx
->Const
.MaxDualSourceDrawBuffers
;
1921 i
< ctx
->DrawBuffer
->_NumColorDrawBuffers
;
1923 if (ctx
->Color
.Blend
[i
]._UsesDualSrc
) {
1924 _mesa_error(ctx
, GL_INVALID_OPERATION
,
1925 "dual source blend on illegal attachment");
1933 shader_linked_or_absent(struct gl_context
*ctx
,
1934 const struct gl_shader_program
*shProg
,
1935 bool *shader_present
, const char *where
)
1938 *shader_present
= true;
1940 if (!shProg
->LinkStatus
) {
1941 _mesa_error(ctx
, GL_INVALID_OPERATION
, "%s(shader not linked)", where
);
1944 #if 0 /* not normally enabled */
1947 if (!_mesa_validate_shader_program(ctx
, shProg
, errMsg
)) {
1948 _mesa_warning(ctx
, "Shader program %u is invalid: %s",
1949 shProg
->Name
, errMsg
);
1959 * Prior to drawing anything with glBegin, glDrawArrays, etc. this function
1960 * is called to see if it's valid to render. This involves checking that
1961 * the current shader is valid and the framebuffer is complete.
1962 * It also check the current pipeline object is valid if any.
1963 * If an error is detected it'll be recorded here.
1964 * \return GL_TRUE if OK to render, GL_FALSE if not
1967 _mesa_valid_to_render(struct gl_context
*ctx
, const char *where
)
1971 /* This depends on having up to date derived state (shaders) */
1973 _mesa_update_state(ctx
);
1975 if (ctx
->API
== API_OPENGL_CORE
|| ctx
->API
== API_OPENGLES2
) {
1976 bool from_glsl_shader
[MESA_SHADER_COMPUTE
] = { false };
1978 for (i
= 0; i
< MESA_SHADER_COMPUTE
; i
++) {
1979 if (!shader_linked_or_absent(ctx
, ctx
->_Shader
->CurrentProgram
[i
],
1980 &from_glsl_shader
[i
], where
))
1984 /* In OpenGL Core Profile and OpenGL ES 2.0 / 3.0, there are no assembly
1985 * shaders. Don't check state related to those.
1988 bool has_vertex_shader
= false;
1989 bool has_fragment_shader
= false;
1991 /* In OpenGL Compatibility Profile, there is only vertex shader and
1992 * fragment shader. We take this path also for API_OPENGLES because
1993 * optimizing that path would make the other (more common) paths
1996 if (!shader_linked_or_absent(ctx
,
1997 ctx
->_Shader
->CurrentProgram
[MESA_SHADER_VERTEX
],
1998 &has_vertex_shader
, where
))
2001 if (!shader_linked_or_absent(ctx
,
2002 ctx
->_Shader
->CurrentProgram
[MESA_SHADER_FRAGMENT
],
2003 &has_fragment_shader
, where
))
2006 /* Any shader stages that are not supplied by the GLSL shader and have
2007 * assembly shaders enabled must now be validated.
2009 if (!has_vertex_shader
2010 && ctx
->VertexProgram
.Enabled
&& !ctx
->VertexProgram
._Enabled
) {
2011 _mesa_error(ctx
, GL_INVALID_OPERATION
,
2012 "%s(vertex program not valid)", where
);
2016 if (!has_fragment_shader
) {
2017 if (ctx
->FragmentProgram
.Enabled
&& !ctx
->FragmentProgram
._Enabled
) {
2018 _mesa_error(ctx
, GL_INVALID_OPERATION
,
2019 "%s(fragment program not valid)", where
);
2023 /* If drawing to integer-valued color buffers, there must be an
2024 * active fragment shader (GL_EXT_texture_integer).
2026 if (ctx
->DrawBuffer
&& ctx
->DrawBuffer
->_IntegerColor
) {
2027 _mesa_error(ctx
, GL_INVALID_OPERATION
,
2028 "%s(integer format but no fragment shader)", where
);
2034 /* A pipeline object is bound */
2035 if (ctx
->_Shader
->Name
&& !ctx
->_Shader
->Validated
) {
2036 /* Error message will be printed inside _mesa_validate_program_pipeline.
2038 if (!_mesa_validate_program_pipeline(ctx
, ctx
->_Shader
, GL_TRUE
)) {
2043 /* If a program is active and SSO not in use, check if validation of
2044 * samplers succeeded for the active program. */
2045 if (ctx
->_Shader
->ActiveProgram
&& ctx
->_Shader
!= ctx
->Pipeline
.Current
) {
2047 if (!_mesa_sampler_uniforms_are_valid(ctx
->_Shader
->ActiveProgram
,
2049 _mesa_error(ctx
, GL_INVALID_OPERATION
, "%s", errMsg
);
2054 if (ctx
->DrawBuffer
->_Status
!= GL_FRAMEBUFFER_COMPLETE_EXT
) {
2055 _mesa_error(ctx
, GL_INVALID_FRAMEBUFFER_OPERATION_EXT
,
2056 "%s(incomplete framebuffer)", where
);
2060 if (_mesa_check_blend_func_error(ctx
) == GL_FALSE
) {
2065 if (ctx
->_Shader
->Flags
& GLSL_LOG
) {
2066 struct gl_shader_program
**shProg
= ctx
->_Shader
->CurrentProgram
;
2069 for (i
= 0; i
< MESA_SHADER_STAGES
; i
++) {
2070 if (shProg
[i
] == NULL
|| shProg
[i
]->_Used
2071 || shProg
[i
]->_LinkedShaders
[i
] == NULL
)
2074 /* This is the first time this shader is being used.
2075 * Append shader's constants/uniforms to log file.
2077 * Only log data for the program target that matches the shader
2078 * target. It's possible to have a program bound to the vertex
2079 * shader target that also supplied a fragment shader. If that
2080 * program isn't also bound to the fragment shader target we don't
2081 * want to log its fragment data.
2083 _mesa_append_uniforms_to_file(shProg
[i
]->_LinkedShaders
[i
]);
2086 for (i
= 0; i
< MESA_SHADER_STAGES
; i
++) {
2087 if (shProg
[i
] != NULL
)
2088 shProg
[i
]->_Used
= GL_TRUE
;