2 * Mesa 3-D graphics library
4 * Copyright (C) 2004-2008 Brian Paul All Rights Reserved.
5 * Copyright (C) 2009-2010 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.
33 #include "main/glheader.h"
34 #include "main/context.h"
35 #include "main/hash.h"
36 #include "main/mtypes.h"
37 #include "main/shaderapi.h"
38 #include "main/shaderobj.h"
39 #include "main/uniforms.h"
40 #include "program/program.h"
41 #include "program/prog_parameter.h"
42 #include "program/hash_table.h"
43 #include "util/ralloc.h"
45 /**********************************************************************/
46 /*** Shader object functions ***/
47 /**********************************************************************/
51 * Set ptr to point to sh.
52 * If ptr is pointing to another shader, decrement its refcount (and delete
53 * if refcount hits zero).
54 * Then set ptr to point to sh, incrementing its refcount.
57 _mesa_reference_shader(struct gl_context
*ctx
, struct gl_shader
**ptr
,
66 /* Unreference the old shader */
67 GLboolean deleteFlag
= GL_FALSE
;
68 struct gl_shader
*old
= *ptr
;
70 assert(old
->RefCount
> 0);
72 deleteFlag
= (old
->RefCount
== 0);
76 _mesa_HashRemove(ctx
->Shared
->ShaderObjects
, old
->Name
);
77 _mesa_delete_shader(ctx
, old
);
92 _mesa_init_shader(struct gl_context
*ctx
, struct gl_shader
*shader
)
98 * Allocate a new gl_shader object, initialize it.
99 * Called via ctx->Driver.NewShader()
102 _mesa_new_shader(struct gl_context
*ctx
, GLuint name
, GLenum type
)
104 struct gl_shader
*shader
;
105 assert(_mesa_validate_shader_target(ctx
, type
));
106 shader
= rzalloc(NULL
, struct gl_shader
);
109 shader
->Stage
= _mesa_shader_enum_to_shader_stage(type
);
111 _mesa_init_shader(ctx
, shader
);
118 * Delete a shader object.
121 _mesa_delete_shader(struct gl_context
*ctx
, struct gl_shader
*sh
)
123 free((void *)sh
->Source
);
125 _mesa_reference_program(ctx
, &sh
->Program
, NULL
);
131 * Lookup a GLSL shader object.
134 _mesa_lookup_shader(struct gl_context
*ctx
, GLuint name
)
137 struct gl_shader
*sh
= (struct gl_shader
*)
138 _mesa_HashLookup(ctx
->Shared
->ShaderObjects
, name
);
139 /* Note that both gl_shader and gl_shader_program objects are kept
140 * in the same hash table. Check the object's type to be sure it's
141 * what we're expecting.
143 if (sh
&& sh
->Type
== GL_SHADER_PROGRAM_MESA
) {
153 * As above, but record an error if shader is not found.
156 _mesa_lookup_shader_err(struct gl_context
*ctx
, GLuint name
, const char *caller
)
159 _mesa_error(ctx
, GL_INVALID_VALUE
, "%s", caller
);
163 struct gl_shader
*sh
= (struct gl_shader
*)
164 _mesa_HashLookup(ctx
->Shared
->ShaderObjects
, name
);
166 _mesa_error(ctx
, GL_INVALID_VALUE
, "%s", caller
);
169 if (sh
->Type
== GL_SHADER_PROGRAM_MESA
) {
170 _mesa_error(ctx
, GL_INVALID_OPERATION
, "%s", caller
);
179 /**********************************************************************/
180 /*** Shader Program object functions ***/
181 /**********************************************************************/
185 * Set ptr to point to shProg.
186 * If ptr is pointing to another object, decrement its refcount (and delete
187 * if refcount hits zero).
188 * Then set ptr to point to shProg, incrementing its refcount.
191 _mesa_reference_shader_program_(struct gl_context
*ctx
,
192 struct gl_shader_program
**ptr
,
193 struct gl_shader_program
*shProg
)
196 if (*ptr
== shProg
) {
201 /* Unreference the old shader program */
202 GLboolean deleteFlag
= GL_FALSE
;
203 struct gl_shader_program
*old
= *ptr
;
205 assert(old
->RefCount
> 0);
207 deleteFlag
= (old
->RefCount
== 0);
211 _mesa_HashRemove(ctx
->Shared
->ShaderObjects
, old
->Name
);
212 _mesa_delete_shader_program(ctx
, old
);
226 init_shader_program(struct gl_shader_program
*prog
)
228 prog
->Type
= GL_SHADER_PROGRAM_MESA
;
231 prog
->AttributeBindings
= string_to_uint_map_ctor();
232 prog
->FragDataBindings
= string_to_uint_map_ctor();
233 prog
->FragDataIndexBindings
= string_to_uint_map_ctor();
235 prog
->Geom
.VerticesOut
= 0;
236 prog
->Geom
.InputType
= GL_TRIANGLES
;
237 prog
->Geom
.OutputType
= GL_TRIANGLE_STRIP
;
238 prog
->Geom
.UsesEndPrimitive
= false;
239 prog
->Geom
.UsesStreams
= false;
241 prog
->TransformFeedback
.BufferMode
= GL_INTERLEAVED_ATTRIBS
;
243 exec_list_make_empty(&prog
->EmptyUniformLocations
);
245 prog
->InfoLog
= ralloc_strdup(prog
, "");
249 * Allocate a new gl_shader_program object, initialize it.
251 struct gl_shader_program
*
252 _mesa_new_shader_program(GLuint name
)
254 struct gl_shader_program
*shProg
;
255 shProg
= rzalloc(NULL
, struct gl_shader_program
);
258 init_shader_program(shProg
);
265 * Clear (free) the shader program state that gets produced by linking.
268 _mesa_clear_shader_program_data(struct gl_shader_program
*shProg
)
272 if (shProg
->UniformStorage
) {
273 for (i
= 0; i
< shProg
->NumUniformStorage
; ++i
)
274 _mesa_uniform_detach_all_driver_storage(&shProg
->UniformStorage
[i
]);
275 ralloc_free(shProg
->UniformStorage
);
276 shProg
->NumUniformStorage
= 0;
277 shProg
->UniformStorage
= NULL
;
280 if (shProg
->UniformRemapTable
) {
281 ralloc_free(shProg
->UniformRemapTable
);
282 shProg
->NumUniformRemapTable
= 0;
283 shProg
->UniformRemapTable
= NULL
;
286 if (shProg
->UniformHash
) {
287 string_to_uint_map_dtor(shProg
->UniformHash
);
288 shProg
->UniformHash
= NULL
;
291 assert(shProg
->InfoLog
!= NULL
);
292 ralloc_free(shProg
->InfoLog
);
293 shProg
->InfoLog
= ralloc_strdup(shProg
, "");
295 ralloc_free(shProg
->UniformBlocks
);
296 shProg
->UniformBlocks
= NULL
;
297 shProg
->NumUniformBlocks
= 0;
299 ralloc_free(shProg
->ShaderStorageBlocks
);
300 shProg
->ShaderStorageBlocks
= NULL
;
301 shProg
->NumShaderStorageBlocks
= 0;
303 ralloc_free(shProg
->AtomicBuffers
);
304 shProg
->AtomicBuffers
= NULL
;
305 shProg
->NumAtomicBuffers
= 0;
307 if (shProg
->ProgramResourceList
) {
308 ralloc_free(shProg
->ProgramResourceList
);
309 shProg
->ProgramResourceList
= NULL
;
310 shProg
->NumProgramResourceList
= 0;
316 * Free all the data that hangs off a shader program object, but not the
320 _mesa_free_shader_program_data(struct gl_context
*ctx
,
321 struct gl_shader_program
*shProg
)
326 assert(shProg
->Type
== GL_SHADER_PROGRAM_MESA
);
328 _mesa_clear_shader_program_data(shProg
);
330 if (shProg
->AttributeBindings
) {
331 string_to_uint_map_dtor(shProg
->AttributeBindings
);
332 shProg
->AttributeBindings
= NULL
;
335 if (shProg
->FragDataBindings
) {
336 string_to_uint_map_dtor(shProg
->FragDataBindings
);
337 shProg
->FragDataBindings
= NULL
;
340 if (shProg
->FragDataIndexBindings
) {
341 string_to_uint_map_dtor(shProg
->FragDataIndexBindings
);
342 shProg
->FragDataIndexBindings
= NULL
;
346 for (i
= 0; i
< shProg
->NumShaders
; i
++) {
347 _mesa_reference_shader(ctx
, &shProg
->Shaders
[i
], NULL
);
349 shProg
->NumShaders
= 0;
351 free(shProg
->Shaders
);
352 shProg
->Shaders
= NULL
;
354 /* Transform feedback varying vars */
355 for (i
= 0; i
< shProg
->TransformFeedback
.NumVarying
; i
++) {
356 free(shProg
->TransformFeedback
.VaryingNames
[i
]);
358 free(shProg
->TransformFeedback
.VaryingNames
);
359 shProg
->TransformFeedback
.VaryingNames
= NULL
;
360 shProg
->TransformFeedback
.NumVarying
= 0;
363 for (sh
= 0; sh
< MESA_SHADER_STAGES
; sh
++) {
364 if (shProg
->_LinkedShaders
[sh
] != NULL
) {
365 _mesa_delete_shader(ctx
, shProg
->_LinkedShaders
[sh
]);
366 shProg
->_LinkedShaders
[sh
] = NULL
;
371 shProg
->Label
= NULL
;
376 * Free/delete a shader program object.
379 _mesa_delete_shader_program(struct gl_context
*ctx
,
380 struct gl_shader_program
*shProg
)
382 _mesa_free_shader_program_data(ctx
, shProg
);
389 * Lookup a GLSL program object.
391 struct gl_shader_program
*
392 _mesa_lookup_shader_program(struct gl_context
*ctx
, GLuint name
)
394 struct gl_shader_program
*shProg
;
396 shProg
= (struct gl_shader_program
*)
397 _mesa_HashLookup(ctx
->Shared
->ShaderObjects
, name
);
398 /* Note that both gl_shader and gl_shader_program objects are kept
399 * in the same hash table. Check the object's type to be sure it's
400 * what we're expecting.
402 if (shProg
&& shProg
->Type
!= GL_SHADER_PROGRAM_MESA
) {
412 * As above, but record an error if program is not found.
414 struct gl_shader_program
*
415 _mesa_lookup_shader_program_err(struct gl_context
*ctx
, GLuint name
,
419 _mesa_error(ctx
, GL_INVALID_VALUE
, "%s", caller
);
423 struct gl_shader_program
*shProg
= (struct gl_shader_program
*)
424 _mesa_HashLookup(ctx
->Shared
->ShaderObjects
, name
);
426 _mesa_error(ctx
, GL_INVALID_VALUE
, "%s", caller
);
429 if (shProg
->Type
!= GL_SHADER_PROGRAM_MESA
) {
430 _mesa_error(ctx
, GL_INVALID_OPERATION
, "%s", caller
);
439 _mesa_init_shader_object_functions(struct dd_function_table
*driver
)
441 driver
->NewShader
= _mesa_new_shader
;
442 driver
->LinkShader
= _mesa_ir_link_shader
;