1 #include <msp/core/algorithm.h>
2 #include <msp/core/maputils.h>
3 #include <msp/debug/demangle.h>
4 #include <msp/gl/extensions/arb_direct_state_access.h>
5 #include <msp/io/print.h>
11 #include "programdata.h"
13 #include "uniformblock.h"
21 ProgramData::ProgramData(const Program *p):
28 // Blocks are intentionally left uncopied
29 ProgramData::ProgramData(const ProgramData &other):
30 tied_program(other.tied_program),
31 uniforms(other.uniforms),
36 for(vector<TaggedUniform>::iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
37 i->value = i->value->clone();
40 ProgramData::ProgramData(const ProgramData &other, const Program *p):
48 for(vector<TaggedUniform>::const_iterator i=other.uniforms.begin(); i!=other.uniforms.end(); ++i)
52 uniforms = other.uniforms;
53 for(vector<TaggedUniform>::iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
54 i->value = i->value->clone();
57 ProgramData &ProgramData::operator=(const ProgramData &other)
59 tied_program = other.tied_program;
61 uniforms = other.uniforms;
62 for(vector<TaggedUniform>::iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
63 i->value = i->value->clone();
65 for(vector<SharedBlock>::iterator i=blocks.begin(); i!=blocks.end(); ++i)
69 last_buffer_block = 0;
76 ProgramData::~ProgramData()
78 for(vector<TaggedUniform>::iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
80 for(vector<SharedBlock>::iterator i=blocks.begin(); i!=blocks.end(); ++i)
82 if(i->indices.type_flag==0xFE)
83 delete[] i->indices.dynamic.values;
89 void ProgramData::uniform(Tag tag, Uniform *uni)
93 if(!validate_tag(tag))
105 int i = find_uniform_index(tag);
107 return add_uniform(tag, uni);
109 uniforms[i].replace_value(uni);
113 template<typename T, typename V>
114 void ProgramData::uniform(Tag tag, V value)
116 if(!validate_tag(tag))
119 int i = find_uniform_index(tag);
121 return add_uniform(tag, new T(value));
123 if(T *uni = dynamic_cast<T *>(uniforms[i].value))
126 uniforms[i].replace_value(new T(value));
131 template<typename T, typename V>
132 void ProgramData::uniform_array(Tag tag, unsigned n, V value)
134 if(!validate_tag(tag))
137 int i = find_uniform_index(tag);
139 return add_uniform(tag, new UniformArray<T>(n, value));
141 UniformArray<T> *uni = dynamic_cast<UniformArray<T> *>(uniforms[i].value);
142 if(uni && n==uni->size())
145 uniforms[i].replace_value(new UniformArray<T>(n, value));
150 bool ProgramData::validate_tag(Tag tag) const
158 const Program::UniformInfo &info = tied_program->get_uniform_info(tag);
159 if(is_image(info.type))
160 throw invalid_operation("ProgramData::uniform");
165 catch(const exception &e)
167 IO::print(IO::cerr, "Error while setting uniform %s: %s: %s\n", tag, Debug::demangle(typeid(e).name()), e.what());
173 void ProgramData::add_uniform(Tag tag, Uniform *uni)
175 if(uniforms.size()>=MASK_BITS)
178 throw too_many_uniforms(tag.str());
181 vector<TaggedUniform>::iterator j = lower_bound_member(uniforms, tag, &TaggedUniform::tag);
186 uniforms.insert(j, nu);
191 void ProgramData::uniform(Tag tag, const Uniform &u)
193 uniform(tag, u.clone());
196 void ProgramData::uniform(Tag tag, int v)
198 uniform<Uniform1i>(tag, v);
201 void ProgramData::uniform(Tag tag, float v)
203 uniform<Uniform1f>(tag, v);
206 void ProgramData::uniform(Tag tag, int v0, int v1)
208 int va[2] = { v0, v1 };
212 void ProgramData::uniform(Tag tag, float v0, float v1)
214 float va[2] = { v0, v1 };
218 void ProgramData::uniform2(Tag tag, const int *v)
220 uniform<Uniform2i>(tag, v);
223 void ProgramData::uniform2(Tag tag, const float *v)
225 uniform<Uniform2f>(tag, v);
228 void ProgramData::uniform(Tag tag, int v0, int v1, int v2)
230 int va[3] = { v0, v1, v2 };
234 void ProgramData::uniform(Tag tag, float v0, float v1, float v2)
236 float va[3] = { v0, v1, v2 };
240 void ProgramData::uniform3(Tag tag, const int *v)
242 uniform<Uniform3i>(tag, v);
245 void ProgramData::uniform3(Tag tag, const float *v)
247 uniform<Uniform3f>(tag, v);
250 void ProgramData::uniform(Tag tag, int v0, int v1, int v2, int v3)
252 int va[4] = { v0, v1, v2, v3 };
256 void ProgramData::uniform(Tag tag, float v0, float v1, float v2, float v3)
258 float va[4] = { v0, v1, v2, v3 };
262 void ProgramData::uniform(Tag tag, const Color &c)
264 uniform(tag, c.r, c.g, c.b, c.a);
267 void ProgramData::uniform4(Tag tag, const int *v)
269 uniform<Uniform4i>(tag, v);
272 void ProgramData::uniform4(Tag tag, const float *v)
274 uniform<Uniform4f>(tag, v);
277 void ProgramData::uniform_matrix2(Tag tag, const float *v)
279 uniform<UniformMatrix2x2f>(tag, v);
282 void ProgramData::uniform_matrix3x2(Tag tag, const float *v)
284 uniform<UniformMatrix3x2f>(tag, v);
287 void ProgramData::uniform_matrix4x2(Tag tag, const float *v)
289 uniform<UniformMatrix4x2f>(tag, v);
292 void ProgramData::uniform_matrix2x3(Tag tag, const float *v)
294 uniform<UniformMatrix2x3f>(tag, v);
297 void ProgramData::uniform_matrix3(Tag tag, const float *v)
299 uniform<UniformMatrix3x3f>(tag, v);
302 void ProgramData::uniform_matrix4x3(Tag tag, const float *v)
304 uniform<UniformMatrix4x3f>(tag, v);
307 void ProgramData::uniform_matrix2x4(Tag tag, const float *v)
309 uniform<UniformMatrix2x4f>(tag, v);
312 void ProgramData::uniform_matrix3x4(Tag tag, const float *v)
314 uniform<UniformMatrix3x4f>(tag, v);
317 void ProgramData::uniform(Tag tag, const Matrix &m)
319 uniform_matrix4(tag, m.data());
322 void ProgramData::uniform_matrix4(Tag tag, const float *v)
324 uniform<UniformMatrix4x4f>(tag, v);
327 void ProgramData::uniform_array(Tag tag, unsigned n, const int *v)
329 uniform_array<Uniform1i>(tag, n, v);
332 void ProgramData::uniform_array(Tag tag, unsigned n, const float *v)
334 uniform_array<Uniform1f>(tag, n, v);
337 void ProgramData::uniform1_array(Tag tag, unsigned n, const int *v)
339 uniform_array<Uniform1i>(tag, n, v);
342 void ProgramData::uniform1_array(Tag tag, unsigned n, const float *v)
344 uniform_array<Uniform1f>(tag, n, v);
347 void ProgramData::uniform2_array(Tag tag, unsigned n, const int *v)
349 uniform_array<Uniform2i>(tag, n, v);
352 void ProgramData::uniform2_array(Tag tag, unsigned n, const float *v)
354 uniform_array<Uniform2f>(tag, n, v);
357 void ProgramData::uniform3_array(Tag tag, unsigned n, const int *v)
359 uniform_array<Uniform3i>(tag, n, v);
362 void ProgramData::uniform3_array(Tag tag, unsigned n, const float *v)
364 uniform_array<Uniform3f>(tag, n, v);
367 void ProgramData::uniform4_array(Tag tag, unsigned n, const int *v)
369 uniform_array<Uniform4i>(tag, n, v);
372 void ProgramData::uniform4_array(Tag tag, unsigned n, const float *v)
374 uniform_array<Uniform4f>(tag, n, v);
377 void ProgramData::uniform_matrix2_array(Tag tag, unsigned n, const float *v)
379 uniform_array<UniformMatrix2x2f>(tag, n, v);
382 void ProgramData::uniform_matrix3x2_array(Tag tag, unsigned n, const float *v)
384 uniform_array<UniformMatrix3x2f>(tag, n, v);
387 void ProgramData::uniform_matrix4x2_array(Tag tag, unsigned n, const float *v)
389 uniform_array<UniformMatrix4x2f>(tag, n, v);
392 void ProgramData::uniform_matrix2x3_array(Tag tag, unsigned n, const float *v)
394 uniform_array<UniformMatrix2x3f>(tag, n, v);
397 void ProgramData::uniform_matrix3_array(Tag tag, unsigned n, const float *v)
399 uniform_array<UniformMatrix3x3f>(tag, n, v);
402 void ProgramData::uniform_matrix4x3_array(Tag tag, unsigned n, const float *v)
404 uniform_array<UniformMatrix4x3f>(tag, n, v);
407 void ProgramData::uniform_matrix2x4_array(Tag tag, unsigned n, const float *v)
409 uniform_array<UniformMatrix2x4f>(tag, n, v);
412 void ProgramData::uniform_matrix3x4_array(Tag tag, unsigned n, const float *v)
414 uniform_array<UniformMatrix3x4f>(tag, n, v);
417 void ProgramData::uniform_matrix4_array(Tag tag, unsigned n, const float *v)
419 uniform_array<UniformMatrix4x4f>(tag, n, v);
422 void ProgramData::remove_uniform(Tag tag)
424 vector<TaggedUniform>::const_iterator i = lower_bound_member(uniforms, tag, &TaggedUniform::tag);
425 if(i==uniforms.end() || i->tag!=tag)
434 vector<Tag> ProgramData::get_uniform_tags() const
437 tags.reserve(uniforms.size());
438 for(vector<TaggedUniform>::const_iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
439 tags.push_back(i->tag);
443 const Uniform &ProgramData::get_uniform(Tag tag) const
445 int i = find_uniform_index(tag);
447 throw key_error(tag);
448 return *uniforms[i].value;
451 const Uniform *ProgramData::find_uniform(Tag tag) const
453 int i = find_uniform_index(tag);
454 return (i>=0 ? uniforms[i].value : 0);
457 int ProgramData::find_uniform_index(Tag tag) const
459 vector<TaggedUniform>::const_iterator i = lower_bound_member(uniforms, tag, &TaggedUniform::tag);
460 return ((i!=uniforms.end() && i->tag==tag) ? i-uniforms.begin() : -1);
463 vector<ProgramData::ProgramBlock>::iterator ProgramData::get_program(const Program &prog) const
465 Program::LayoutHash prog_hash = prog.get_uniform_layout_hash();
466 vector<ProgramBlock>::iterator i = lower_bound_member(programs, prog_hash, &ProgramBlock::prog_hash);
467 if(i!=programs.end() && i->prog_hash==prog_hash)
470 const vector<Program::UniformBlockInfo> &block_infos = prog.get_uniform_blocks();
471 unsigned index = i-programs.begin();
472 programs.insert(i, 1+block_infos.size(), ProgramBlock(prog_hash));
474 /* Block indices may change if new shared blocks need to be inserted. Store
475 the hashes so they can be matched up later. */
476 vector<Program::LayoutHash> block_hashes;
477 block_hashes.reserve(programs.size());
478 for(vector<ProgramBlock>::iterator j=programs.begin(); j!=programs.end(); ++j)
479 block_hashes.push_back(j->block_index>=0 ? blocks[j->block_index].block_hash : 0);
481 for(unsigned j=0; j<block_infos.size(); ++j)
483 const Program::UniformBlockInfo &info = block_infos[j];
484 block_hashes[index+1+j] = info.layout_hash;
485 programs[index+1+j].bind_point = info.bind_point;
487 vector<SharedBlock>::iterator k = lower_bound_member(blocks, info.layout_hash, &SharedBlock::block_hash);
488 if(k==blocks.end() || k->block_hash!=info.layout_hash)
490 k = blocks.insert(k, SharedBlock(info.layout_hash));
491 update_block_uniform_indices(*k, info);
495 /* Reassign shared block indices from the stored hashes. */
496 for(unsigned j=0; j<programs.size(); ++j)
498 unsigned hash = block_hashes[j];
501 vector<SharedBlock>::const_iterator k = lower_bound_member(blocks, hash, &SharedBlock::block_hash);
502 programs[j].block_index = k-blocks.begin();
505 programs[j].block_index = -1;
508 return programs.begin()+index;
511 void ProgramData::update_block_uniform_indices(SharedBlock &block, const Program::UniformBlockInfo &info) const
513 UInt8 *indices = block.indices.values;
514 if(info.uniforms.size()>16)
516 if(block.indices.type_flag==0xFD)
518 block.indices.dynamic.values = new UInt8[info.uniforms.size()];
519 block.indices.type_flag = 0xFE;
521 indices = block.indices.dynamic.values;
524 bool any_missing = false;
527 for(unsigned i=0; i<info.uniforms.size(); ++i)
529 int j = find_uniform_index(info.uniforms[i]->tag);
533 if(static_cast<unsigned>(j)<MASK_BITS)
543 if(block.used && any_missing && info.bind_point>=0)
546 IO::print(IO::cerr, "Warning: not all uniforms for block %s are present\n", info.name);
548 throw incomplete_uniform_block(info.name);
552 block.dirty = block.used;
554 if(block.used && !block.block)
556 if(info.bind_point>=0)
559 buffer = new Buffer(UNIFORM_BUFFER);
561 BufferBackedUniformBlock *bb_block = new BufferBackedUniformBlock(info.data_size);
562 block.block = bb_block;
563 bb_block->use_buffer(buffer, last_buffer_block);
564 last_buffer_block = bb_block;
567 block.block = new DefaultUniformBlock;
571 void ProgramData::update_block(SharedBlock &block, const Program::UniformBlockInfo &info) const
573 const UInt8 *indices = block.get_uniform_indices();
574 for(unsigned i=0; i<info.uniforms.size(); ++i)
576 if(is_image(info.uniforms[i]->type))
577 ; // Temporarily ignore deprecated use of sampler uniforms in ProgramData
578 else if(indices[i]!=0xFF)
579 block.block->attach(*info.uniforms[i], *uniforms[indices[i]].value);
583 void ProgramData::apply() const
585 const Program *prog = Program::current();
587 throw invalid_operation("ProgramData::apply");
589 BufferBackedUniformBlock *old_last_block = last_buffer_block;
590 vector<ProgramBlock>::iterator prog_begin = get_program(*prog);
591 Program::LayoutHash prog_hash = prog->get_uniform_layout_hash();
593 Mask force_dirty = (dirty==ALL_ONES ? ALL_ONES : 0U);
594 Mask affected = (dirty&prog_begin->masks.used) | force_dirty;
595 if(affected|prog_begin->masks.dirty)
597 /* If the global dirty flag affects this program, add it to per-block and
598 per-program dirty flags and clear the global flag. A previously unseen
599 program will cause this to happen if there's any dirty uniforms. */
602 for(vector<SharedBlock>::iterator i=blocks.begin(); i!=blocks.end(); ++i)
603 i->dirty |= (dirty&i->used) | force_dirty;
604 for(vector<ProgramBlock>::iterator i=programs.begin(); i!=programs.end(); ++i)
606 i->masks.dirty |= (dirty&i->masks.used) | force_dirty;
610 const vector<Program::UniformBlockInfo> &block_infos = prog->get_uniform_blocks();
612 if(prog_begin->masks.dirty==ALL_ONES)
614 /* The set of uniforms has changed since this program was last used.
615 Refresh uniform indices within the program's blocks. */
616 prog_begin->masks.used = 0;
617 vector<ProgramBlock>::iterator j = prog_begin+1;
618 for(vector<Program::UniformBlockInfo>::const_iterator i=block_infos.begin(); i!=block_infos.end(); ++i, ++j)
620 SharedBlock &shared = blocks[j->block_index];
621 if(shared.dirty==ALL_ONES)
622 update_block_uniform_indices(shared, *i);
623 prog_begin->masks.used |= shared.used;
624 j->block = (shared.used ? shared.block : 0);
628 // Update the contents of all dirty blocks.
629 bool buffered_blocks_updated = false;
630 vector<ProgramBlock>::iterator j = prog_begin+1;
631 for(vector<Program::UniformBlockInfo>::const_iterator i=block_infos.begin(); i!=block_infos.end(); ++i, ++j)
633 SharedBlock &shared = blocks[j->block_index];
636 update_block(shared, *i);
638 buffered_blocks_updated |= (j->bind_point>=0);
642 prog_begin->masks.dirty = 0;
644 /* If any blocks stored in the buffer were updated, bind the buffer here
645 to avoid state thrashing. */
646 if(buffered_blocks_updated && !ARB_direct_state_access)
649 if(last_buffer_block!=old_last_block)
651 unsigned required_size = last_buffer_block->get_required_buffer_size();
652 if(last_buffer_block->get_required_buffer_size()>buffer->get_size())
654 if(buffer->get_size()>0)
657 buffer = new Buffer(UNIFORM_BUFFER);
658 last_buffer_block->change_buffer(buffer);
661 buffer->storage(required_size);
666 for(vector<ProgramBlock>::iterator i=prog_begin+1; (i!=programs.end() && i->prog_hash==prog_hash); ++i)
668 i->block->apply(i->bind_point);
672 ProgramData::TaggedUniform::TaggedUniform():
676 void ProgramData::TaggedUniform::replace_value(Uniform *v)
678 /* UniformBlock does not copy the uniforms, so existing default blocks
679 will be left with stale pointers. This is not a problem as long as no
680 one stores pointers to the blocks and expects them to stay valid. */
686 ProgramData::SharedBlock::SharedBlock(Program::LayoutHash h):
692 indices.type_flag = 0xFD;
695 const UInt8 *ProgramData::SharedBlock::get_uniform_indices() const
697 return (indices.type_flag==0xFE ? indices.dynamic.values : indices.values);
701 ProgramData::ProgramBlock::ProgramBlock(Program::LayoutHash h):
706 masks.used = ALL_ONES;
707 masks.dirty = ALL_ONES;
711 ProgramData::Loader::Loader(ProgramData &pd):
712 DataFile::ObjectLoader<ProgramData>(pd)
714 add("uniform", &Loader::uniform1i);
715 add("uniform1i", &Loader::uniform1i);
716 add("uniform", &Loader::uniform1f);
717 add("uniform1f", &Loader::uniform1f);
718 add("uniform", &Loader::uniform2i);
719 add("uniform2i", &Loader::uniform2i);
720 add("uniform", &Loader::uniform2f);
721 add("uniform2f", &Loader::uniform2f);
722 add("uniform", &Loader::uniform3i);
723 add("uniform3i", &Loader::uniform3i);
724 add("uniform", &Loader::uniform3f);
725 add("uniform3f", &Loader::uniform3f);
726 add("uniform", &Loader::uniform4i);
727 add("uniform4i", &Loader::uniform4i);
728 add("uniform", &Loader::uniform4f);
729 add("uniform4f", &Loader::uniform4f);
730 add("uniform1i_array", &Loader::uniform1i_array);
731 add("uniform1f_array", &Loader::uniform1f_array);
732 add("uniform2f_array", &Loader::uniform2f_array);
733 add("uniform3f_array", &Loader::uniform3f_array);
734 add("uniform4f_array", &Loader::uniform4f_array);
735 add("uniform_array", &Loader::uniform_array);
738 void ProgramData::Loader::uniform1i(const string &n, int v)
743 void ProgramData::Loader::uniform1f(const string &n, float v)
748 void ProgramData::Loader::uniform2i(const string &n, int v0, int v1)
750 obj.uniform(n, v0, v1);
753 void ProgramData::Loader::uniform2f(const string &n, float v0, float v1)
755 obj.uniform(n, v0, v1);
758 void ProgramData::Loader::uniform3i(const string &n, int v0, int v1, int v2)
760 obj.uniform(n, v0, v1, v2);
763 void ProgramData::Loader::uniform3f(const string &n, float v0, float v1, float v2)
765 obj.uniform(n, v0, v1, v2);
768 void ProgramData::Loader::uniform4i(const string &n, int v0, int v1, int v2, int v3)
770 obj.uniform(n, v0, v1, v2, v3);
773 void ProgramData::Loader::uniform4f(const string &n, float v0, float v1, float v2, float v3)
775 obj.uniform(n, v0, v1, v2, v3);
778 void ProgramData::Loader::uniform_array_(const string &n, DataType t, unsigned e)
780 ArrayLoader ldr(t, e);
782 unsigned size = ldr.get_size();
784 throw logic_error("empty uniform array");
786 DataType type = ldr.get_data_type();
787 unsigned elem_size = ldr.get_element_size();
790 const int *data = reinterpret_cast<const int *>(ldr.get_data());
792 obj.uniform1_array(n, size, data);
793 else if(elem_size==2)
794 obj.uniform2_array(n, size, data);
795 else if(elem_size==3)
796 obj.uniform3_array(n, size, data);
797 else if(elem_size==4)
798 obj.uniform4_array(n, size, data);
800 throw logic_error("unsupported combination of array type and element size");
804 const float *data = reinterpret_cast<const float *>(ldr.get_data());
806 obj.uniform1_array(n, size, data);
807 else if(elem_size==2)
808 obj.uniform2_array(n, size, data);
809 else if(elem_size==3)
810 obj.uniform3_array(n, size, data);
811 else if(elem_size==4)
812 obj.uniform4_array(n, size, data);
814 throw logic_error("unsupported combination of array type and element size");
817 throw logic_error("unsupported array type");
820 void ProgramData::Loader::uniform1i_array(const string &n)
822 uniform_array_(n, INT, 1);
825 void ProgramData::Loader::uniform1f_array(const string &n)
827 uniform_array_(n, FLOAT, 1);
830 void ProgramData::Loader::uniform2i_array(const string &n)
832 uniform_array_(n, INT, 2);
835 void ProgramData::Loader::uniform2f_array(const string &n)
837 uniform_array_(n, FLOAT, 2);
840 void ProgramData::Loader::uniform3i_array(const string &n)
842 uniform_array_(n, INT, 3);
845 void ProgramData::Loader::uniform3f_array(const string &n)
847 uniform_array_(n, FLOAT, 3);
850 void ProgramData::Loader::uniform4i_array(const string &n)
852 uniform_array_(n, INT, 4);
855 void ProgramData::Loader::uniform4f_array(const string &n)
857 uniform_array_(n, FLOAT, 4);
860 void ProgramData::Loader::uniform_array(const string &n)
862 uniform_array_(n, static_cast<DataType>(0), 0);
866 ProgramData::ArrayLoader::ArrayLoader(DataType t, unsigned e):
870 add("uniform", &ArrayLoader::uniform1i);
871 add("uniform1i", &ArrayLoader::uniform1i);
872 add("uniform", &ArrayLoader::uniform1f);
873 add("uniform1f", &ArrayLoader::uniform1f);
874 add("uniform", &ArrayLoader::uniform2f);
875 add("uniform2f", &ArrayLoader::uniform2f);
876 add("uniform", &ArrayLoader::uniform3f);
877 add("uniform3f", &ArrayLoader::uniform3f);
878 add("uniform", &ArrayLoader::uniform4f);
879 add("uniform4f", &ArrayLoader::uniform4f);
882 void ProgramData::ArrayLoader::uniform(DataType t, unsigned e, const void *v)
884 if(element_size && (t!=type || e!=element_size))
885 throw logic_error("heterogeneous array contents");
893 const char *cv = reinterpret_cast<const char *>(v);
894 data.insert(data.end(), cv, cv+element_size*4);
897 void ProgramData::ArrayLoader::uniform1i(int v)
902 void ProgramData::ArrayLoader::uniform1f(float v)
904 uniform(FLOAT, 1, &v);
907 void ProgramData::ArrayLoader::uniform2i(int v0, int v1)
909 int va[2] = { v0, v1 };
913 void ProgramData::ArrayLoader::uniform2f(float v0, float v1)
915 float va[2] = { v0, v1 };
916 uniform(FLOAT, 2, va);
919 void ProgramData::ArrayLoader::uniform3i(int v0, int v1, int v2)
921 int va[3] = { v0, v1, v2 };
925 void ProgramData::ArrayLoader::uniform3f(float v0, float v1, float v2)
927 float va[3] = { v0, v1, v2 };
928 uniform(FLOAT, 3, va);
931 void ProgramData::ArrayLoader::uniform4i(int v0, int v1, int v2, int v3)
933 int va[4] = { v0, v1, v2, v3 };
937 void ProgramData::ArrayLoader::uniform4f(float v0, float v1, float v2, float v3)
939 float va[4] = { v0, v1, v2, v3 };
940 uniform(FLOAT, 4, va);