1 /*
2 * Mesa 3-D graphics library
3 *
4 * Copyright (C) 2004-2008 Brian Paul All Rights Reserved.
5 * Copyright (C) 2009-2010 VMware, Inc. All Rights Reserved.
6 * Copyright © 2010 Intel Corporation
7 *
8 * Permission is hereby granted, free of charge, to any person obtaining a
9 * copy of this software and associated documentation files (the "Software"),
10 * to deal in the Software without restriction, including without limitation
11 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
12 * and/or sell copies of the Software, and to permit persons to whom the
13 * Software is furnished to do so, subject to the following conditions:
14 *
15 * The above copyright notice and this permission notice shall be included
16 * in all copies or substantial portions of the Software.
17 *
18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
19 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
20 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
21 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
22 * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
23 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
24 * OTHER DEALINGS IN THE SOFTWARE.
25 */
26
27 /**
28 * \file uniforms.c
29 * Functions related to GLSL uniform variables.
30 * \author Brian Paul
31 */
32
33 /**
34 * XXX things to do:
35 * 1. Check that the right error code is generated for all _mesa_error() calls.
36 * 2. Insert FLUSH_VERTICES calls in various places
37 */
38
39 #include "main/glheader.h"
40 #include "main/context.h"
41 #include "main/shaderapi.h"
42 #include "main/shaderobj.h"
43 #include "main/uniforms.h"
44 #include "main/enums.h"
45 #include "compiler/glsl/ir_uniform.h"
46 #include "compiler/glsl_types.h"
47 #include "program/program.h"
48 #include "util/bitscan.h"
49
50 /**
51 * Update the vertex/fragment program's TexturesUsed array.
52 *
53 * This needs to be called after glUniform(set sampler var) is called.
54 * A call to glUniform(samplerVar, value) causes a sampler to point to a
55 * particular texture unit. We know the sampler's texture target
56 * (1D/2D/3D/etc) from compile time but the sampler's texture unit is
57 * set by glUniform() calls.
58 *
59 * So, scan the program->SamplerUnits[] and program->SamplerTargets[]
60 * information to update the prog->TexturesUsed[] values.
61 * Each value of TexturesUsed[unit] is one of zero, TEXTURE_1D_INDEX,
62 * TEXTURE_2D_INDEX, TEXTURE_3D_INDEX, etc.
63 * We'll use that info for state validation before rendering.
64 */
65 static inline void
update_single_shader_texture_used(struct gl_shader_program * shProg,struct gl_program * prog,GLuint unit,GLuint target)66 update_single_shader_texture_used(struct gl_shader_program *shProg,
67 struct gl_program *prog,
68 GLuint unit, GLuint target)
69 {
70 gl_shader_stage prog_stage =
71 _mesa_program_enum_to_shader_stage(prog->Target);
72
73 assert(unit < ARRAY_SIZE(prog->TexturesUsed));
74 assert(target < NUM_TEXTURE_TARGETS);
75
76 /* From section 7.10 (Samplers) of the OpenGL 4.5 spec:
77 *
78 * "It is not allowed to have variables of different sampler types pointing
79 * to the same texture image unit within a program object."
80 */
81 unsigned stages_mask = shProg->data->linked_stages;
82 while (stages_mask) {
83 const int stage = u_bit_scan(&stages_mask);
84
85 /* Skip validation if we are yet to update textures used in this
86 * stage.
87 */
88 if (prog_stage < stage)
89 break;
90
91 struct gl_program *glprog = shProg->_LinkedShaders[stage]->Program;
92 if (glprog->TexturesUsed[unit] & ~(1 << target))
93 shProg->SamplersValidated = GL_FALSE;
94 }
95
96 prog->TexturesUsed[unit] |= (1 << target);
97 }
98
99 void
_mesa_update_shader_textures_used(struct gl_shader_program * shProg,struct gl_program * prog)100 _mesa_update_shader_textures_used(struct gl_shader_program *shProg,
101 struct gl_program *prog)
102 {
103 GLbitfield mask = prog->SamplersUsed;
104 ASSERTED gl_shader_stage prog_stage =
105 _mesa_program_enum_to_shader_stage(prog->Target);
106 GLuint s;
107
108 assert(shProg->_LinkedShaders[prog_stage]);
109
110 memset(prog->TexturesUsed, 0, sizeof(prog->TexturesUsed));
111
112 while (mask) {
113 s = u_bit_scan(&mask);
114
115 update_single_shader_texture_used(shProg, prog,
116 prog->SamplerUnits[s],
117 prog->sh.SamplerTargets[s]);
118 }
119
120 if (unlikely(prog->sh.HasBoundBindlessSampler)) {
121 /* Loop over bindless samplers bound to texture units.
122 */
123 for (s = 0; s < prog->sh.NumBindlessSamplers; s++) {
124 struct gl_bindless_sampler *sampler = &prog->sh.BindlessSamplers[s];
125
126 if (!sampler->bound)
127 continue;
128
129 update_single_shader_texture_used(shProg, prog, sampler->unit,
130 sampler->target);
131 }
132 }
133 }
134
135 /**
136 * Connect a piece of driver storage with a part of a uniform
137 *
138 * \param uni The uniform with which the storage will be associated
139 * \param element_stride Byte-stride between array elements.
140 * \sa gl_uniform_driver_storage::element_stride.
141 * \param vector_stride Byte-stride between vectors (in a matrix).
142 * \sa gl_uniform_driver_storage::vector_stride.
143 * \param format Conversion from native format to driver format
144 * required by the driver.
145 * \param data Location to dump the data.
146 */
147 void
_mesa_uniform_attach_driver_storage(struct gl_uniform_storage * uni,unsigned element_stride,unsigned vector_stride,enum gl_uniform_driver_format format,void * data)148 _mesa_uniform_attach_driver_storage(struct gl_uniform_storage *uni,
149 unsigned element_stride,
150 unsigned vector_stride,
151 enum gl_uniform_driver_format format,
152 void *data)
153 {
154 uni->driver_storage =
155 realloc(uni->driver_storage,
156 sizeof(struct gl_uniform_driver_storage)
157 * (uni->num_driver_storage + 1));
158
159 uni->driver_storage[uni->num_driver_storage].element_stride = element_stride;
160 uni->driver_storage[uni->num_driver_storage].vector_stride = vector_stride;
161 uni->driver_storage[uni->num_driver_storage].format = format;
162 uni->driver_storage[uni->num_driver_storage].data = data;
163
164 uni->num_driver_storage++;
165 }
166
167 /**
168 * Sever all connections with all pieces of driver storage for all uniforms
169 *
170 * \warning
171 * This function does \b not release any of the \c data pointers
172 * previously passed in to \c _mesa_uniform_attach_driver_stoarge.
173 */
174 void
_mesa_uniform_detach_all_driver_storage(struct gl_uniform_storage * uni)175 _mesa_uniform_detach_all_driver_storage(struct gl_uniform_storage *uni)
176 {
177 free(uni->driver_storage);
178 uni->driver_storage = NULL;
179 uni->num_driver_storage = 0;
180 }
181
182 void GLAPIENTRY
_mesa_Uniform1f(GLint location,GLfloat v0)183 _mesa_Uniform1f(GLint location, GLfloat v0)
184 {
185 GET_CURRENT_CONTEXT(ctx);
186 _mesa_uniform(location, 1, &v0, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_FLOAT, 1);
187 }
188
189 void GLAPIENTRY
_mesa_Uniform2f(GLint location,GLfloat v0,GLfloat v1)190 _mesa_Uniform2f(GLint location, GLfloat v0, GLfloat v1)
191 {
192 GET_CURRENT_CONTEXT(ctx);
193 GLfloat v[2];
194 v[0] = v0;
195 v[1] = v1;
196 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_FLOAT, 2);
197 }
198
199 void GLAPIENTRY
_mesa_Uniform3f(GLint location,GLfloat v0,GLfloat v1,GLfloat v2)200 _mesa_Uniform3f(GLint location, GLfloat v0, GLfloat v1, GLfloat v2)
201 {
202 GET_CURRENT_CONTEXT(ctx);
203 GLfloat v[3];
204 v[0] = v0;
205 v[1] = v1;
206 v[2] = v2;
207 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_FLOAT, 3);
208 }
209
210 void GLAPIENTRY
_mesa_Uniform4f(GLint location,GLfloat v0,GLfloat v1,GLfloat v2,GLfloat v3)211 _mesa_Uniform4f(GLint location, GLfloat v0, GLfloat v1, GLfloat v2,
212 GLfloat v3)
213 {
214 GET_CURRENT_CONTEXT(ctx);
215 GLfloat v[4];
216 v[0] = v0;
217 v[1] = v1;
218 v[2] = v2;
219 v[3] = v3;
220 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_FLOAT, 4);
221 }
222
223 void GLAPIENTRY
_mesa_Uniform1i(GLint location,GLint v0)224 _mesa_Uniform1i(GLint location, GLint v0)
225 {
226 GET_CURRENT_CONTEXT(ctx);
227 _mesa_uniform(location, 1, &v0, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT, 1);
228 }
229
230 void GLAPIENTRY
_mesa_Uniform2i(GLint location,GLint v0,GLint v1)231 _mesa_Uniform2i(GLint location, GLint v0, GLint v1)
232 {
233 GET_CURRENT_CONTEXT(ctx);
234 GLint v[2];
235 v[0] = v0;
236 v[1] = v1;
237 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT, 2);
238 }
239
240 void GLAPIENTRY
_mesa_Uniform3i(GLint location,GLint v0,GLint v1,GLint v2)241 _mesa_Uniform3i(GLint location, GLint v0, GLint v1, GLint v2)
242 {
243 GET_CURRENT_CONTEXT(ctx);
244 GLint v[3];
245 v[0] = v0;
246 v[1] = v1;
247 v[2] = v2;
248 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT, 3);
249 }
250
251 void GLAPIENTRY
_mesa_Uniform4i(GLint location,GLint v0,GLint v1,GLint v2,GLint v3)252 _mesa_Uniform4i(GLint location, GLint v0, GLint v1, GLint v2, GLint v3)
253 {
254 GET_CURRENT_CONTEXT(ctx);
255 GLint v[4];
256 v[0] = v0;
257 v[1] = v1;
258 v[2] = v2;
259 v[3] = v3;
260 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT, 4);
261 }
262
263 void GLAPIENTRY
_mesa_Uniform1fv(GLint location,GLsizei count,const GLfloat * value)264 _mesa_Uniform1fv(GLint location, GLsizei count, const GLfloat * value)
265 {
266 GET_CURRENT_CONTEXT(ctx);
267 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_FLOAT, 1);
268 }
269
270 void GLAPIENTRY
_mesa_Uniform2fv(GLint location,GLsizei count,const GLfloat * value)271 _mesa_Uniform2fv(GLint location, GLsizei count, const GLfloat * value)
272 {
273 GET_CURRENT_CONTEXT(ctx);
274 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_FLOAT, 2);
275 }
276
277 void GLAPIENTRY
_mesa_Uniform3fv(GLint location,GLsizei count,const GLfloat * value)278 _mesa_Uniform3fv(GLint location, GLsizei count, const GLfloat * value)
279 {
280 GET_CURRENT_CONTEXT(ctx);
281 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_FLOAT, 3);
282 }
283
284 void GLAPIENTRY
_mesa_Uniform4fv(GLint location,GLsizei count,const GLfloat * value)285 _mesa_Uniform4fv(GLint location, GLsizei count, const GLfloat * value)
286 {
287 GET_CURRENT_CONTEXT(ctx);
288 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_FLOAT, 4);
289 }
290
291 void GLAPIENTRY
_mesa_Uniform1iv(GLint location,GLsizei count,const GLint * value)292 _mesa_Uniform1iv(GLint location, GLsizei count, const GLint * value)
293 {
294 GET_CURRENT_CONTEXT(ctx);
295 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT, 1);
296 }
297
298 void GLAPIENTRY
_mesa_Uniform2iv(GLint location,GLsizei count,const GLint * value)299 _mesa_Uniform2iv(GLint location, GLsizei count, const GLint * value)
300 {
301 GET_CURRENT_CONTEXT(ctx);
302 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT, 2);
303 }
304
305 void GLAPIENTRY
_mesa_Uniform3iv(GLint location,GLsizei count,const GLint * value)306 _mesa_Uniform3iv(GLint location, GLsizei count, const GLint * value)
307 {
308 GET_CURRENT_CONTEXT(ctx);
309 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT, 3);
310 }
311
312 void GLAPIENTRY
_mesa_Uniform4iv(GLint location,GLsizei count,const GLint * value)313 _mesa_Uniform4iv(GLint location, GLsizei count, const GLint * value)
314 {
315 GET_CURRENT_CONTEXT(ctx);
316 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT, 4);
317 }
318
319 void GLAPIENTRY
_mesa_UniformHandleui64ARB(GLint location,GLuint64 value)320 _mesa_UniformHandleui64ARB(GLint location, GLuint64 value)
321 {
322 GET_CURRENT_CONTEXT(ctx);
323 _mesa_uniform_handle(location, 1, &value, ctx, ctx->_Shader->ActiveProgram);
324 }
325
326 void GLAPIENTRY
_mesa_UniformHandleui64vARB(GLint location,GLsizei count,const GLuint64 * value)327 _mesa_UniformHandleui64vARB(GLint location, GLsizei count,
328 const GLuint64 *value)
329 {
330 GET_CURRENT_CONTEXT(ctx);
331 _mesa_uniform_handle(location, count, value, ctx,
332 ctx->_Shader->ActiveProgram);
333 }
334
335
336 /** Same as above with direct state access **/
337 void GLAPIENTRY
_mesa_ProgramUniform1f(GLuint program,GLint location,GLfloat v0)338 _mesa_ProgramUniform1f(GLuint program, GLint location, GLfloat v0)
339 {
340 GET_CURRENT_CONTEXT(ctx);
341 struct gl_shader_program *shProg =
342 _mesa_lookup_shader_program_err(ctx, program,
343 "glProgramUniform1f");
344 _mesa_uniform(location, 1, &v0, ctx, shProg, GLSL_TYPE_FLOAT, 1);
345 }
346
347 void GLAPIENTRY
_mesa_ProgramUniform2f(GLuint program,GLint location,GLfloat v0,GLfloat v1)348 _mesa_ProgramUniform2f(GLuint program, GLint location, GLfloat v0, GLfloat v1)
349 {
350 GET_CURRENT_CONTEXT(ctx);
351 GLfloat v[2];
352 struct gl_shader_program *shProg;
353 v[0] = v0;
354 v[1] = v1;
355 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform2f");
356 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_FLOAT, 2);
357 }
358
359 void GLAPIENTRY
_mesa_ProgramUniform3f(GLuint program,GLint location,GLfloat v0,GLfloat v1,GLfloat v2)360 _mesa_ProgramUniform3f(GLuint program, GLint location, GLfloat v0, GLfloat v1,
361 GLfloat v2)
362 {
363 GET_CURRENT_CONTEXT(ctx);
364 GLfloat v[3];
365 struct gl_shader_program *shProg;
366 v[0] = v0;
367 v[1] = v1;
368 v[2] = v2;
369 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform3f");
370 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_FLOAT, 3);
371 }
372
373 void GLAPIENTRY
_mesa_ProgramUniform4f(GLuint program,GLint location,GLfloat v0,GLfloat v1,GLfloat v2,GLfloat v3)374 _mesa_ProgramUniform4f(GLuint program, GLint location, GLfloat v0, GLfloat v1,
375 GLfloat v2, GLfloat v3)
376 {
377 GET_CURRENT_CONTEXT(ctx);
378 GLfloat v[4];
379 struct gl_shader_program *shProg;
380 v[0] = v0;
381 v[1] = v1;
382 v[2] = v2;
383 v[3] = v3;
384 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform4f");
385 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_FLOAT, 4);
386 }
387
388 void GLAPIENTRY
_mesa_ProgramUniform1i(GLuint program,GLint location,GLint v0)389 _mesa_ProgramUniform1i(GLuint program, GLint location, GLint v0)
390 {
391 GET_CURRENT_CONTEXT(ctx);
392 struct gl_shader_program *shProg =
393 _mesa_lookup_shader_program_err(ctx, program,
394 "glProgramUniform1i");
395 _mesa_uniform(location, 1, &v0, ctx, shProg, GLSL_TYPE_INT, 1);
396 }
397
398 void GLAPIENTRY
_mesa_ProgramUniform2i(GLuint program,GLint location,GLint v0,GLint v1)399 _mesa_ProgramUniform2i(GLuint program, GLint location, GLint v0, GLint v1)
400 {
401 GET_CURRENT_CONTEXT(ctx);
402 GLint v[2];
403 struct gl_shader_program *shProg;
404 v[0] = v0;
405 v[1] = v1;
406 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform2i");
407 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_INT, 2);
408 }
409
410 void GLAPIENTRY
_mesa_ProgramUniform3i(GLuint program,GLint location,GLint v0,GLint v1,GLint v2)411 _mesa_ProgramUniform3i(GLuint program, GLint location, GLint v0, GLint v1,
412 GLint v2)
413 {
414 GET_CURRENT_CONTEXT(ctx);
415 GLint v[3];
416 struct gl_shader_program *shProg;
417 v[0] = v0;
418 v[1] = v1;
419 v[2] = v2;
420 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform3i");
421 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_INT, 3);
422 }
423
424 void GLAPIENTRY
_mesa_ProgramUniform4i(GLuint program,GLint location,GLint v0,GLint v1,GLint v2,GLint v3)425 _mesa_ProgramUniform4i(GLuint program, GLint location, GLint v0, GLint v1,
426 GLint v2, GLint v3)
427 {
428 GET_CURRENT_CONTEXT(ctx);
429 GLint v[4];
430 struct gl_shader_program *shProg;
431 v[0] = v0;
432 v[1] = v1;
433 v[2] = v2;
434 v[3] = v3;
435 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform4i");
436 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_INT, 4);
437 }
438
439 void GLAPIENTRY
_mesa_ProgramUniform1fv(GLuint program,GLint location,GLsizei count,const GLfloat * value)440 _mesa_ProgramUniform1fv(GLuint program, GLint location, GLsizei count,
441 const GLfloat * value)
442 {
443 GET_CURRENT_CONTEXT(ctx);
444 struct gl_shader_program *shProg =
445 _mesa_lookup_shader_program_err(ctx, program,
446 "glProgramUniform1fv");
447 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_FLOAT, 1);
448 }
449
450 void GLAPIENTRY
_mesa_ProgramUniform2fv(GLuint program,GLint location,GLsizei count,const GLfloat * value)451 _mesa_ProgramUniform2fv(GLuint program, GLint location, GLsizei count,
452 const GLfloat * value)
453 {
454 GET_CURRENT_CONTEXT(ctx);
455 struct gl_shader_program *shProg =
456 _mesa_lookup_shader_program_err(ctx, program,
457 "glProgramUniform2fv");
458 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_FLOAT, 2);
459 }
460
461 void GLAPIENTRY
_mesa_ProgramUniform3fv(GLuint program,GLint location,GLsizei count,const GLfloat * value)462 _mesa_ProgramUniform3fv(GLuint program, GLint location, GLsizei count,
463 const GLfloat * value)
464 {
465 GET_CURRENT_CONTEXT(ctx);
466 struct gl_shader_program *shProg =
467 _mesa_lookup_shader_program_err(ctx, program,
468 "glProgramUniform3fv");
469 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_FLOAT, 3);
470 }
471
472 void GLAPIENTRY
_mesa_ProgramUniform4fv(GLuint program,GLint location,GLsizei count,const GLfloat * value)473 _mesa_ProgramUniform4fv(GLuint program, GLint location, GLsizei count,
474 const GLfloat * value)
475 {
476 GET_CURRENT_CONTEXT(ctx);
477 struct gl_shader_program *shProg =
478 _mesa_lookup_shader_program_err(ctx, program,
479 "glProgramUniform4fv");
480 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_FLOAT, 4);
481 }
482
483 void GLAPIENTRY
_mesa_ProgramUniform1iv(GLuint program,GLint location,GLsizei count,const GLint * value)484 _mesa_ProgramUniform1iv(GLuint program, GLint location, GLsizei count,
485 const GLint * value)
486 {
487 GET_CURRENT_CONTEXT(ctx);
488 struct gl_shader_program *shProg =
489 _mesa_lookup_shader_program_err(ctx, program,
490 "glProgramUniform1iv");
491 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_INT, 1);
492 }
493
494 void GLAPIENTRY
_mesa_ProgramUniform2iv(GLuint program,GLint location,GLsizei count,const GLint * value)495 _mesa_ProgramUniform2iv(GLuint program, GLint location, GLsizei count,
496 const GLint * value)
497 {
498 GET_CURRENT_CONTEXT(ctx);
499 struct gl_shader_program *shProg =
500 _mesa_lookup_shader_program_err(ctx, program,
501 "glProgramUniform2iv");
502 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_INT, 2);
503 }
504
505 void GLAPIENTRY
_mesa_ProgramUniform3iv(GLuint program,GLint location,GLsizei count,const GLint * value)506 _mesa_ProgramUniform3iv(GLuint program, GLint location, GLsizei count,
507 const GLint * value)
508 {
509 GET_CURRENT_CONTEXT(ctx);
510 struct gl_shader_program *shProg =
511 _mesa_lookup_shader_program_err(ctx, program,
512 "glProgramUniform3iv");
513 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_INT, 3);
514 }
515
516 void GLAPIENTRY
_mesa_ProgramUniform4iv(GLuint program,GLint location,GLsizei count,const GLint * value)517 _mesa_ProgramUniform4iv(GLuint program, GLint location, GLsizei count,
518 const GLint * value)
519 {
520 GET_CURRENT_CONTEXT(ctx);
521 struct gl_shader_program *shProg =
522 _mesa_lookup_shader_program_err(ctx, program,
523 "glProgramUniform4iv");
524 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_INT, 4);
525 }
526
527 void GLAPIENTRY
_mesa_ProgramUniformHandleui64ARB(GLuint program,GLint location,GLuint64 value)528 _mesa_ProgramUniformHandleui64ARB(GLuint program, GLint location,
529 GLuint64 value)
530 {
531 GET_CURRENT_CONTEXT(ctx);
532 struct gl_shader_program *shProg =
533 _mesa_lookup_shader_program_err(ctx, program,
534 "glProgramUniformHandleui64ARB");
535 _mesa_uniform_handle(location, 1, &value, ctx, shProg);
536 }
537
538 void GLAPIENTRY
_mesa_ProgramUniformHandleui64vARB(GLuint program,GLint location,GLsizei count,const GLuint64 * values)539 _mesa_ProgramUniformHandleui64vARB(GLuint program, GLint location,
540 GLsizei count, const GLuint64 *values)
541 {
542 GET_CURRENT_CONTEXT(ctx);
543 struct gl_shader_program *shProg =
544 _mesa_lookup_shader_program_err(ctx, program,
545 "glProgramUniformHandleui64vARB");
546 _mesa_uniform_handle(location, count, values, ctx, shProg);
547 }
548
549
550 /** OpenGL 3.0 GLuint-valued functions **/
551 void GLAPIENTRY
_mesa_Uniform1ui(GLint location,GLuint v0)552 _mesa_Uniform1ui(GLint location, GLuint v0)
553 {
554 GET_CURRENT_CONTEXT(ctx);
555 _mesa_uniform(location, 1, &v0, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT, 1);
556 }
557
558 void GLAPIENTRY
_mesa_Uniform2ui(GLint location,GLuint v0,GLuint v1)559 _mesa_Uniform2ui(GLint location, GLuint v0, GLuint v1)
560 {
561 GET_CURRENT_CONTEXT(ctx);
562 GLuint v[2];
563 v[0] = v0;
564 v[1] = v1;
565 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT, 2);
566 }
567
568 void GLAPIENTRY
_mesa_Uniform3ui(GLint location,GLuint v0,GLuint v1,GLuint v2)569 _mesa_Uniform3ui(GLint location, GLuint v0, GLuint v1, GLuint v2)
570 {
571 GET_CURRENT_CONTEXT(ctx);
572 GLuint v[3];
573 v[0] = v0;
574 v[1] = v1;
575 v[2] = v2;
576 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT, 3);
577 }
578
579 void GLAPIENTRY
_mesa_Uniform4ui(GLint location,GLuint v0,GLuint v1,GLuint v2,GLuint v3)580 _mesa_Uniform4ui(GLint location, GLuint v0, GLuint v1, GLuint v2, GLuint v3)
581 {
582 GET_CURRENT_CONTEXT(ctx);
583 GLuint v[4];
584 v[0] = v0;
585 v[1] = v1;
586 v[2] = v2;
587 v[3] = v3;
588 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT, 4);
589 }
590
591 void GLAPIENTRY
_mesa_Uniform1uiv(GLint location,GLsizei count,const GLuint * value)592 _mesa_Uniform1uiv(GLint location, GLsizei count, const GLuint *value)
593 {
594 GET_CURRENT_CONTEXT(ctx);
595 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT, 1);
596 }
597
598 void GLAPIENTRY
_mesa_Uniform2uiv(GLint location,GLsizei count,const GLuint * value)599 _mesa_Uniform2uiv(GLint location, GLsizei count, const GLuint *value)
600 {
601 GET_CURRENT_CONTEXT(ctx);
602 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT, 2);
603 }
604
605 void GLAPIENTRY
_mesa_Uniform3uiv(GLint location,GLsizei count,const GLuint * value)606 _mesa_Uniform3uiv(GLint location, GLsizei count, const GLuint *value)
607 {
608 GET_CURRENT_CONTEXT(ctx);
609 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT, 3);
610 }
611
612 void GLAPIENTRY
_mesa_Uniform4uiv(GLint location,GLsizei count,const GLuint * value)613 _mesa_Uniform4uiv(GLint location, GLsizei count, const GLuint *value)
614 {
615 GET_CURRENT_CONTEXT(ctx);
616 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT, 4);
617 }
618
619
620
621 void GLAPIENTRY
_mesa_UniformMatrix2fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)622 _mesa_UniformMatrix2fv(GLint location, GLsizei count, GLboolean transpose,
623 const GLfloat * value)
624 {
625 GET_CURRENT_CONTEXT(ctx);
626 _mesa_uniform_matrix(location, count, transpose, value,
627 ctx, ctx->_Shader->ActiveProgram, 2, 2, GLSL_TYPE_FLOAT);
628 }
629
630 void GLAPIENTRY
_mesa_UniformMatrix3fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)631 _mesa_UniformMatrix3fv(GLint location, GLsizei count, GLboolean transpose,
632 const GLfloat * value)
633 {
634 GET_CURRENT_CONTEXT(ctx);
635 _mesa_uniform_matrix(location, count, transpose, value,
636 ctx, ctx->_Shader->ActiveProgram, 3, 3, GLSL_TYPE_FLOAT);
637 }
638
639 void GLAPIENTRY
_mesa_UniformMatrix4fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)640 _mesa_UniformMatrix4fv(GLint location, GLsizei count, GLboolean transpose,
641 const GLfloat * value)
642 {
643 GET_CURRENT_CONTEXT(ctx);
644 _mesa_uniform_matrix(location, count, transpose, value,
645 ctx, ctx->_Shader->ActiveProgram, 4, 4, GLSL_TYPE_FLOAT);
646 }
647
648 /** Same as above with direct state access **/
649
650 void GLAPIENTRY
_mesa_ProgramUniform1ui(GLuint program,GLint location,GLuint v0)651 _mesa_ProgramUniform1ui(GLuint program, GLint location, GLuint v0)
652 {
653 GET_CURRENT_CONTEXT(ctx);
654 struct gl_shader_program *shProg =
655 _mesa_lookup_shader_program_err(ctx, program,
656 "glProgramUniform1ui");
657 _mesa_uniform(location, 1, &v0, ctx, shProg, GLSL_TYPE_UINT, 1);
658 }
659
660 void GLAPIENTRY
_mesa_ProgramUniform2ui(GLuint program,GLint location,GLuint v0,GLuint v1)661 _mesa_ProgramUniform2ui(GLuint program, GLint location, GLuint v0, GLuint v1)
662 {
663 GET_CURRENT_CONTEXT(ctx);
664 GLuint v[2];
665 struct gl_shader_program *shProg;
666 v[0] = v0;
667 v[1] = v1;
668 shProg = _mesa_lookup_shader_program_err(ctx, program,
669 "glProgramUniform2ui");
670 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_UINT, 2);
671 }
672
673 void GLAPIENTRY
_mesa_ProgramUniform3ui(GLuint program,GLint location,GLuint v0,GLuint v1,GLuint v2)674 _mesa_ProgramUniform3ui(GLuint program, GLint location, GLuint v0, GLuint v1,
675 GLuint v2)
676 {
677 GET_CURRENT_CONTEXT(ctx);
678 GLuint v[3];
679 struct gl_shader_program *shProg;
680 v[0] = v0;
681 v[1] = v1;
682 v[2] = v2;
683 shProg = _mesa_lookup_shader_program_err(ctx, program,
684 "glProgramUniform3ui");
685 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_UINT, 3);
686 }
687
688 void GLAPIENTRY
_mesa_ProgramUniform4ui(GLuint program,GLint location,GLuint v0,GLuint v1,GLuint v2,GLuint v3)689 _mesa_ProgramUniform4ui(GLuint program, GLint location, GLuint v0, GLuint v1,
690 GLuint v2, GLuint v3)
691 {
692 GET_CURRENT_CONTEXT(ctx);
693 GLuint v[4];
694 struct gl_shader_program *shProg;
695 v[0] = v0;
696 v[1] = v1;
697 v[2] = v2;
698 v[3] = v3;
699 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform4ui");
700 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_UINT, 4);
701 }
702
703 void GLAPIENTRY
_mesa_ProgramUniform1uiv(GLuint program,GLint location,GLsizei count,const GLuint * value)704 _mesa_ProgramUniform1uiv(GLuint program, GLint location, GLsizei count,
705 const GLuint *value)
706 {
707 GET_CURRENT_CONTEXT(ctx);
708 struct gl_shader_program *shProg =
709 _mesa_lookup_shader_program_err(ctx, program,
710 "glProgramUniform1uiv");
711 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_UINT, 1);
712 }
713
714 void GLAPIENTRY
_mesa_ProgramUniform2uiv(GLuint program,GLint location,GLsizei count,const GLuint * value)715 _mesa_ProgramUniform2uiv(GLuint program, GLint location, GLsizei count,
716 const GLuint *value)
717 {
718 GET_CURRENT_CONTEXT(ctx);
719 struct gl_shader_program *shProg =
720 _mesa_lookup_shader_program_err(ctx, program,
721 "glProgramUniform2uiv");
722 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_UINT, 2);
723 }
724
725 void GLAPIENTRY
_mesa_ProgramUniform3uiv(GLuint program,GLint location,GLsizei count,const GLuint * value)726 _mesa_ProgramUniform3uiv(GLuint program, GLint location, GLsizei count,
727 const GLuint *value)
728 {
729 GET_CURRENT_CONTEXT(ctx);
730 struct gl_shader_program *shProg =
731 _mesa_lookup_shader_program_err(ctx, program,
732 "glProgramUniform3uiv");
733 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_UINT, 3);
734 }
735
736 void GLAPIENTRY
_mesa_ProgramUniform4uiv(GLuint program,GLint location,GLsizei count,const GLuint * value)737 _mesa_ProgramUniform4uiv(GLuint program, GLint location, GLsizei count,
738 const GLuint *value)
739 {
740 GET_CURRENT_CONTEXT(ctx);
741 struct gl_shader_program *shProg =
742 _mesa_lookup_shader_program_err(ctx, program,
743 "glProgramUniform4uiv");
744 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_UINT, 4);
745 }
746
747
748
749 void GLAPIENTRY
_mesa_ProgramUniformMatrix2fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)750 _mesa_ProgramUniformMatrix2fv(GLuint program, GLint location, GLsizei count,
751 GLboolean transpose, const GLfloat * value)
752 {
753 GET_CURRENT_CONTEXT(ctx);
754 struct gl_shader_program *shProg =
755 _mesa_lookup_shader_program_err(ctx, program,
756 "glProgramUniformMatrix2fv");
757 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 2, 2, GLSL_TYPE_FLOAT);
758 }
759
760 void GLAPIENTRY
_mesa_ProgramUniformMatrix3fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)761 _mesa_ProgramUniformMatrix3fv(GLuint program, GLint location, GLsizei count,
762 GLboolean transpose, const GLfloat * value)
763 {
764 GET_CURRENT_CONTEXT(ctx);
765 struct gl_shader_program *shProg =
766 _mesa_lookup_shader_program_err(ctx, program,
767 "glProgramUniformMatrix3fv");
768 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 3, 3, GLSL_TYPE_FLOAT);
769 }
770
771 void GLAPIENTRY
_mesa_ProgramUniformMatrix4fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)772 _mesa_ProgramUniformMatrix4fv(GLuint program, GLint location, GLsizei count,
773 GLboolean transpose, const GLfloat * value)
774 {
775 GET_CURRENT_CONTEXT(ctx);
776 struct gl_shader_program *shProg =
777 _mesa_lookup_shader_program_err(ctx, program,
778 "glProgramUniformMatrix4fv");
779 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 4, 4, GLSL_TYPE_FLOAT);
780 }
781
782
783 /**
784 * Non-square UniformMatrix are OpenGL 2.1
785 */
786 void GLAPIENTRY
_mesa_UniformMatrix2x3fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)787 _mesa_UniformMatrix2x3fv(GLint location, GLsizei count, GLboolean transpose,
788 const GLfloat *value)
789 {
790 GET_CURRENT_CONTEXT(ctx);
791 _mesa_uniform_matrix(location, count, transpose, value,
792 ctx, ctx->_Shader->ActiveProgram, 2, 3, GLSL_TYPE_FLOAT);
793 }
794
795 void GLAPIENTRY
_mesa_UniformMatrix3x2fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)796 _mesa_UniformMatrix3x2fv(GLint location, GLsizei count, GLboolean transpose,
797 const GLfloat *value)
798 {
799 GET_CURRENT_CONTEXT(ctx);
800 _mesa_uniform_matrix(location, count, transpose, value,
801 ctx, ctx->_Shader->ActiveProgram, 3, 2, GLSL_TYPE_FLOAT);
802 }
803
804 void GLAPIENTRY
_mesa_UniformMatrix2x4fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)805 _mesa_UniformMatrix2x4fv(GLint location, GLsizei count, GLboolean transpose,
806 const GLfloat *value)
807 {
808 GET_CURRENT_CONTEXT(ctx);
809 _mesa_uniform_matrix(location, count, transpose, value,
810 ctx, ctx->_Shader->ActiveProgram, 2, 4, GLSL_TYPE_FLOAT);
811 }
812
813 void GLAPIENTRY
_mesa_UniformMatrix4x2fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)814 _mesa_UniformMatrix4x2fv(GLint location, GLsizei count, GLboolean transpose,
815 const GLfloat *value)
816 {
817 GET_CURRENT_CONTEXT(ctx);
818 _mesa_uniform_matrix(location, count, transpose, value,
819 ctx, ctx->_Shader->ActiveProgram, 4, 2, GLSL_TYPE_FLOAT);
820 }
821
822 void GLAPIENTRY
_mesa_UniformMatrix3x4fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)823 _mesa_UniformMatrix3x4fv(GLint location, GLsizei count, GLboolean transpose,
824 const GLfloat *value)
825 {
826 GET_CURRENT_CONTEXT(ctx);
827 _mesa_uniform_matrix(location, count, transpose, value,
828 ctx, ctx->_Shader->ActiveProgram, 3, 4, GLSL_TYPE_FLOAT);
829 }
830
831 void GLAPIENTRY
_mesa_UniformMatrix4x3fv(GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)832 _mesa_UniformMatrix4x3fv(GLint location, GLsizei count, GLboolean transpose,
833 const GLfloat *value)
834 {
835 GET_CURRENT_CONTEXT(ctx);
836 _mesa_uniform_matrix(location, count, transpose, value,
837 ctx, ctx->_Shader->ActiveProgram, 4, 3, GLSL_TYPE_FLOAT);
838 }
839
840 /** Same as above with direct state access **/
841
842 void GLAPIENTRY
_mesa_ProgramUniformMatrix2x3fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)843 _mesa_ProgramUniformMatrix2x3fv(GLuint program, GLint location, GLsizei count,
844 GLboolean transpose, const GLfloat * value)
845 {
846 GET_CURRENT_CONTEXT(ctx);
847 struct gl_shader_program *shProg =
848 _mesa_lookup_shader_program_err(ctx, program,
849 "glProgramUniformMatrix2x3fv");
850 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 2, 3, GLSL_TYPE_FLOAT);
851 }
852
853 void GLAPIENTRY
_mesa_ProgramUniformMatrix3x2fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)854 _mesa_ProgramUniformMatrix3x2fv(GLuint program, GLint location, GLsizei count,
855 GLboolean transpose, const GLfloat * value)
856 {
857 GET_CURRENT_CONTEXT(ctx);
858 struct gl_shader_program *shProg =
859 _mesa_lookup_shader_program_err(ctx, program,
860 "glProgramUniformMatrix3x2fv");
861 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 3, 2, GLSL_TYPE_FLOAT);
862 }
863
864 void GLAPIENTRY
_mesa_ProgramUniformMatrix2x4fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)865 _mesa_ProgramUniformMatrix2x4fv(GLuint program, GLint location, GLsizei count,
866 GLboolean transpose, const GLfloat * value)
867 {
868 GET_CURRENT_CONTEXT(ctx);
869 struct gl_shader_program *shProg =
870 _mesa_lookup_shader_program_err(ctx, program,
871 "glProgramUniformMatrix2x4fv");
872 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 2, 4, GLSL_TYPE_FLOAT);
873 }
874
875 void GLAPIENTRY
_mesa_ProgramUniformMatrix4x2fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)876 _mesa_ProgramUniformMatrix4x2fv(GLuint program, GLint location, GLsizei count,
877 GLboolean transpose, const GLfloat * value)
878 {
879 GET_CURRENT_CONTEXT(ctx);
880 struct gl_shader_program *shProg =
881 _mesa_lookup_shader_program_err(ctx, program,
882 "glProgramUniformMatrix4x2fv");
883 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 4, 2, GLSL_TYPE_FLOAT);
884 }
885
886 void GLAPIENTRY
_mesa_ProgramUniformMatrix3x4fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)887 _mesa_ProgramUniformMatrix3x4fv(GLuint program, GLint location, GLsizei count,
888 GLboolean transpose, const GLfloat * value)
889 {
890 GET_CURRENT_CONTEXT(ctx);
891 struct gl_shader_program *shProg =
892 _mesa_lookup_shader_program_err(ctx, program,
893 "glProgramUniformMatrix3x4fv");
894 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 3, 4, GLSL_TYPE_FLOAT);
895 }
896
897 void GLAPIENTRY
_mesa_ProgramUniformMatrix4x3fv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLfloat * value)898 _mesa_ProgramUniformMatrix4x3fv(GLuint program, GLint location, GLsizei count,
899 GLboolean transpose, const GLfloat * value)
900 {
901 GET_CURRENT_CONTEXT(ctx);
902 struct gl_shader_program *shProg =
903 _mesa_lookup_shader_program_err(ctx, program,
904 "glProgramUniformMatrix4x3fv");
905 _mesa_uniform_matrix(location, count, transpose, value, ctx, shProg, 4, 3, GLSL_TYPE_FLOAT);
906 }
907
908
909 void GLAPIENTRY
_mesa_GetnUniformfvARB(GLuint program,GLint location,GLsizei bufSize,GLfloat * params)910 _mesa_GetnUniformfvARB(GLuint program, GLint location,
911 GLsizei bufSize, GLfloat *params)
912 {
913 GET_CURRENT_CONTEXT(ctx);
914 _mesa_get_uniform(ctx, program, location, bufSize, GLSL_TYPE_FLOAT, params);
915 }
916
917 void GLAPIENTRY
_mesa_GetUniformfv(GLuint program,GLint location,GLfloat * params)918 _mesa_GetUniformfv(GLuint program, GLint location, GLfloat *params)
919 {
920 _mesa_GetnUniformfvARB(program, location, INT_MAX, params);
921 }
922
923
924 void GLAPIENTRY
_mesa_GetnUniformivARB(GLuint program,GLint location,GLsizei bufSize,GLint * params)925 _mesa_GetnUniformivARB(GLuint program, GLint location,
926 GLsizei bufSize, GLint *params)
927 {
928 GET_CURRENT_CONTEXT(ctx);
929 _mesa_get_uniform(ctx, program, location, bufSize, GLSL_TYPE_INT, params);
930 }
931
932 void GLAPIENTRY
_mesa_GetUniformiv(GLuint program,GLint location,GLint * params)933 _mesa_GetUniformiv(GLuint program, GLint location, GLint *params)
934 {
935 _mesa_GetnUniformivARB(program, location, INT_MAX, params);
936 }
937
938
939 /* GL3 */
940 void GLAPIENTRY
_mesa_GetnUniformuivARB(GLuint program,GLint location,GLsizei bufSize,GLuint * params)941 _mesa_GetnUniformuivARB(GLuint program, GLint location,
942 GLsizei bufSize, GLuint *params)
943 {
944 GET_CURRENT_CONTEXT(ctx);
945 _mesa_get_uniform(ctx, program, location, bufSize, GLSL_TYPE_UINT, params);
946 }
947
948 void GLAPIENTRY
_mesa_GetUniformuiv(GLuint program,GLint location,GLuint * params)949 _mesa_GetUniformuiv(GLuint program, GLint location, GLuint *params)
950 {
951 _mesa_GetnUniformuivARB(program, location, INT_MAX, params);
952 }
953
954
955 /* GL4 */
956 void GLAPIENTRY
_mesa_GetnUniformdvARB(GLuint program,GLint location,GLsizei bufSize,GLdouble * params)957 _mesa_GetnUniformdvARB(GLuint program, GLint location,
958 GLsizei bufSize, GLdouble *params)
959 {
960 GET_CURRENT_CONTEXT(ctx);
961
962 _mesa_get_uniform(ctx, program, location, bufSize, GLSL_TYPE_DOUBLE, params);
963 }
964
965 void GLAPIENTRY
_mesa_GetUniformdv(GLuint program,GLint location,GLdouble * params)966 _mesa_GetUniformdv(GLuint program, GLint location, GLdouble *params)
967 {
968 _mesa_GetnUniformdvARB(program, location, INT_MAX, params);
969 }
970
971 void GLAPIENTRY
_mesa_GetnUniformi64vARB(GLuint program,GLint location,GLsizei bufSize,GLint64 * params)972 _mesa_GetnUniformi64vARB(GLuint program, GLint location,
973 GLsizei bufSize, GLint64 *params)
974 {
975 GET_CURRENT_CONTEXT(ctx);
976 _mesa_get_uniform(ctx, program, location, bufSize, GLSL_TYPE_INT64, params);
977 }
978 void GLAPIENTRY
_mesa_GetUniformi64vARB(GLuint program,GLint location,GLint64 * params)979 _mesa_GetUniformi64vARB(GLuint program, GLint location, GLint64 *params)
980 {
981 _mesa_GetnUniformi64vARB(program, location, INT_MAX, params);
982 }
983
984 void GLAPIENTRY
_mesa_GetnUniformui64vARB(GLuint program,GLint location,GLsizei bufSize,GLuint64 * params)985 _mesa_GetnUniformui64vARB(GLuint program, GLint location,
986 GLsizei bufSize, GLuint64 *params)
987 {
988 GET_CURRENT_CONTEXT(ctx);
989 _mesa_get_uniform(ctx, program, location, bufSize, GLSL_TYPE_UINT64, params);
990 }
991
992 void GLAPIENTRY
_mesa_GetUniformui64vARB(GLuint program,GLint location,GLuint64 * params)993 _mesa_GetUniformui64vARB(GLuint program, GLint location, GLuint64 *params)
994 {
995 _mesa_GetnUniformui64vARB(program, location, INT_MAX, params);
996 }
997
998
999 GLint GLAPIENTRY
_mesa_GetUniformLocation(GLuint programObj,const GLcharARB * name)1000 _mesa_GetUniformLocation(GLuint programObj, const GLcharARB *name)
1001 {
1002 struct gl_shader_program *shProg;
1003
1004 GET_CURRENT_CONTEXT(ctx);
1005
1006 shProg = _mesa_lookup_shader_program_err(ctx, programObj,
1007 "glGetUniformLocation");
1008 if (!shProg || !name)
1009 return -1;
1010
1011 /* Page 80 (page 94 of the PDF) of the OpenGL 2.1 spec says:
1012 *
1013 * "If program has not been successfully linked, the error
1014 * INVALID_OPERATION is generated."
1015 */
1016 if (shProg->data->LinkStatus == LINKING_FAILURE) {
1017 _mesa_error(ctx, GL_INVALID_OPERATION,
1018 "glGetUniformLocation(program not linked)");
1019 return -1;
1020 }
1021
1022 return _mesa_program_resource_location(shProg, GL_UNIFORM, name);
1023 }
1024
1025 GLint GLAPIENTRY
_mesa_GetUniformLocation_no_error(GLuint programObj,const GLcharARB * name)1026 _mesa_GetUniformLocation_no_error(GLuint programObj, const GLcharARB *name)
1027 {
1028 GET_CURRENT_CONTEXT(ctx);
1029
1030 struct gl_shader_program *shProg =
1031 _mesa_lookup_shader_program(ctx, programObj);
1032
1033 return _mesa_program_resource_location(shProg, GL_UNIFORM, name);
1034 }
1035
1036 GLuint GLAPIENTRY
_mesa_GetUniformBlockIndex(GLuint program,const GLchar * uniformBlockName)1037 _mesa_GetUniformBlockIndex(GLuint program,
1038 const GLchar *uniformBlockName)
1039 {
1040 GET_CURRENT_CONTEXT(ctx);
1041 struct gl_shader_program *shProg;
1042
1043 if (!ctx->Extensions.ARB_uniform_buffer_object) {
1044 _mesa_error(ctx, GL_INVALID_OPERATION, "glGetUniformBlockIndex");
1045 return GL_INVALID_INDEX;
1046 }
1047
1048 shProg = _mesa_lookup_shader_program_err(ctx, program,
1049 "glGetUniformBlockIndex");
1050 if (!shProg)
1051 return GL_INVALID_INDEX;
1052
1053 struct gl_program_resource *res =
1054 _mesa_program_resource_find_name(shProg, GL_UNIFORM_BLOCK,
1055 uniformBlockName, NULL);
1056 if (!res)
1057 return GL_INVALID_INDEX;
1058
1059 return _mesa_program_resource_index(shProg, res);
1060 }
1061
1062 void GLAPIENTRY
_mesa_GetUniformIndices(GLuint program,GLsizei uniformCount,const GLchar * const * uniformNames,GLuint * uniformIndices)1063 _mesa_GetUniformIndices(GLuint program,
1064 GLsizei uniformCount,
1065 const GLchar * const *uniformNames,
1066 GLuint *uniformIndices)
1067 {
1068 GET_CURRENT_CONTEXT(ctx);
1069 GLsizei i;
1070 struct gl_shader_program *shProg;
1071
1072 if (!ctx->Extensions.ARB_uniform_buffer_object) {
1073 _mesa_error(ctx, GL_INVALID_OPERATION, "glGetUniformIndices");
1074 return;
1075 }
1076
1077 shProg = _mesa_lookup_shader_program_err(ctx, program,
1078 "glGetUniformIndices");
1079 if (!shProg)
1080 return;
1081
1082 if (uniformCount < 0) {
1083 _mesa_error(ctx, GL_INVALID_VALUE,
1084 "glGetUniformIndices(uniformCount < 0)");
1085 return;
1086 }
1087
1088 for (i = 0; i < uniformCount; i++) {
1089 struct gl_program_resource *res =
1090 _mesa_program_resource_find_name(shProg, GL_UNIFORM, uniformNames[i],
1091 NULL);
1092 uniformIndices[i] = _mesa_program_resource_index(shProg, res);
1093 }
1094 }
1095
1096 static void
uniform_block_binding(struct gl_context * ctx,struct gl_shader_program * shProg,GLuint uniformBlockIndex,GLuint uniformBlockBinding)1097 uniform_block_binding(struct gl_context *ctx, struct gl_shader_program *shProg,
1098 GLuint uniformBlockIndex, GLuint uniformBlockBinding)
1099 {
1100 if (shProg->data->UniformBlocks[uniformBlockIndex].Binding !=
1101 uniformBlockBinding) {
1102
1103 FLUSH_VERTICES(ctx, 0);
1104 ctx->NewDriverState |= ctx->DriverFlags.NewUniformBuffer;
1105
1106 shProg->data->UniformBlocks[uniformBlockIndex].Binding =
1107 uniformBlockBinding;
1108 }
1109 }
1110
1111 void GLAPIENTRY
_mesa_UniformBlockBinding_no_error(GLuint program,GLuint uniformBlockIndex,GLuint uniformBlockBinding)1112 _mesa_UniformBlockBinding_no_error(GLuint program, GLuint uniformBlockIndex,
1113 GLuint uniformBlockBinding)
1114 {
1115 GET_CURRENT_CONTEXT(ctx);
1116
1117 struct gl_shader_program *shProg = _mesa_lookup_shader_program(ctx, program);
1118 uniform_block_binding(ctx, shProg, uniformBlockIndex, uniformBlockBinding);
1119 }
1120
1121 void GLAPIENTRY
_mesa_UniformBlockBinding(GLuint program,GLuint uniformBlockIndex,GLuint uniformBlockBinding)1122 _mesa_UniformBlockBinding(GLuint program,
1123 GLuint uniformBlockIndex,
1124 GLuint uniformBlockBinding)
1125 {
1126 GET_CURRENT_CONTEXT(ctx);
1127 struct gl_shader_program *shProg;
1128
1129 if (!ctx->Extensions.ARB_uniform_buffer_object) {
1130 _mesa_error(ctx, GL_INVALID_OPERATION, "glUniformBlockBinding");
1131 return;
1132 }
1133
1134 shProg = _mesa_lookup_shader_program_err(ctx, program,
1135 "glUniformBlockBinding");
1136 if (!shProg)
1137 return;
1138
1139 if (uniformBlockIndex >= shProg->data->NumUniformBlocks) {
1140 _mesa_error(ctx, GL_INVALID_VALUE,
1141 "glUniformBlockBinding(block index %u >= %u)",
1142 uniformBlockIndex, shProg->data->NumUniformBlocks);
1143 return;
1144 }
1145
1146 if (uniformBlockBinding >= ctx->Const.MaxUniformBufferBindings) {
1147 _mesa_error(ctx, GL_INVALID_VALUE,
1148 "glUniformBlockBinding(block binding %u >= %u)",
1149 uniformBlockBinding, ctx->Const.MaxUniformBufferBindings);
1150 return;
1151 }
1152
1153 uniform_block_binding(ctx, shProg, uniformBlockIndex, uniformBlockBinding);
1154 }
1155
1156 static void
shader_storage_block_binding(struct gl_context * ctx,struct gl_shader_program * shProg,GLuint shaderStorageBlockIndex,GLuint shaderStorageBlockBinding)1157 shader_storage_block_binding(struct gl_context *ctx,
1158 struct gl_shader_program *shProg,
1159 GLuint shaderStorageBlockIndex,
1160 GLuint shaderStorageBlockBinding)
1161 {
1162 if (shProg->data->ShaderStorageBlocks[shaderStorageBlockIndex].Binding !=
1163 shaderStorageBlockBinding) {
1164
1165 FLUSH_VERTICES(ctx, 0);
1166 ctx->NewDriverState |= ctx->DriverFlags.NewShaderStorageBuffer;
1167
1168 shProg->data->ShaderStorageBlocks[shaderStorageBlockIndex].Binding =
1169 shaderStorageBlockBinding;
1170 }
1171 }
1172
1173 void GLAPIENTRY
_mesa_ShaderStorageBlockBinding_no_error(GLuint program,GLuint shaderStorageBlockIndex,GLuint shaderStorageBlockBinding)1174 _mesa_ShaderStorageBlockBinding_no_error(GLuint program,
1175 GLuint shaderStorageBlockIndex,
1176 GLuint shaderStorageBlockBinding)
1177 {
1178 GET_CURRENT_CONTEXT(ctx);
1179
1180 struct gl_shader_program *shProg = _mesa_lookup_shader_program(ctx, program);
1181 shader_storage_block_binding(ctx, shProg, shaderStorageBlockIndex,
1182 shaderStorageBlockBinding);
1183 }
1184
1185 void GLAPIENTRY
_mesa_ShaderStorageBlockBinding(GLuint program,GLuint shaderStorageBlockIndex,GLuint shaderStorageBlockBinding)1186 _mesa_ShaderStorageBlockBinding(GLuint program,
1187 GLuint shaderStorageBlockIndex,
1188 GLuint shaderStorageBlockBinding)
1189 {
1190 GET_CURRENT_CONTEXT(ctx);
1191 struct gl_shader_program *shProg;
1192
1193 if (!ctx->Extensions.ARB_shader_storage_buffer_object) {
1194 _mesa_error(ctx, GL_INVALID_OPERATION, "glShaderStorageBlockBinding");
1195 return;
1196 }
1197
1198 shProg = _mesa_lookup_shader_program_err(ctx, program,
1199 "glShaderStorageBlockBinding");
1200 if (!shProg)
1201 return;
1202
1203 if (shaderStorageBlockIndex >= shProg->data->NumShaderStorageBlocks) {
1204 _mesa_error(ctx, GL_INVALID_VALUE,
1205 "glShaderStorageBlockBinding(block index %u >= %u)",
1206 shaderStorageBlockIndex,
1207 shProg->data->NumShaderStorageBlocks);
1208 return;
1209 }
1210
1211 if (shaderStorageBlockBinding >= ctx->Const.MaxShaderStorageBufferBindings) {
1212 _mesa_error(ctx, GL_INVALID_VALUE,
1213 "glShaderStorageBlockBinding(block binding %u >= %u)",
1214 shaderStorageBlockBinding,
1215 ctx->Const.MaxShaderStorageBufferBindings);
1216 return;
1217 }
1218
1219 shader_storage_block_binding(ctx, shProg, shaderStorageBlockIndex,
1220 shaderStorageBlockBinding);
1221 }
1222
1223 /**
1224 * Generic program resource property query.
1225 */
1226 static void
mesa_bufferiv(struct gl_shader_program * shProg,GLenum type,GLuint index,GLenum pname,GLint * params,const char * caller)1227 mesa_bufferiv(struct gl_shader_program *shProg, GLenum type,
1228 GLuint index, GLenum pname, GLint *params, const char *caller)
1229 {
1230 GET_CURRENT_CONTEXT(ctx);
1231 struct gl_program_resource *res =
1232 _mesa_program_resource_find_index(shProg, type, index);
1233
1234 if (!res) {
1235 _mesa_error(ctx, GL_INVALID_VALUE, "%s(bufferindex %d)", caller, index);
1236 return;
1237 }
1238
1239 switch (pname) {
1240 case GL_UNIFORM_BLOCK_BINDING:
1241 case GL_ATOMIC_COUNTER_BUFFER_BINDING:
1242 _mesa_program_resource_prop(shProg, res, index, GL_BUFFER_BINDING,
1243 params, caller);
1244 return;
1245 case GL_UNIFORM_BLOCK_DATA_SIZE:
1246 case GL_ATOMIC_COUNTER_BUFFER_DATA_SIZE:
1247 _mesa_program_resource_prop(shProg, res, index, GL_BUFFER_DATA_SIZE,
1248 params, caller);
1249 return;
1250 case GL_UNIFORM_BLOCK_NAME_LENGTH:
1251 _mesa_program_resource_prop(shProg, res, index, GL_NAME_LENGTH,
1252 params, caller);
1253 return;
1254 case GL_UNIFORM_BLOCK_ACTIVE_UNIFORMS:
1255 case GL_ATOMIC_COUNTER_BUFFER_ACTIVE_ATOMIC_COUNTERS:
1256 _mesa_program_resource_prop(shProg, res, index, GL_NUM_ACTIVE_VARIABLES,
1257 params, caller);
1258 return;
1259 case GL_UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES:
1260 case GL_ATOMIC_COUNTER_BUFFER_ACTIVE_ATOMIC_COUNTER_INDICES:
1261 _mesa_program_resource_prop(shProg, res, index, GL_ACTIVE_VARIABLES,
1262 params, caller);
1263 return;
1264 case GL_UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER:
1265 case GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_VERTEX_SHADER:
1266 _mesa_program_resource_prop(shProg, res, index,
1267 GL_REFERENCED_BY_VERTEX_SHADER, params,
1268 caller);
1269 return;
1270
1271 case GL_UNIFORM_BLOCK_REFERENCED_BY_TESS_CONTROL_SHADER:
1272 case GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_TESS_CONTROL_SHADER:
1273 _mesa_program_resource_prop(shProg, res, index,
1274 GL_REFERENCED_BY_TESS_CONTROL_SHADER, params,
1275 caller);
1276 return;
1277
1278 case GL_UNIFORM_BLOCK_REFERENCED_BY_TESS_EVALUATION_SHADER:
1279 case GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_TESS_EVALUATION_SHADER:
1280 _mesa_program_resource_prop(shProg, res, index,
1281 GL_REFERENCED_BY_TESS_EVALUATION_SHADER, params,
1282 caller);
1283 return;
1284
1285 case GL_UNIFORM_BLOCK_REFERENCED_BY_GEOMETRY_SHADER:
1286 case GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_GEOMETRY_SHADER:
1287 _mesa_program_resource_prop(shProg, res, index,
1288 GL_REFERENCED_BY_GEOMETRY_SHADER, params,
1289 caller);
1290 return;
1291 case GL_UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER:
1292 case GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_FRAGMENT_SHADER:
1293 _mesa_program_resource_prop(shProg, res, index,
1294 GL_REFERENCED_BY_FRAGMENT_SHADER, params,
1295 caller);
1296 return;
1297 case GL_UNIFORM_BLOCK_REFERENCED_BY_COMPUTE_SHADER:
1298 case GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_COMPUTE_SHADER:
1299 _mesa_program_resource_prop(shProg, res, index,
1300 GL_REFERENCED_BY_COMPUTE_SHADER, params,
1301 caller);
1302 return;
1303 default:
1304 _mesa_error(ctx, GL_INVALID_ENUM,
1305 "%s(pname 0x%x (%s))", caller, pname,
1306 _mesa_enum_to_string(pname));
1307 return;
1308 }
1309 }
1310
1311
1312 void GLAPIENTRY
_mesa_GetActiveUniformBlockiv(GLuint program,GLuint uniformBlockIndex,GLenum pname,GLint * params)1313 _mesa_GetActiveUniformBlockiv(GLuint program,
1314 GLuint uniformBlockIndex,
1315 GLenum pname,
1316 GLint *params)
1317 {
1318 GET_CURRENT_CONTEXT(ctx);
1319 struct gl_shader_program *shProg;
1320
1321 if (!ctx->Extensions.ARB_uniform_buffer_object) {
1322 _mesa_error(ctx, GL_INVALID_OPERATION, "glGetActiveUniformBlockiv");
1323 return;
1324 }
1325
1326 shProg = _mesa_lookup_shader_program_err(ctx, program,
1327 "glGetActiveUniformBlockiv");
1328 if (!shProg)
1329 return;
1330
1331 mesa_bufferiv(shProg, GL_UNIFORM_BLOCK, uniformBlockIndex, pname, params,
1332 "glGetActiveUniformBlockiv");
1333 }
1334
1335 void GLAPIENTRY
_mesa_GetActiveUniformBlockName(GLuint program,GLuint uniformBlockIndex,GLsizei bufSize,GLsizei * length,GLchar * uniformBlockName)1336 _mesa_GetActiveUniformBlockName(GLuint program,
1337 GLuint uniformBlockIndex,
1338 GLsizei bufSize,
1339 GLsizei *length,
1340 GLchar *uniformBlockName)
1341 {
1342 GET_CURRENT_CONTEXT(ctx);
1343 struct gl_shader_program *shProg;
1344
1345 if (!ctx->Extensions.ARB_uniform_buffer_object) {
1346 _mesa_error(ctx, GL_INVALID_OPERATION, "glGetActiveUniformBlockiv");
1347 return;
1348 }
1349
1350 if (bufSize < 0) {
1351 _mesa_error(ctx, GL_INVALID_VALUE,
1352 "glGetActiveUniformBlockName(bufSize %d < 0)",
1353 bufSize);
1354 return;
1355 }
1356
1357 shProg = _mesa_lookup_shader_program_err(ctx, program,
1358 "glGetActiveUniformBlockiv");
1359 if (!shProg)
1360 return;
1361
1362 if (uniformBlockName)
1363 _mesa_get_program_resource_name(shProg, GL_UNIFORM_BLOCK,
1364 uniformBlockIndex, bufSize, length,
1365 uniformBlockName,
1366 "glGetActiveUniformBlockName");
1367 }
1368
1369 void GLAPIENTRY
_mesa_GetActiveUniformName(GLuint program,GLuint uniformIndex,GLsizei bufSize,GLsizei * length,GLchar * uniformName)1370 _mesa_GetActiveUniformName(GLuint program, GLuint uniformIndex,
1371 GLsizei bufSize, GLsizei *length,
1372 GLchar *uniformName)
1373 {
1374 GET_CURRENT_CONTEXT(ctx);
1375 struct gl_shader_program *shProg;
1376
1377 if (!ctx->Extensions.ARB_uniform_buffer_object) {
1378 _mesa_error(ctx, GL_INVALID_OPERATION, "glGetActiveUniformName");
1379 return;
1380 }
1381
1382 if (bufSize < 0) {
1383 _mesa_error(ctx, GL_INVALID_VALUE,
1384 "glGetActiveUniformName(bufSize %d < 0)",
1385 bufSize);
1386 return;
1387 }
1388
1389 shProg = _mesa_lookup_shader_program_err(ctx, program, "glGetActiveUniformName");
1390
1391 if (!shProg)
1392 return;
1393
1394 _mesa_get_program_resource_name(shProg, GL_UNIFORM, uniformIndex, bufSize,
1395 length, uniformName, "glGetActiveUniformName");
1396 }
1397
1398 void GLAPIENTRY
_mesa_GetActiveAtomicCounterBufferiv(GLuint program,GLuint bufferIndex,GLenum pname,GLint * params)1399 _mesa_GetActiveAtomicCounterBufferiv(GLuint program, GLuint bufferIndex,
1400 GLenum pname, GLint *params)
1401 {
1402 GET_CURRENT_CONTEXT(ctx);
1403 struct gl_shader_program *shProg;
1404
1405 if (!ctx->Extensions.ARB_shader_atomic_counters) {
1406 _mesa_error(ctx, GL_INVALID_OPERATION,
1407 "glGetActiveAtomicCounterBufferiv");
1408 return;
1409 }
1410
1411 shProg = _mesa_lookup_shader_program_err(ctx, program,
1412 "glGetActiveAtomicCounterBufferiv");
1413 if (!shProg)
1414 return;
1415
1416 mesa_bufferiv(shProg, GL_ATOMIC_COUNTER_BUFFER, bufferIndex, pname, params,
1417 "glGetActiveAtomicCounterBufferiv");
1418 }
1419
1420 void GLAPIENTRY
_mesa_Uniform1d(GLint location,GLdouble v0)1421 _mesa_Uniform1d(GLint location, GLdouble v0)
1422 {
1423 GET_CURRENT_CONTEXT(ctx);
1424 _mesa_uniform(location, 1, &v0, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_DOUBLE, 1);
1425 }
1426
1427 void GLAPIENTRY
_mesa_Uniform2d(GLint location,GLdouble v0,GLdouble v1)1428 _mesa_Uniform2d(GLint location, GLdouble v0, GLdouble v1)
1429 {
1430 GET_CURRENT_CONTEXT(ctx);
1431 GLdouble v[2];
1432 v[0] = v0;
1433 v[1] = v1;
1434 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_DOUBLE, 2);
1435 }
1436
1437 void GLAPIENTRY
_mesa_Uniform3d(GLint location,GLdouble v0,GLdouble v1,GLdouble v2)1438 _mesa_Uniform3d(GLint location, GLdouble v0, GLdouble v1, GLdouble v2)
1439 {
1440 GET_CURRENT_CONTEXT(ctx);
1441 GLdouble v[3];
1442 v[0] = v0;
1443 v[1] = v1;
1444 v[2] = v2;
1445 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_DOUBLE, 3);
1446 }
1447
1448 void GLAPIENTRY
_mesa_Uniform4d(GLint location,GLdouble v0,GLdouble v1,GLdouble v2,GLdouble v3)1449 _mesa_Uniform4d(GLint location, GLdouble v0, GLdouble v1, GLdouble v2,
1450 GLdouble v3)
1451 {
1452 GET_CURRENT_CONTEXT(ctx);
1453 GLdouble v[4];
1454 v[0] = v0;
1455 v[1] = v1;
1456 v[2] = v2;
1457 v[3] = v3;
1458 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_DOUBLE, 4);
1459 }
1460
1461 void GLAPIENTRY
_mesa_Uniform1dv(GLint location,GLsizei count,const GLdouble * value)1462 _mesa_Uniform1dv(GLint location, GLsizei count, const GLdouble * value)
1463 {
1464 GET_CURRENT_CONTEXT(ctx);
1465 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_DOUBLE, 1);
1466 }
1467
1468 void GLAPIENTRY
_mesa_Uniform2dv(GLint location,GLsizei count,const GLdouble * value)1469 _mesa_Uniform2dv(GLint location, GLsizei count, const GLdouble * value)
1470 {
1471 GET_CURRENT_CONTEXT(ctx);
1472 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_DOUBLE, 2);
1473 }
1474
1475 void GLAPIENTRY
_mesa_Uniform3dv(GLint location,GLsizei count,const GLdouble * value)1476 _mesa_Uniform3dv(GLint location, GLsizei count, const GLdouble * value)
1477 {
1478 GET_CURRENT_CONTEXT(ctx);
1479 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_DOUBLE, 3);
1480 }
1481
1482 void GLAPIENTRY
_mesa_Uniform4dv(GLint location,GLsizei count,const GLdouble * value)1483 _mesa_Uniform4dv(GLint location, GLsizei count, const GLdouble * value)
1484 {
1485 GET_CURRENT_CONTEXT(ctx);
1486 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_DOUBLE, 4);
1487 }
1488
1489 void GLAPIENTRY
_mesa_UniformMatrix2dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1490 _mesa_UniformMatrix2dv(GLint location, GLsizei count, GLboolean transpose,
1491 const GLdouble * value)
1492 {
1493 GET_CURRENT_CONTEXT(ctx);
1494 _mesa_uniform_matrix(location, count, transpose, value,
1495 ctx, ctx->_Shader->ActiveProgram, 2, 2, GLSL_TYPE_DOUBLE);
1496 }
1497
1498 void GLAPIENTRY
_mesa_UniformMatrix3dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1499 _mesa_UniformMatrix3dv(GLint location, GLsizei count, GLboolean transpose,
1500 const GLdouble * value)
1501 {
1502 GET_CURRENT_CONTEXT(ctx);
1503 _mesa_uniform_matrix(location, count, transpose, value,
1504 ctx, ctx->_Shader->ActiveProgram, 3, 3, GLSL_TYPE_DOUBLE);
1505 }
1506
1507 void GLAPIENTRY
_mesa_UniformMatrix4dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1508 _mesa_UniformMatrix4dv(GLint location, GLsizei count, GLboolean transpose,
1509 const GLdouble * value)
1510 {
1511 GET_CURRENT_CONTEXT(ctx);
1512 _mesa_uniform_matrix(location, count, transpose, value,
1513 ctx, ctx->_Shader->ActiveProgram, 4, 4, GLSL_TYPE_DOUBLE);
1514 }
1515
1516 void GLAPIENTRY
_mesa_UniformMatrix2x3dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1517 _mesa_UniformMatrix2x3dv(GLint location, GLsizei count, GLboolean transpose,
1518 const GLdouble *value)
1519 {
1520 GET_CURRENT_CONTEXT(ctx);
1521 _mesa_uniform_matrix(location, count, transpose, value,
1522 ctx, ctx->_Shader->ActiveProgram, 2, 3, GLSL_TYPE_DOUBLE);
1523 }
1524
1525 void GLAPIENTRY
_mesa_UniformMatrix3x2dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1526 _mesa_UniformMatrix3x2dv(GLint location, GLsizei count, GLboolean transpose,
1527 const GLdouble *value)
1528 {
1529 GET_CURRENT_CONTEXT(ctx);
1530 _mesa_uniform_matrix(location, count, transpose, value,
1531 ctx, ctx->_Shader->ActiveProgram, 3, 2, GLSL_TYPE_DOUBLE);
1532 }
1533
1534 void GLAPIENTRY
_mesa_UniformMatrix2x4dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1535 _mesa_UniformMatrix2x4dv(GLint location, GLsizei count, GLboolean transpose,
1536 const GLdouble *value)
1537 {
1538 GET_CURRENT_CONTEXT(ctx);
1539 _mesa_uniform_matrix(location, count, transpose, value,
1540 ctx, ctx->_Shader->ActiveProgram, 2, 4, GLSL_TYPE_DOUBLE);
1541 }
1542
1543 void GLAPIENTRY
_mesa_UniformMatrix4x2dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1544 _mesa_UniformMatrix4x2dv(GLint location, GLsizei count, GLboolean transpose,
1545 const GLdouble *value)
1546 {
1547 GET_CURRENT_CONTEXT(ctx);
1548 _mesa_uniform_matrix(location, count, transpose, value,
1549 ctx, ctx->_Shader->ActiveProgram, 4, 2, GLSL_TYPE_DOUBLE);
1550 }
1551
1552 void GLAPIENTRY
_mesa_UniformMatrix3x4dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1553 _mesa_UniformMatrix3x4dv(GLint location, GLsizei count, GLboolean transpose,
1554 const GLdouble *value)
1555 {
1556 GET_CURRENT_CONTEXT(ctx);
1557 _mesa_uniform_matrix(location, count, transpose, value,
1558 ctx, ctx->_Shader->ActiveProgram, 3, 4, GLSL_TYPE_DOUBLE);
1559 }
1560
1561 void GLAPIENTRY
_mesa_UniformMatrix4x3dv(GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1562 _mesa_UniformMatrix4x3dv(GLint location, GLsizei count, GLboolean transpose,
1563 const GLdouble *value)
1564 {
1565 GET_CURRENT_CONTEXT(ctx);
1566 _mesa_uniform_matrix(location, count, transpose, value,
1567 ctx, ctx->_Shader->ActiveProgram, 4, 3, GLSL_TYPE_DOUBLE);
1568 }
1569
1570 void GLAPIENTRY
_mesa_ProgramUniform1d(GLuint program,GLint location,GLdouble v0)1571 _mesa_ProgramUniform1d(GLuint program, GLint location, GLdouble v0)
1572 {
1573 GET_CURRENT_CONTEXT(ctx);
1574 struct gl_shader_program *shProg =
1575 _mesa_lookup_shader_program_err(ctx, program,
1576 "glProgramUniform1d");
1577 _mesa_uniform(location, 1, &v0, ctx, shProg, GLSL_TYPE_DOUBLE, 1);
1578 }
1579
1580 void GLAPIENTRY
_mesa_ProgramUniform2d(GLuint program,GLint location,GLdouble v0,GLdouble v1)1581 _mesa_ProgramUniform2d(GLuint program, GLint location, GLdouble v0, GLdouble v1)
1582 {
1583 GET_CURRENT_CONTEXT(ctx);
1584 GLdouble v[2];
1585 struct gl_shader_program *shProg;
1586 v[0] = v0;
1587 v[1] = v1;
1588 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform2d");
1589 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_DOUBLE, 2);
1590 }
1591
1592 void GLAPIENTRY
_mesa_ProgramUniform3d(GLuint program,GLint location,GLdouble v0,GLdouble v1,GLdouble v2)1593 _mesa_ProgramUniform3d(GLuint program, GLint location, GLdouble v0, GLdouble v1,
1594 GLdouble v2)
1595 {
1596 GET_CURRENT_CONTEXT(ctx);
1597 GLdouble v[3];
1598 struct gl_shader_program *shProg;
1599 v[0] = v0;
1600 v[1] = v1;
1601 v[2] = v2;
1602 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform3d");
1603 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_DOUBLE, 3);
1604 }
1605
1606 void GLAPIENTRY
_mesa_ProgramUniform4d(GLuint program,GLint location,GLdouble v0,GLdouble v1,GLdouble v2,GLdouble v3)1607 _mesa_ProgramUniform4d(GLuint program, GLint location, GLdouble v0, GLdouble v1,
1608 GLdouble v2, GLdouble v3)
1609 {
1610 GET_CURRENT_CONTEXT(ctx);
1611 GLdouble v[4];
1612 struct gl_shader_program *shProg;
1613 v[0] = v0;
1614 v[1] = v1;
1615 v[2] = v2;
1616 v[3] = v3;
1617 shProg = _mesa_lookup_shader_program_err(ctx, program, "glProgramUniform4d");
1618 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_DOUBLE, 4);
1619 }
1620
1621 void GLAPIENTRY
_mesa_ProgramUniform1dv(GLuint program,GLint location,GLsizei count,const GLdouble * value)1622 _mesa_ProgramUniform1dv(GLuint program, GLint location, GLsizei count,
1623 const GLdouble * value)
1624 {
1625 GET_CURRENT_CONTEXT(ctx);
1626 struct gl_shader_program *shProg =
1627 _mesa_lookup_shader_program_err(ctx, program,
1628 "glProgramUniform1dv");
1629 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_DOUBLE, 1);
1630 }
1631
1632 void GLAPIENTRY
_mesa_ProgramUniform2dv(GLuint program,GLint location,GLsizei count,const GLdouble * value)1633 _mesa_ProgramUniform2dv(GLuint program, GLint location, GLsizei count,
1634 const GLdouble * value)
1635 {
1636 GET_CURRENT_CONTEXT(ctx);
1637 struct gl_shader_program *shProg =
1638 _mesa_lookup_shader_program_err(ctx, program,
1639 "glProgramUniform2dv");
1640 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_DOUBLE, 2);
1641 }
1642
1643 void GLAPIENTRY
_mesa_ProgramUniform3dv(GLuint program,GLint location,GLsizei count,const GLdouble * value)1644 _mesa_ProgramUniform3dv(GLuint program, GLint location, GLsizei count,
1645 const GLdouble * value)
1646 {
1647 GET_CURRENT_CONTEXT(ctx);
1648 struct gl_shader_program *shProg =
1649 _mesa_lookup_shader_program_err(ctx, program,
1650 "glProgramUniform3dv");
1651 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_DOUBLE, 3);
1652 }
1653
1654 void GLAPIENTRY
_mesa_ProgramUniform4dv(GLuint program,GLint location,GLsizei count,const GLdouble * value)1655 _mesa_ProgramUniform4dv(GLuint program, GLint location, GLsizei count,
1656 const GLdouble * value)
1657 {
1658 GET_CURRENT_CONTEXT(ctx);
1659 struct gl_shader_program *shProg =
1660 _mesa_lookup_shader_program_err(ctx, program,
1661 "glProgramUniform4dv");
1662 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_DOUBLE, 4);
1663 }
1664
1665 void GLAPIENTRY
_mesa_ProgramUniformMatrix2dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1666 _mesa_ProgramUniformMatrix2dv(GLuint program, GLint location, GLsizei count,
1667 GLboolean transpose, const GLdouble * value)
1668 {
1669 GET_CURRENT_CONTEXT(ctx);
1670 struct gl_shader_program *shProg =
1671 _mesa_lookup_shader_program_err(ctx, program,
1672 "glProgramUniformMatrix2dv");
1673 _mesa_uniform_matrix(location, count, transpose, value,
1674 ctx, shProg, 2, 2, GLSL_TYPE_DOUBLE);
1675 }
1676
1677 void GLAPIENTRY
_mesa_ProgramUniformMatrix3dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1678 _mesa_ProgramUniformMatrix3dv(GLuint program, GLint location, GLsizei count,
1679 GLboolean transpose, const GLdouble * value)
1680 {
1681 GET_CURRENT_CONTEXT(ctx);
1682 struct gl_shader_program *shProg =
1683 _mesa_lookup_shader_program_err(ctx, program,
1684 "glProgramUniformMatrix3dv");
1685 _mesa_uniform_matrix(location, count, transpose, value,
1686 ctx, shProg, 3, 3, GLSL_TYPE_DOUBLE);
1687 }
1688
1689 void GLAPIENTRY
_mesa_ProgramUniformMatrix4dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1690 _mesa_ProgramUniformMatrix4dv(GLuint program, GLint location, GLsizei count,
1691 GLboolean transpose, const GLdouble * value)
1692 {
1693 GET_CURRENT_CONTEXT(ctx);
1694 struct gl_shader_program *shProg =
1695 _mesa_lookup_shader_program_err(ctx, program,
1696 "glProgramUniformMatrix4dv");
1697 _mesa_uniform_matrix(location, count, transpose, value,
1698 ctx, shProg, 4, 4, GLSL_TYPE_DOUBLE);
1699 }
1700
1701 void GLAPIENTRY
_mesa_ProgramUniformMatrix2x3dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1702 _mesa_ProgramUniformMatrix2x3dv(GLuint program, GLint location, GLsizei count,
1703 GLboolean transpose, const GLdouble * value)
1704 {
1705 GET_CURRENT_CONTEXT(ctx);
1706 struct gl_shader_program *shProg =
1707 _mesa_lookup_shader_program_err(ctx, program,
1708 "glProgramUniformMatrix2x3dv");
1709 _mesa_uniform_matrix(location, count, transpose, value,
1710 ctx, shProg, 2, 3, GLSL_TYPE_DOUBLE);
1711 }
1712
1713 void GLAPIENTRY
_mesa_ProgramUniformMatrix3x2dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1714 _mesa_ProgramUniformMatrix3x2dv(GLuint program, GLint location, GLsizei count,
1715 GLboolean transpose, const GLdouble * value)
1716 {
1717 GET_CURRENT_CONTEXT(ctx);
1718 struct gl_shader_program *shProg =
1719 _mesa_lookup_shader_program_err(ctx, program,
1720 "glProgramUniformMatrix3x2dv");
1721 _mesa_uniform_matrix(location, count, transpose, value,
1722 ctx, shProg, 3, 2, GLSL_TYPE_DOUBLE);
1723 }
1724
1725 void GLAPIENTRY
_mesa_ProgramUniformMatrix2x4dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1726 _mesa_ProgramUniformMatrix2x4dv(GLuint program, GLint location, GLsizei count,
1727 GLboolean transpose, const GLdouble * value)
1728 {
1729 GET_CURRENT_CONTEXT(ctx);
1730 struct gl_shader_program *shProg =
1731 _mesa_lookup_shader_program_err(ctx, program,
1732 "glProgramUniformMatrix2x4dv");
1733 _mesa_uniform_matrix(location, count, transpose, value,
1734 ctx, shProg, 2, 4, GLSL_TYPE_DOUBLE);
1735 }
1736
1737 void GLAPIENTRY
_mesa_ProgramUniformMatrix4x2dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1738 _mesa_ProgramUniformMatrix4x2dv(GLuint program, GLint location, GLsizei count,
1739 GLboolean transpose, const GLdouble * value)
1740 {
1741 GET_CURRENT_CONTEXT(ctx);
1742 struct gl_shader_program *shProg =
1743 _mesa_lookup_shader_program_err(ctx, program,
1744 "glProgramUniformMatrix4x2dv");
1745 _mesa_uniform_matrix(location, count, transpose, value,
1746 ctx, shProg, 4, 2, GLSL_TYPE_DOUBLE);
1747 }
1748
1749 void GLAPIENTRY
_mesa_ProgramUniformMatrix3x4dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1750 _mesa_ProgramUniformMatrix3x4dv(GLuint program, GLint location, GLsizei count,
1751 GLboolean transpose, const GLdouble * value)
1752 {
1753 GET_CURRENT_CONTEXT(ctx);
1754 struct gl_shader_program *shProg =
1755 _mesa_lookup_shader_program_err(ctx, program,
1756 "glProgramUniformMatrix3x4dv");
1757 _mesa_uniform_matrix(location, count, transpose, value,
1758 ctx, shProg, 3, 4, GLSL_TYPE_DOUBLE);
1759 }
1760
1761 void GLAPIENTRY
_mesa_ProgramUniformMatrix4x3dv(GLuint program,GLint location,GLsizei count,GLboolean transpose,const GLdouble * value)1762 _mesa_ProgramUniformMatrix4x3dv(GLuint program, GLint location, GLsizei count,
1763 GLboolean transpose, const GLdouble * value)
1764 {
1765 GET_CURRENT_CONTEXT(ctx);
1766 struct gl_shader_program *shProg =
1767 _mesa_lookup_shader_program_err(ctx, program,
1768 "glProgramUniformMatrix4x3dv");
1769 _mesa_uniform_matrix(location, count, transpose, value,
1770 ctx, shProg, 4, 3, GLSL_TYPE_DOUBLE);
1771 }
1772
1773 void GLAPIENTRY
_mesa_Uniform1i64ARB(GLint location,GLint64 v0)1774 _mesa_Uniform1i64ARB(GLint location, GLint64 v0)
1775 {
1776 GET_CURRENT_CONTEXT(ctx);
1777 _mesa_uniform(location, 1, &v0, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT64, 1);
1778 }
1779
1780 void GLAPIENTRY
_mesa_Uniform2i64ARB(GLint location,GLint64 v0,GLint64 v1)1781 _mesa_Uniform2i64ARB(GLint location, GLint64 v0, GLint64 v1)
1782 {
1783 GET_CURRENT_CONTEXT(ctx);
1784 int64_t v[2];
1785 v[0] = v0;
1786 v[1] = v1;
1787 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT64, 2);
1788 }
1789
1790 void GLAPIENTRY
_mesa_Uniform3i64ARB(GLint location,GLint64 v0,GLint64 v1,GLint64 v2)1791 _mesa_Uniform3i64ARB(GLint location, GLint64 v0, GLint64 v1, GLint64 v2)
1792 {
1793 GET_CURRENT_CONTEXT(ctx);
1794 int64_t v[3];
1795 v[0] = v0;
1796 v[1] = v1;
1797 v[2] = v2;
1798 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT64, 3);
1799 }
1800
1801 void GLAPIENTRY
_mesa_Uniform4i64ARB(GLint location,GLint64 v0,GLint64 v1,GLint64 v2,GLint64 v3)1802 _mesa_Uniform4i64ARB(GLint location, GLint64 v0, GLint64 v1, GLint64 v2, GLint64 v3)
1803 {
1804 GET_CURRENT_CONTEXT(ctx);
1805 int64_t v[4];
1806 v[0] = v0;
1807 v[1] = v1;
1808 v[2] = v2;
1809 v[3] = v3;
1810 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT64, 4);
1811 }
1812
1813 void GLAPIENTRY
_mesa_Uniform1i64vARB(GLint location,GLsizei count,const GLint64 * value)1814 _mesa_Uniform1i64vARB(GLint location, GLsizei count, const GLint64 *value)
1815 {
1816 GET_CURRENT_CONTEXT(ctx);
1817 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT64, 1);
1818 }
1819
1820 void GLAPIENTRY
_mesa_Uniform2i64vARB(GLint location,GLsizei count,const GLint64 * value)1821 _mesa_Uniform2i64vARB(GLint location, GLsizei count, const GLint64 *value)
1822 {
1823 GET_CURRENT_CONTEXT(ctx);
1824 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT64, 2);
1825 }
1826
1827 void GLAPIENTRY
_mesa_Uniform3i64vARB(GLint location,GLsizei count,const GLint64 * value)1828 _mesa_Uniform3i64vARB(GLint location, GLsizei count, const GLint64 *value)
1829 {
1830 GET_CURRENT_CONTEXT(ctx);
1831 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT64, 3);
1832 }
1833
1834 void GLAPIENTRY
_mesa_Uniform4i64vARB(GLint location,GLsizei count,const GLint64 * value)1835 _mesa_Uniform4i64vARB(GLint location, GLsizei count, const GLint64 *value)
1836 {
1837 GET_CURRENT_CONTEXT(ctx);
1838 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_INT64, 4);
1839 }
1840
1841 void GLAPIENTRY
_mesa_Uniform1ui64ARB(GLint location,GLuint64 v0)1842 _mesa_Uniform1ui64ARB(GLint location, GLuint64 v0)
1843 {
1844 GET_CURRENT_CONTEXT(ctx);
1845 _mesa_uniform(location, 1, &v0, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT64, 1);
1846 }
1847
1848 void GLAPIENTRY
_mesa_Uniform2ui64ARB(GLint location,GLuint64 v0,GLuint64 v1)1849 _mesa_Uniform2ui64ARB(GLint location, GLuint64 v0, GLuint64 v1)
1850 {
1851 GET_CURRENT_CONTEXT(ctx);
1852 uint64_t v[2];
1853 v[0] = v0;
1854 v[1] = v1;
1855 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT64, 2);
1856 }
1857
1858 void GLAPIENTRY
_mesa_Uniform3ui64ARB(GLint location,GLuint64 v0,GLuint64 v1,GLuint64 v2)1859 _mesa_Uniform3ui64ARB(GLint location, GLuint64 v0, GLuint64 v1, GLuint64 v2)
1860 {
1861 GET_CURRENT_CONTEXT(ctx);
1862 uint64_t v[3];
1863 v[0] = v0;
1864 v[1] = v1;
1865 v[2] = v2;
1866 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT64, 3);
1867 }
1868
1869 void GLAPIENTRY
_mesa_Uniform4ui64ARB(GLint location,GLuint64 v0,GLuint64 v1,GLuint64 v2,GLuint64 v3)1870 _mesa_Uniform4ui64ARB(GLint location, GLuint64 v0, GLuint64 v1, GLuint64 v2, GLuint64 v3)
1871 {
1872 GET_CURRENT_CONTEXT(ctx);
1873 uint64_t v[4];
1874 v[0] = v0;
1875 v[1] = v1;
1876 v[2] = v2;
1877 v[3] = v3;
1878 _mesa_uniform(location, 1, v, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT64, 4);
1879 }
1880
1881 void GLAPIENTRY
_mesa_Uniform1ui64vARB(GLint location,GLsizei count,const GLuint64 * value)1882 _mesa_Uniform1ui64vARB(GLint location, GLsizei count, const GLuint64 *value)
1883 {
1884 GET_CURRENT_CONTEXT(ctx);
1885 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT64, 1);
1886 }
1887
1888 void GLAPIENTRY
_mesa_Uniform2ui64vARB(GLint location,GLsizei count,const GLuint64 * value)1889 _mesa_Uniform2ui64vARB(GLint location, GLsizei count, const GLuint64 *value)
1890 {
1891 GET_CURRENT_CONTEXT(ctx);
1892 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT64, 2);
1893 }
1894
1895 void GLAPIENTRY
_mesa_Uniform3ui64vARB(GLint location,GLsizei count,const GLuint64 * value)1896 _mesa_Uniform3ui64vARB(GLint location, GLsizei count, const GLuint64 *value)
1897 {
1898 GET_CURRENT_CONTEXT(ctx);
1899 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT64, 3);
1900 }
1901
1902 void GLAPIENTRY
_mesa_Uniform4ui64vARB(GLint location,GLsizei count,const GLuint64 * value)1903 _mesa_Uniform4ui64vARB(GLint location, GLsizei count, const GLuint64 *value)
1904 {
1905 GET_CURRENT_CONTEXT(ctx);
1906 _mesa_uniform(location, count, value, ctx, ctx->_Shader->ActiveProgram, GLSL_TYPE_UINT64, 4);
1907 }
1908
1909 /* DSA entrypoints */
1910 void GLAPIENTRY
_mesa_ProgramUniform1i64ARB(GLuint program,GLint location,GLint64 v0)1911 _mesa_ProgramUniform1i64ARB(GLuint program, GLint location, GLint64 v0)
1912 {
1913 GET_CURRENT_CONTEXT(ctx);
1914 struct gl_shader_program *shProg =
1915 _mesa_lookup_shader_program_err(ctx, program,
1916 "glProgramUniform1i64ARB");
1917 _mesa_uniform(location, 1, &v0, ctx, shProg, GLSL_TYPE_INT64, 1);
1918 }
1919
1920 void GLAPIENTRY
_mesa_ProgramUniform2i64ARB(GLuint program,GLint location,GLint64 v0,GLint64 v1)1921 _mesa_ProgramUniform2i64ARB(GLuint program, GLint location, GLint64 v0, GLint64 v1)
1922 {
1923 GET_CURRENT_CONTEXT(ctx);
1924 struct gl_shader_program *shProg =
1925 _mesa_lookup_shader_program_err(ctx, program,
1926 "glProgramUniform2i64ARB");
1927 int64_t v[2];
1928 v[0] = v0;
1929 v[1] = v1;
1930 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_INT64, 2);
1931 }
1932
1933 void GLAPIENTRY
_mesa_ProgramUniform3i64ARB(GLuint program,GLint location,GLint64 v0,GLint64 v1,GLint64 v2)1934 _mesa_ProgramUniform3i64ARB(GLuint program, GLint location, GLint64 v0, GLint64 v1, GLint64 v2)
1935 {
1936 GET_CURRENT_CONTEXT(ctx);
1937 struct gl_shader_program *shProg =
1938 _mesa_lookup_shader_program_err(ctx, program,
1939 "glProgramUniform3i64ARB");
1940 int64_t v[3];
1941 v[0] = v0;
1942 v[1] = v1;
1943 v[2] = v2;
1944 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_INT64, 3);
1945 }
1946
1947 void GLAPIENTRY
_mesa_ProgramUniform4i64ARB(GLuint program,GLint location,GLint64 v0,GLint64 v1,GLint64 v2,GLint64 v3)1948 _mesa_ProgramUniform4i64ARB(GLuint program, GLint location, GLint64 v0, GLint64 v1, GLint64 v2, GLint64 v3)
1949 {
1950 GET_CURRENT_CONTEXT(ctx);
1951 struct gl_shader_program *shProg =
1952 _mesa_lookup_shader_program_err(ctx, program,
1953 "glProgramUniform4i64ARB");
1954 int64_t v[4];
1955 v[0] = v0;
1956 v[1] = v1;
1957 v[2] = v2;
1958 v[3] = v3;
1959 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_INT64, 4);
1960 }
1961
1962 void GLAPIENTRY
_mesa_ProgramUniform1i64vARB(GLuint program,GLint location,GLsizei count,const GLint64 * value)1963 _mesa_ProgramUniform1i64vARB(GLuint program, GLint location, GLsizei count, const GLint64 *value)
1964 {
1965 GET_CURRENT_CONTEXT(ctx);
1966 struct gl_shader_program *shProg =
1967 _mesa_lookup_shader_program_err(ctx, program,
1968 "glProgramUniform1i64vARB");
1969 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_INT64, 1);
1970 }
1971
1972 void GLAPIENTRY
_mesa_ProgramUniform2i64vARB(GLuint program,GLint location,GLsizei count,const GLint64 * value)1973 _mesa_ProgramUniform2i64vARB(GLuint program, GLint location, GLsizei count, const GLint64 *value)
1974 {
1975 GET_CURRENT_CONTEXT(ctx);
1976 struct gl_shader_program *shProg =
1977 _mesa_lookup_shader_program_err(ctx, program,
1978 "glProgramUniform2i64vARB");
1979 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_INT64, 2);
1980 }
1981
1982 void GLAPIENTRY
_mesa_ProgramUniform3i64vARB(GLuint program,GLint location,GLsizei count,const GLint64 * value)1983 _mesa_ProgramUniform3i64vARB(GLuint program, GLint location, GLsizei count, const GLint64 *value)
1984 {
1985 GET_CURRENT_CONTEXT(ctx);
1986 struct gl_shader_program *shProg =
1987 _mesa_lookup_shader_program_err(ctx, program,
1988 "glProgramUniform3i64vARB");
1989 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_INT64, 3);
1990 }
1991
1992 void GLAPIENTRY
_mesa_ProgramUniform4i64vARB(GLuint program,GLint location,GLsizei count,const GLint64 * value)1993 _mesa_ProgramUniform4i64vARB(GLuint program, GLint location, GLsizei count, const GLint64 *value)
1994 {
1995 GET_CURRENT_CONTEXT(ctx);
1996 struct gl_shader_program *shProg =
1997 _mesa_lookup_shader_program_err(ctx, program,
1998 "glProgramUniform4i64vARB");
1999 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_INT64, 4);
2000 }
2001
2002 void GLAPIENTRY
_mesa_ProgramUniform1ui64ARB(GLuint program,GLint location,GLuint64 v0)2003 _mesa_ProgramUniform1ui64ARB(GLuint program, GLint location, GLuint64 v0)
2004 {
2005 GET_CURRENT_CONTEXT(ctx);
2006 struct gl_shader_program *shProg =
2007 _mesa_lookup_shader_program_err(ctx, program,
2008 "glProgramUniform1ui64ARB");
2009 _mesa_uniform(location, 1, &v0, ctx, shProg, GLSL_TYPE_UINT64, 1);
2010 }
2011
2012 void GLAPIENTRY
_mesa_ProgramUniform2ui64ARB(GLuint program,GLint location,GLuint64 v0,GLuint64 v1)2013 _mesa_ProgramUniform2ui64ARB(GLuint program, GLint location, GLuint64 v0, GLuint64 v1)
2014 {
2015 GET_CURRENT_CONTEXT(ctx);
2016 struct gl_shader_program *shProg =
2017 _mesa_lookup_shader_program_err(ctx, program,
2018 "glProgramUniform2ui64ARB");
2019 uint64_t v[2];
2020 v[0] = v0;
2021 v[1] = v1;
2022 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_UINT64, 2);
2023 }
2024
2025 void GLAPIENTRY
_mesa_ProgramUniform3ui64ARB(GLuint program,GLint location,GLuint64 v0,GLuint64 v1,GLuint64 v2)2026 _mesa_ProgramUniform3ui64ARB(GLuint program, GLint location, GLuint64 v0, GLuint64 v1, GLuint64 v2)
2027 {
2028 GET_CURRENT_CONTEXT(ctx);
2029 struct gl_shader_program *shProg =
2030 _mesa_lookup_shader_program_err(ctx, program,
2031 "glProgramUniform3ui64ARB");
2032 uint64_t v[3];
2033 v[0] = v0;
2034 v[1] = v1;
2035 v[2] = v2;
2036 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_UINT64, 3);
2037 }
2038
2039 void GLAPIENTRY
_mesa_ProgramUniform4ui64ARB(GLuint program,GLint location,GLuint64 v0,GLuint64 v1,GLuint64 v2,GLuint64 v3)2040 _mesa_ProgramUniform4ui64ARB(GLuint program, GLint location, GLuint64 v0, GLuint64 v1, GLuint64 v2, GLuint64 v3)
2041 {
2042 GET_CURRENT_CONTEXT(ctx);
2043 struct gl_shader_program *shProg =
2044 _mesa_lookup_shader_program_err(ctx, program,
2045 "glProgramUniform4ui64ARB");
2046 uint64_t v[4];
2047 v[0] = v0;
2048 v[1] = v1;
2049 v[2] = v2;
2050 v[3] = v3;
2051 _mesa_uniform(location, 1, v, ctx, shProg, GLSL_TYPE_UINT64, 4);
2052 }
2053
2054 void GLAPIENTRY
_mesa_ProgramUniform1ui64vARB(GLuint program,GLint location,GLsizei count,const GLuint64 * value)2055 _mesa_ProgramUniform1ui64vARB(GLuint program, GLint location, GLsizei count, const GLuint64 *value)
2056 {
2057 GET_CURRENT_CONTEXT(ctx);
2058 struct gl_shader_program *shProg =
2059 _mesa_lookup_shader_program_err(ctx, program,
2060 "glProgramUniform1ui64vARB");
2061 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_UINT64, 1);
2062 }
2063
2064 void GLAPIENTRY
_mesa_ProgramUniform2ui64vARB(GLuint program,GLint location,GLsizei count,const GLuint64 * value)2065 _mesa_ProgramUniform2ui64vARB(GLuint program, GLint location, GLsizei count, const GLuint64 *value)
2066 {
2067 GET_CURRENT_CONTEXT(ctx);
2068 struct gl_shader_program *shProg =
2069 _mesa_lookup_shader_program_err(ctx, program,
2070 "glProgramUniform2ui64vARB");
2071 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_UINT64, 2);
2072 }
2073
2074 void GLAPIENTRY
_mesa_ProgramUniform3ui64vARB(GLuint program,GLint location,GLsizei count,const GLuint64 * value)2075 _mesa_ProgramUniform3ui64vARB(GLuint program, GLint location, GLsizei count, const GLuint64 *value)
2076 {
2077 GET_CURRENT_CONTEXT(ctx);
2078 struct gl_shader_program *shProg =
2079 _mesa_lookup_shader_program_err(ctx, program,
2080 "glProgramUniform3ui64vARB");
2081 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_UINT64, 3);
2082 }
2083
2084 void GLAPIENTRY
_mesa_ProgramUniform4ui64vARB(GLuint program,GLint location,GLsizei count,const GLuint64 * value)2085 _mesa_ProgramUniform4ui64vARB(GLuint program, GLint location, GLsizei count, const GLuint64 *value)
2086 {
2087 GET_CURRENT_CONTEXT(ctx);
2088 struct gl_shader_program *shProg =
2089 _mesa_lookup_shader_program_err(ctx, program,
2090 "glProgramUniform4ui64vARB");
2091 _mesa_uniform(location, count, value, ctx, shProg, GLSL_TYPE_UINT64, 4);
2092 }
2093