]> git.tdb.fi Git - libs/gl.git/blobdiff - source/render/programdata.cpp
Use default member initializers for simple types
[libs/gl.git] / source / render / programdata.cpp
index 5f124a907fc8eebbb034d25cddb5ba475c67c022..43bcbf3febea57702fb6be343818b01d9d472325 100644 (file)
@@ -1,14 +1,13 @@
-#include <msp/core/maputils.h>
+#include <msp/core/algorithm.h>
 #include <msp/debug/demangle.h>
-#include <msp/gl/extensions/arb_direct_state_access.h>
 #include <msp/io/print.h>
 #include "buffer.h"
 #include "color.h"
 #include "error.h"
 #include "matrix.h"
+#include "pipelinestate.h"
 #include "program.h"
 #include "programdata.h"
-#include "uniform.h"
 #include "uniformblock.h"
 #include "vector.h"
 
@@ -19,7 +18,8 @@ namespace GL {
 
 ProgramData::ProgramData(const Program *p):
        tied_program(p),
-       last_block(0),
+       generation(0),
+       last_buffer_block(0),
        buffer(0),
        dirty(0)
 { }
@@ -28,29 +28,27 @@ ProgramData::ProgramData(const Program *p):
 ProgramData::ProgramData(const ProgramData &other):
        tied_program(other.tied_program),
        uniforms(other.uniforms),
-       last_block(0),
+       uniform_data(other.uniform_data),
+       generation(other.generation),
+       last_buffer_block(0),
        buffer(0),
        dirty(0)
-{
-       for(vector<NamedUniform>::iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
-               i->value = i->value->clone();
-}
+{ }
 
 ProgramData::ProgramData(const ProgramData &other, const Program *p):
        tied_program(p),
-       last_block(0),
+       last_buffer_block(0),
        buffer(0),
        dirty(0)
 {
        if(tied_program)
        {
-               for(vector<NamedUniform>::const_iterator i=other.uniforms.begin(); i!=other.uniforms.end(); ++i)
-                       tied_program->get_uniform_info(i->name);
+               for(const TaggedUniform &u: other.uniforms)
+                       validate_tag(u.tag);
        }
 
        uniforms = other.uniforms;
-       for(vector<NamedUniform>::iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
-               i->value = i->value->clone();
+       uniform_data = other.uniform_data;
 }
 
 ProgramData &ProgramData::operator=(const ProgramData &other)
@@ -58,14 +56,14 @@ ProgramData &ProgramData::operator=(const ProgramData &other)
        tied_program = other.tied_program;
 
        uniforms = other.uniforms;
-       for(vector<NamedUniform>::iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
-               i->value = i->value->clone();
+       uniform_data = other.uniform_data;
 
-       for(BlockMap::iterator i=blocks.begin(); i!=blocks.end(); ++i)
-               delete i->second.block;
+       for(SharedBlock &b: blocks)
+               delete b.block;
+       blocks.clear();
        programs.clear();
 
-       last_block = 0;
+       last_buffer_block = 0;
        buffer = 0;
        dirty = 0;
 
@@ -74,451 +72,420 @@ ProgramData &ProgramData::operator=(const ProgramData &other)
 
 ProgramData::~ProgramData()
 {
-       for(vector<NamedUniform>::iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
-               delete i->value;
-       for(BlockMap::iterator i=blocks.begin(); i!=blocks.end(); ++i)
+       for(SharedBlock &b: blocks)
        {
-               if(i->second.indices.type_flag==0xFE)
-                       delete i->second.indices.dynamic.values;
-               delete i->second.block;
+               if(b.indices.type_flag==0xFE)
+                       delete[] b.indices.dynamic.values;
+               delete b.block;
        }
        delete buffer;
 }
 
-void ProgramData::uniform(const string &name, Uniform *uni)
+void ProgramData::uniform(Tag tag, DataType type, unsigned array_size, const void *value)
 {
-       try
+       if(!validate_tag(tag))
+               return;
+
+       auto i = lower_bound_member(uniforms, tag, &TaggedUniform::tag);
+       if(i==uniforms.end() || i->tag!=tag)
        {
-               if(!validate_name(name))
-               {
-                       delete uni;
-                       return;
-               }
+               if(uniforms.size()>=MASK_BITS)
+                       throw too_many_uniforms(tag.str());
+
+               TaggedUniform tu;
+               tu.tag = tag;
+               tu.type = type;
+               tu.array_size = array_size;
+               tu.data_offset = uniform_data.size();
+               tu.data_size = array_size*get_type_size(type);
+               i = uniforms.insert(i, tu);
+               uniform_data.resize(tu.data_offset+tu.data_size);
+
+               mark_dirty(ALL_ONES);
        }
-       catch(...)
+       else if(type!=i->type)
+               throw invalid_operation("ProgramData::uniform");
+       else if(array_size>i->array_size)
        {
-               delete uni;
-               throw;
+               unsigned add_bytes = (array_size-i->array_size)*get_type_size(type);
+               uniform_data.insert(uniform_data.begin()+i->data_offset+i->data_size, add_bytes, 0);
+               for(TaggedUniform &u: uniforms)
+                       if(u.data_offset>i->data_offset)
+                               u.data_offset += add_bytes;
+               i->array_size = array_size;
+               i->data_size = array_size*get_type_size(type);
        }
 
-       int i = find_uniform_index(name);
-       if(i<0)
-               return add_uniform(name, uni);
-
-       uniforms[i].replace_value(uni);
-       dirty |= 1<<i;
-}
-
-template<typename T, typename V>
-void ProgramData::uniform(const string &name, V value)
-{
-       if(!validate_name(name))
-               return;
-
-       int i = find_uniform_index(name);
-       if(i<0)
-               return add_uniform(name, new T(value));
-
-       if(T *uni = dynamic_cast<T *>(uniforms[i].value))
-               uni->set(value);
-       else
-               uniforms[i].replace_value(new T(value));
+       const char *val_begin = static_cast<const char *>(value);
+       const char *val_end = val_begin+array_size*get_type_size(type);
+       char *store_begin = uniform_data.data()+i->data_offset;
+       copy(val_begin, val_end, store_begin);
 
-       dirty |= 1<<i;
+       mark_dirty(1<<(i-uniforms.begin()));
 }
 
-template<typename T, typename V>
-void ProgramData::uniform_array(const string &name, unsigned n, V value)
-{
-       if(!validate_name(name))
-               return;
-
-       int i = find_uniform_index(name);
-       if(i<0)
-               return add_uniform(name, new UniformArray<T>(n, value));
-
-       UniformArray<T> *uni = dynamic_cast<UniformArray<T> *>(uniforms[i].value);
-       if(uni && n==uni->size())
-               uni->set(value);
-       else
-               uniforms[i].replace_value(new UniformArray<T>(n, value));
-
-       dirty |= 1<<i;
-}
-
-bool ProgramData::validate_name(const string &name) const
+bool ProgramData::validate_tag(Tag tag) const
 {
 #ifdef DEBUG
        try
 #endif
        {
                if(tied_program)
-                       tied_program->get_uniform_info(name);
-               else if(name[name.size()-1]==']')
-                       throw invalid_argument("ProgramData::uniform");
+               {
+                       const ReflectData::UniformInfo &info = tied_program->get_uniform_info(tag);
+                       if(is_image(info.type))
+                               throw invalid_operation("ProgramData::uniform");
+               }
                return true;
        }
 #ifdef DEBUG
        catch(const exception &e)
        {
-               IO::print(IO::cerr, "Error while setting uniform %s: %s: %s\n", name, Debug::demangle(typeid(e).name()), e.what());
+               IO::print(IO::cerr, "Error while setting uniform %s: %s: %s\n", tag, Debug::demangle(typeid(e).name()), e.what());
                return false;
        }
 #endif
 }
 
-void ProgramData::add_uniform(const string &name, Uniform *uni)
+void ProgramData::mark_dirty(Mask bits)
 {
-       if(uniforms.size()>=MASK_BITS)
-       {
-               delete uni;
-               throw too_many_uniforms(name);
-       }
-
-       vector<NamedUniform>::iterator j = lower_bound(uniforms.begin(), uniforms.end(), name, uniform_name_compare);
-
-       NamedUniform nu;
-       nu.name = name;
-       nu.value = uni;
-       uniforms.insert(j, nu);
-
-       dirty = ALL_ONES;
+       if(!dirty)
+               ++generation;
+       dirty |= bits;
 }
 
-void ProgramData::uniform(const string &name, const Uniform &u)
+void ProgramData::uniform(Tag tag, int v)
 {
-       uniform(name, u.clone());
+       uniform(tag, INT, 1, &v);
 }
 
-void ProgramData::uniform(const string &name, int v)
+void ProgramData::uniform(Tag tag, float v)
 {
-       uniform<Uniform1i>(name, v);
+       uniform(tag, FLOAT, 1, &v);
 }
 
-void ProgramData::uniform(const string &name, float v)
-{
-       uniform<Uniform1f>(name, v);
-}
-
-void ProgramData::uniform(const string &name, int v0, int v1)
+void ProgramData::uniform(Tag tag, int v0, int v1)
 {
        int va[2] = { v0, v1 };
-       uniform2(name, va);
+       uniform2(tag, va);
 }
 
-void ProgramData::uniform(const string &name, float v0, float v1)
+void ProgramData::uniform(Tag tag, float v0, float v1)
 {
        float va[2] = { v0, v1 };
-       uniform2(name, va);
+       uniform2(tag, va);
 }
 
-void ProgramData::uniform2(const string &name, const int *v)
+void ProgramData::uniform2(Tag tag, const int *v)
 {
-       uniform<Uniform2i>(name, v);
+       uniform(tag, INT_VEC2, 1, v);
 }
 
-void ProgramData::uniform2(const string &name, const float *v)
+void ProgramData::uniform2(Tag tag, const float *v)
 {
-       uniform<Uniform2f>(name, v);
+       uniform(tag, FLOAT_VEC2, 1, v);
 }
 
-void ProgramData::uniform(const string &name, int v0, int v1, int v2)
+void ProgramData::uniform(Tag tag, int v0, int v1, int v2)
 {
        int va[3] = { v0, v1, v2 };
-       uniform3(name, va);
+       uniform3(tag, va);
 }
 
-void ProgramData::uniform(const string &name, float v0, float v1, float v2)
+void ProgramData::uniform(Tag tag, float v0, float v1, float v2)
 {
        float va[3] = { v0, v1, v2 };
-       uniform3(name, va);
-}
-
-void ProgramData::uniform(const string &name, const Vector3 &v)
-{
-       uniform(name, v.x, v.y, v.z);
+       uniform3(tag, va);
 }
 
-void ProgramData::uniform3(const string &name, const int *v)
+void ProgramData::uniform3(Tag tag, const int *v)
 {
-       uniform<Uniform3i>(name, v);
+       uniform(tag, INT_VEC3, 1, v);
 }
 
-void ProgramData::uniform3(const string &name, const float *v)
+void ProgramData::uniform3(Tag tag, const float *v)
 {
-       uniform<Uniform3f>(name, v);
+       uniform(tag, FLOAT_VEC3, 1, v);
 }
 
-void ProgramData::uniform(const string &name, int v0, int v1, int v2, int v3)
+void ProgramData::uniform(Tag tag, int v0, int v1, int v2, int v3)
 {
        int va[4] = { v0, v1, v2, v3 };
-       uniform4(name, va);
+       uniform4(tag, va);
 }
 
-void ProgramData::uniform(const string &name, float v0, float v1, float v2, float v3)
+void ProgramData::uniform(Tag tag, float v0, float v1, float v2, float v3)
 {
        float va[4] = { v0, v1, v2, v3 };
-       uniform4(name, va);
+       uniform4(tag, va);
 }
 
-void ProgramData::uniform(const string &name, const Vector4 &v)
+void ProgramData::uniform(Tag tag, const Color &c)
 {
-       uniform(name, v.x, v.y, v.z, v.w);
+       uniform(tag, c.r, c.g, c.b, c.a);
 }
 
-void ProgramData::uniform(const string &name, const Color &c)
+void ProgramData::uniform4(Tag tag, const int *v)
 {
-       uniform(name, c.r, c.g, c.b, c.a);
+       uniform(tag, INT_VEC4, 1, v);
 }
 
-void ProgramData::uniform4(const string &name, const int *v)
+void ProgramData::uniform4(Tag tag, const float *v)
 {
-       uniform<Uniform4i>(name, v);
+       uniform(tag, FLOAT_VEC4, 1, v);
 }
 
-void ProgramData::uniform4(const string &name, const float *v)
+void ProgramData::uniform_matrix2(Tag tag, const float *v)
 {
-       uniform<Uniform4f>(name, v);
+       uniform(tag, FLOAT_MAT2, 1, v);
 }
 
-void ProgramData::uniform(const string &name, const LinAl::Matrix<float, 2, 2> &m)
+void ProgramData::uniform_matrix3x2(Tag tag, const float *v)
 {
-       uniform_matrix2(name, &m(0, 0));
+       uniform(tag, FLOAT_MAT3x2, 1, v);
 }
 
-void ProgramData::uniform_matrix2(const string &name, const float *v)
+void ProgramData::uniform_matrix4x2(Tag tag, const float *v)
 {
-       uniform<UniformMatrix2x2f>(name, v);
+       uniform(tag, FLOAT_MAT4x2, 1, v);
 }
 
-void ProgramData::uniform(const string &name, const LinAl::Matrix<float, 2, 3> &m)
+void ProgramData::uniform_matrix2x3(Tag tag, const float *v)
 {
-       uniform_matrix3x2(name, &m(0, 0));
+       uniform(tag, FLOAT_MAT2x3, 1, v);
 }
 
-void ProgramData::uniform_matrix3x2(const string &name, const float *v)
+void ProgramData::uniform_matrix3(Tag tag, const float *v)
 {
-       uniform<UniformMatrix3x2f>(name, v);
+       uniform(tag, FLOAT_MAT3, 1, v);
 }
 
-void ProgramData::uniform(const string &name, const LinAl::Matrix<float, 2, 4> &m)
+void ProgramData::uniform_matrix4x3(Tag tag, const float *v)
 {
-       uniform_matrix4x2(name, &m(0, 0));
+       uniform(tag, FLOAT_MAT4x3, 1, v);
 }
 
-void ProgramData::uniform_matrix4x2(const string &name, const float *v)
+void ProgramData::uniform_matrix2x4(Tag tag, const float *v)
 {
-       uniform<UniformMatrix4x2f>(name, v);
+       uniform(tag, FLOAT_MAT2x4, 1, v);
 }
 
-void ProgramData::uniform(const string &name, const LinAl::Matrix<float, 3, 2> &m)
+void ProgramData::uniform_matrix3x4(Tag tag, const float *v)
 {
-       uniform_matrix2x3(name, &m(0, 0));
+       uniform(tag, FLOAT_MAT3x4, 1, v);
 }
 
-void ProgramData::uniform_matrix2x3(const string &name, const float *v)
+void ProgramData::uniform(Tag tag, const Matrix &m)
 {
-       uniform<UniformMatrix2x3f>(name, v);
+       uniform_matrix4(tag, m.data());
 }
 
-void ProgramData::uniform(const string &name, const LinAl::Matrix<float, 3, 3> &m)
+void ProgramData::uniform_matrix4(Tag tag, const float *v)
 {
-       uniform_matrix3(name, &m(0, 0));
+       uniform(tag, FLOAT_MAT4, 1, v);
 }
 
-void ProgramData::uniform_matrix3(const string &name, const float *v)
+void ProgramData::uniform_array(Tag tag, unsigned n, const int *v)
 {
-       uniform<UniformMatrix3x3f>(name, v);
+       uniform(tag, INT, n, v);
 }
 
-void ProgramData::uniform(const string &name, const LinAl::Matrix<float, 3, 4> &m)
+void ProgramData::uniform_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_matrix4x3(name, &m(0, 0));
+       uniform(tag, FLOAT, n, v);
 }
 
-void ProgramData::uniform_matrix4x3(const string &name, const float *v)
+void ProgramData::uniform1_array(Tag tag, unsigned n, const int *v)
 {
-       uniform<UniformMatrix4x3f>(name, v);
+       uniform(tag, INT, n, v);
 }
 
-void ProgramData::uniform(const string &name, const LinAl::Matrix<float, 4, 2> &m)
+void ProgramData::uniform1_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_matrix2x4(name, &m(0, 0));
+       uniform(tag, FLOAT, n, v);
 }
 
-void ProgramData::uniform_matrix2x4(const string &name, const float *v)
+void ProgramData::uniform2_array(Tag tag, unsigned n, const int *v)
 {
-       uniform<UniformMatrix2x4f>(name, v);
+       uniform(tag, INT_VEC2, n, v);
 }
 
-void ProgramData::uniform(const string &name, const LinAl::Matrix<float, 4, 3> &m)
+void ProgramData::uniform2_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_matrix3x4(name, &m(0, 0));
+       uniform(tag, FLOAT_VEC2, n, v);
 }
 
-void ProgramData::uniform_matrix3x4(const string &name, const float *v)
+void ProgramData::uniform3_array(Tag tag, unsigned n, const int *v)
 {
-       uniform<UniformMatrix3x4f>(name, v);
+       uniform(tag, INT_VEC3, n, v);
 }
 
-void ProgramData::uniform(const string &name, const Matrix &m)
+void ProgramData::uniform3_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_matrix4(name, m.data());
+       uniform(tag, FLOAT_VEC3, n, v);
 }
 
-void ProgramData::uniform_matrix4(const string &name, const float *v)
+void ProgramData::uniform4_array(Tag tag, unsigned n, const int *v)
 {
-       uniform<UniformMatrix4x4f>(name, v);
+       uniform(tag, INT_VEC4, n, v);
 }
 
-void ProgramData::uniform1_array(const string &name, unsigned n, const int *v)
+void ProgramData::uniform4_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<Uniform1i>(name, n, v);
+       uniform(tag, FLOAT_VEC4, n, v);
 }
 
-void ProgramData::uniform1_array(const string &name, unsigned n, const float *v)
+void ProgramData::uniform_matrix2_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<Uniform1f>(name, n, v);
+       uniform(tag, FLOAT_MAT2, n, v);
 }
 
-void ProgramData::uniform2_array(const string &name, unsigned n, const int *v)
+void ProgramData::uniform_matrix3x2_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<Uniform2i>(name, n, v);
+       uniform(tag, FLOAT_MAT3x2, n, v);
 }
 
-void ProgramData::uniform2_array(const string &name, unsigned n, const float *v)
+void ProgramData::uniform_matrix4x2_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<Uniform2f>(name, n, v);
+       uniform(tag, FLOAT_MAT4x2, n, v);
 }
 
-void ProgramData::uniform3_array(const string &name, unsigned n, const int *v)
+void ProgramData::uniform_matrix2x3_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<Uniform3i>(name, n, v);
+       uniform(tag, FLOAT_MAT2x3, n, v);
 }
 
-void ProgramData::uniform3_array(const string &name, unsigned n, const float *v)
+void ProgramData::uniform_matrix3_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<Uniform3f>(name, n, v);
+       uniform(tag, FLOAT_MAT3, n, v);
 }
 
-void ProgramData::uniform4_array(const string &name, unsigned n, const int *v)
+void ProgramData::uniform_matrix4x3_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<Uniform4i>(name, n, v);
+       uniform(tag, FLOAT_MAT4x3, n, v);
 }
 
-void ProgramData::uniform4_array(const string &name, unsigned n, const float *v)
+void ProgramData::uniform_matrix2x4_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<Uniform4f>(name, n, v);
+       uniform(tag, FLOAT_MAT2x4, n, v);
 }
 
-void ProgramData::uniform_matrix2_array(const string &name, unsigned n, const float *v)
+void ProgramData::uniform_matrix3x4_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<UniformMatrix2x2f>(name, n, v);
+       uniform(tag, FLOAT_MAT3x4, n, v);
 }
 
-void ProgramData::uniform_matrix3x2_array(const string &name, unsigned n, const float *v)
+void ProgramData::uniform_matrix4_array(Tag tag, unsigned n, const float *v)
 {
-       uniform_array<UniformMatrix3x2f>(name, n, v);
+       uniform(tag, FLOAT_MAT4, n, v);
 }
 
-void ProgramData::uniform_matrix4x2_array(const string &name, unsigned n, const float *v)
+void ProgramData::remove_uniform(Tag tag)
 {
-       uniform_array<UniformMatrix4x2f>(name, n, v);
-}
-
-void ProgramData::uniform_matrix2x3_array(const string &name, unsigned n, const float *v)
-{
-       uniform_array<UniformMatrix2x3f>(name, n, v);
-}
+       auto i = lower_bound_member(uniforms, tag, &TaggedUniform::tag);
+       if(i==uniforms.end() || i->tag!=tag)
+               return;
 
-void ProgramData::uniform_matrix3_array(const string &name, unsigned n, const float *v)
-{
-       uniform_array<UniformMatrix3x3f>(name, n, v);
-}
+       uniform_data.erase(uniform_data.begin()+i->data_offset, uniform_data.begin()+i->data_offset+i->data_size);
+       for(TaggedUniform &u: uniforms)
+               if(u.data_offset>i->data_offset)
+                       u.data_offset -= i->data_size;
+       uniforms.erase(i);
 
-void ProgramData::uniform_matrix4x3_array(const string &name, unsigned n, const float *v)
-{
-       uniform_array<UniformMatrix4x3f>(name, n, v);
+       mark_dirty(ALL_ONES);
 }
 
-void ProgramData::uniform_matrix2x4_array(const string &name, unsigned n, const float *v)
+vector<Tag> ProgramData::get_uniform_tags() const
 {
-       uniform_array<UniformMatrix2x4f>(name, n, v);
+       vector<Tag> tags;
+       tags.reserve(uniforms.size());
+       for(const TaggedUniform &u: uniforms)
+               tags.push_back(u.tag);
+       return tags;
 }
 
-void ProgramData::uniform_matrix3x4_array(const string &name, unsigned n, const float *v)
+void ProgramData::copy_uniform(const ProgramData &source, Tag tag)
 {
-       uniform_array<UniformMatrix3x4f>(name, n, v);
+       int i = source.find_uniform_index(tag);
+       if(i<0)
+               throw key_error(tag);
+       const TaggedUniform &tu = source.uniforms[i];
+       uniform(tag, tu.type, tu.array_size, source.uniform_data.data()+tu.data_offset);
 }
 
-void ProgramData::uniform_matrix4_array(const string &name, unsigned n, const float *v)
+int ProgramData::find_uniform_index(Tag tag) const
 {
-       uniform_array<UniformMatrix4x4f>(name, n, v);
+       auto i = lower_bound_member(uniforms, tag, &TaggedUniform::tag);
+       return ((i!=uniforms.end() && i->tag==tag) ? i-uniforms.begin() : -1);
 }
 
-void ProgramData::remove_uniform(const string &name)
+vector<ProgramData::ProgramBlock>::iterator ProgramData::get_program(const Program &prog) const
 {
-       vector<NamedUniform>::const_iterator i = lower_bound(uniforms.begin(), uniforms.end(), name, uniform_name_compare);
-       if(i==uniforms.end() || i->name!=name)
-               return;
-
-       delete i->value;
-       uniforms.erase(i);
+       ReflectData::LayoutHash prog_hash = prog.get_uniform_layout_hash();
+       auto i = lower_bound_member(programs, prog_hash, &ProgramBlock::prog_hash);
+       if(i!=programs.end() && i->prog_hash==prog_hash)
+               return i;
 
-       dirty = ALL_ONES;
-}
+       const vector<ReflectData::UniformBlockInfo> &block_infos = prog.get_uniform_blocks();
+       unsigned index = i-programs.begin();
+       programs.insert(i, 1+block_infos.size(), ProgramBlock(prog_hash));
 
-vector<string> ProgramData::get_uniform_names() const
-{
-       vector<string> names;
-       names.reserve(uniforms.size());
-       for(vector<NamedUniform>::const_iterator i=uniforms.begin(); i!=uniforms.end(); ++i)
-               names.push_back(i->name);
-       return names;
-}
+       /* Block indices may change if new shared blocks need to be inserted.  Store
+       the hashes so they can be matched up later. */
+       vector<ReflectData::LayoutHash> block_hashes;
+       block_hashes.reserve(programs.size());
+       for(const ProgramBlock &b: programs)
+               block_hashes.push_back(b.block_index>=0 ? blocks[b.block_index].block_hash : 0);
 
-const Uniform &ProgramData::get_uniform(const string &name) const
-{
-       int i = find_uniform_index(name);
-       if(i<0)
-               throw key_error(name);
-       return *uniforms[i].value;
-}
+       for(unsigned j=0; j<block_infos.size(); ++j)
+       {
+               const ReflectData::UniformBlockInfo &info = block_infos[j];
+               block_hashes[index+1+j] = info.layout_hash;
+               programs[index+1+j].bind_point = info.bind_point;
 
-const Uniform *ProgramData::find_uniform(const string &name) const
-{
-       int i = find_uniform_index(name);
-       return (i>=0 ? uniforms[i].value : 0);
-}
+               auto k = lower_bound_member(blocks, info.layout_hash, &SharedBlock::block_hash);
+               if(k==blocks.end() || k->block_hash!=info.layout_hash)
+               {
+                       k = blocks.insert(k, SharedBlock(info.layout_hash));
+                       update_block_uniform_indices(*k, info);
+               }
+       }
 
-bool ProgramData::uniform_name_compare(const NamedUniform &nu, const string &name)
-{
-       return nu.name<name;
-}
+       /* Reassign shared block indices from the stored hashes. */
+       for(unsigned j=0; j<programs.size(); ++j)
+       {
+               unsigned hash = block_hashes[j];
+               if(hash)
+               {
+                       auto k = lower_bound_member(blocks, hash, &SharedBlock::block_hash);
+                       programs[j].block_index = k-blocks.begin();
+               }
+               else
+                       programs[j].block_index = -1;
+       }
 
-int ProgramData::find_uniform_index(const string &name) const
-{
-       vector<NamedUniform>::const_iterator i = lower_bound(uniforms.begin(), uniforms.end(), name, uniform_name_compare);
-       return ((i!=uniforms.end() && i->name==name) ? i-uniforms.begin() : -1);
+       return programs.begin()+index;
 }
 
-void ProgramData::update_block_uniform_indices(SharedBlock &block, const Program::UniformBlockInfo &info) const
+void ProgramData::update_block_uniform_indices(SharedBlock &block, const ReflectData::UniformBlockInfo &info) const
 {
-       UInt8 *indices = block.indices.values;
+       uint8_t *indices = block.indices.values;
        if(info.uniforms.size()>16)
        {
                if(block.indices.type_flag==0xFD)
                {
-                       block.indices.dynamic.values = new UInt8[info.uniforms.size()];
+                       block.indices.dynamic.values = new uint8_t[info.uniforms.size()];
                        block.indices.type_flag = 0xFE;
                }
                indices = block.indices.dynamic.values;
        }
 
+       bool any_missing = false;
+
        block.used = 0;
        for(unsigned i=0; i<info.uniforms.size(); ++i)
        {
-               int j = find_uniform_index(info.uniforms[i]->name);
+               int j = find_uniform_index(info.uniforms[i]->tag);
                if(j>=0)
                {
                        indices[i] = j;
@@ -526,146 +493,132 @@ void ProgramData::update_block_uniform_indices(SharedBlock &block, const Program
                                block.used |= 1<<j;
                }
                else
+               {
                        indices[i] = 0xFF;
+                       any_missing = true;
+               }
        }
 
-       block.dirty = block.used;
-}
-
-void ProgramData::update_block(SharedBlock &block, const Program::UniformBlockInfo &info) const
-{
-       const UInt8 *indices = block.get_uniform_indices();
-       for(unsigned i=0; i<info.uniforms.size(); ++i)
-               if(indices[i]!=0xFF)
-                       block.block->attach(*info.uniforms[i], *uniforms[indices[i]].value);
-}
-
-ProgramData::SharedBlock *ProgramData::get_shared_block(const Program::UniformBlockInfo &info) const
-{
-       BlockMap::iterator i = blocks.find(info.layout_hash);
-       if(i==blocks.end())
+       if(block.used && any_missing && info.bind_point>=0)
        {
-               bool any_found = false;
-               bool all_found = true;
-               for(vector<const Program::UniformInfo *>::const_iterator j=info.uniforms.begin(); j!=info.uniforms.end(); ++j)
-               {
-                       if(find_uniform_index((*j)->name)>=0)
-                               any_found = true;
-                       else
-                               all_found = false;
-               }
-
-               if(!any_found)
-                       return 0;
-               else if(!all_found && info.bind_point>=0)
-               {
 #ifdef DEBUG
-                       IO::print(IO::cerr, "Warning: not all uniforms for block %s are present\n", info.name);
+               IO::print(IO::cerr, "Warning: not all uniforms for block %s are present\n", info.name);
 #else
-                       throw incomplete_uniform_block(info.name);
+               throw incomplete_uniform_block(info.name);
 #endif
-               }
+       }
+
+       block.dirty = block.used;
 
-               UniformBlock *block;
+       if(block.used && !block.block)
+       {
+               block.block = new UniformBlock(info);
                if(info.bind_point>=0)
                {
                        if(!buffer)
-                               buffer = new Buffer(UNIFORM_BUFFER);
+                       {
+                               buffer = new Buffer();
 
-                       block = new UniformBlock(info.data_size);
-                       block->use_buffer(buffer, last_block);
-                       last_block = block;
-               }
-               else
-                       block = new UniformBlock;
+#ifdef DEBUG
+                               if(!debug_name.empty())
+                                       buffer->set_debug_name(debug_name);
+#endif
+                       }
 
-               i = blocks.insert(BlockMap::value_type(info.layout_hash, SharedBlock(block))).first;
-               update_block_uniform_indices(i->second, info);
+                       block.block->use_buffer(buffer, last_buffer_block);
+                       last_buffer_block = block.block;
+               }
        }
-
-       return &i->second;
 }
 
-void ProgramData::apply() const
+void ProgramData::update_block(SharedBlock &block, const ReflectData::UniformBlockInfo &info) const
 {
-       const Program *prog = Program::current();
-       if(!prog)
-               throw invalid_operation("ProgramData::apply");
+       const uint8_t *indices = block.get_uniform_indices();
+       for(unsigned i=0; i<info.uniforms.size(); ++i)
+       {
+               if(is_image(info.uniforms[i]->type))
+                       ;  // Temporarily ignore deprecated use of sampler uniforms in ProgramData
+               else if(indices[i]!=0xFF)
+               {
+                       const TaggedUniform &tu = uniforms[indices[i]];
+                       block.block->store(*info.uniforms[i], tu.array_size, uniform_data.data()+tu.data_offset);
+               }
+       }
+}
 
-       Program::LayoutHash layout = prog->get_uniform_layout_hash();
-       ProgramUniforms &pu = programs[layout];
+vector<ProgramData::ProgramBlock>::const_iterator ProgramData::prepare_program(const Program &prog) const
+{
+       UniformBlock *old_last_block = last_buffer_block;
+       auto prog_begin = get_program(prog);
 
        Mask force_dirty = (dirty==ALL_ONES ? ALL_ONES : 0U);
-       Mask affected = (dirty&pu.used) | force_dirty;
-       if(affected|pu.dirty)
+       Mask affected = (dirty&prog_begin->masks.used) | force_dirty;
+       if(affected|prog_begin->masks.dirty)
        {
-               /* If the global dirty flag affects this program, add it to per-program
-               dirty flags and clear the global flag.  A previously unseen program will
-               cause this to happen if there's any dirty uniforms. */
+               /* If the global dirty flag affects this program, add it to per-block and
+               per-program dirty flags and clear the global flag.  A previously unseen
+               program will cause this to happen if there's any dirty uniforms. */
                if(affected)
                {
-                       for(BlockMap::iterator i=blocks.begin(); i!=blocks.end(); ++i)
-                               i->second.dirty |= (dirty&i->second.used) | force_dirty;
-                       for(ProgramMap::iterator i=programs.begin(); i!=programs.end(); ++i)
-                               i->second.dirty |= (dirty&i->second.used) | force_dirty;
+                       for(SharedBlock &b: blocks)
+                               b.dirty |= (dirty&b.used) | force_dirty;
+                       for(ProgramBlock &b: programs)
+                               if(b.block_index<0)
+                                       b.masks.dirty |= (dirty&b.masks.used) | force_dirty;
                        dirty = 0;
                }
 
-               const Program::UniformBlockMap &prog_blocks = prog->get_uniform_blocks();
+               const vector<ReflectData::UniformBlockInfo> &block_infos = prog.get_uniform_blocks();
 
-               UniformBlock *old_last_block = last_block;
-               if(pu.dirty==ALL_ONES)
+               if(prog_begin->masks.dirty==ALL_ONES)
                {
                        /* The set of uniforms has changed since this program was last used.
-                       Regenerate the list of uniform blocks. */
-                       pu.blocks.clear();
-                       pu.blocks.reserve(prog_blocks.size());
-
-                       pu.used = 0;
-                       for(Program::UniformBlockMap::const_iterator i=prog_blocks.begin(); i!=prog_blocks.end(); ++i)
+                       Refresh uniform indices within the program's blocks. */
+                       prog_begin->masks.used = 0;
+                       auto j = prog_begin+1;
+                       for(const ReflectData::UniformBlockInfo &b: block_infos)
                        {
-                               SharedBlock *shared = get_shared_block(i->second);
-                               if(shared)
-                               {
-                                       if(shared->dirty==ALL_ONES)
-                                               update_block_uniform_indices(*shared, i->second);
-                                       pu.used |= shared->used;
-                               }
-
-                               pu.blocks.push_back(ProgramBlock(i->second.bind_point, shared));
+                               SharedBlock &shared = blocks[j->block_index];
+                               if(shared.dirty==ALL_ONES)
+                                       update_block_uniform_indices(shared, b);
+                               prog_begin->masks.used |= shared.used;
+                               j->block = (shared.used ? shared.block : 0);
+                               ++j;
                        }
                }
 
                // Update the contents of all dirty blocks.
                bool buffered_blocks_updated = false;
-               std::vector<ProgramBlock>::iterator j = pu.blocks.begin();
-               for(Program::UniformBlockMap::const_iterator i=prog_blocks.begin(); i!=prog_blocks.end(); ++i, ++j)
+               auto j = prog_begin+1;
+               for(const ReflectData::UniformBlockInfo &b: block_infos)
                {
-                       if(!j->shared || !j->shared->dirty)
-                               continue;
-
-                       update_block(*j->shared, i->second);
-                       j->shared->dirty = 0;
-                       buffered_blocks_updated |= (j->bind_point>=0);
+                       SharedBlock &shared = blocks[j->block_index];
+                       if(shared.dirty)
+                       {
+                               update_block(shared, b);
+                               shared.dirty = 0;
+                               buffered_blocks_updated |= (j->bind_point>=0);
+                       }
+                       ++j;
                }
 
-               pu.dirty = 0;
+               prog_begin->masks.dirty = 0;
 
-               /* If any blocks stored in the buffer were updated, bind the buffer here
-               to avoid state thrashing. */
-               if(buffered_blocks_updated && !ARB_direct_state_access)
-                       buffer->bind();
-
-               if(last_block!=old_last_block)
+               if(last_buffer_block!=old_last_block)
                {
-                       unsigned required_size = last_block->get_required_buffer_size();
-                       if(last_block->get_required_buffer_size()>buffer->get_size())
+                       unsigned required_size = last_buffer_block->get_required_buffer_size();
+                       if(last_buffer_block->get_required_buffer_size()>buffer->get_size())
                        {
                                if(buffer->get_size()>0)
                                {
                                        delete buffer;
-                                       buffer = new Buffer(UNIFORM_BUFFER);
-                                       last_block->change_buffer(buffer);
+                                       buffer = new Buffer();
+                                       last_buffer_block->change_buffer(buffer);
+
+#ifdef DEBUG
+                                       if(!debug_name.empty())
+                                               buffer->set_debug_name(debug_name);
+#endif
                                }
 
                                buffer->storage(required_size);
@@ -673,57 +626,57 @@ void ProgramData::apply() const
                }
        }
 
-       for(vector<ProgramBlock>::iterator i=pu.blocks.begin(); i!=pu.blocks.end(); ++i)
-               if(i->block)
-                       i->block->apply(i->bind_point);
+       return prog_begin;
 }
 
+void ProgramData::apply(const Program &prog, PipelineState &state) const
+{
+       auto prog_begin = prepare_program(prog);
+       ReflectData::LayoutHash prog_hash = prog_begin->prog_hash;
+       for(auto i=prog_begin+1; (i!=programs.end() && i->prog_hash==prog_hash); ++i)
+               if(i->block)
+               {
+                       state.set_uniform_block(i->bind_point, i->block);
+                       if(i->bind_point>=0)
+                               i->block->refresh();
+               }
+}
 
-ProgramData::NamedUniform::NamedUniform():
-       value(0)
-{ }
-
-void ProgramData::NamedUniform::replace_value(Uniform *v)
+void ProgramData::set_debug_name(const string &name)
 {
-       /* UniformBlock does not copy the uniforms, so existing default blocks
-       will be left with stale pointers.  This is not a problem as long as no
-       one stores pointers to the blocks and expects them to stay valid. */
-       delete value;
-       value = v;
+#ifdef DEBUG
+       debug_name = name;
+       if(buffer)
+               buffer->set_debug_name(name);
+#else
+       (void)name;
+#endif
 }
 
 
-ProgramData::SharedBlock::SharedBlock(UniformBlock *b):
+ProgramData::SharedBlock::SharedBlock(ReflectData::LayoutHash h):
+       block_hash(h),
        used(0),
        dirty(0),
-       block(b)
+       block(0)
 {
        indices.type_flag = 0xFD;
 }
 
-const UInt8 *ProgramData::SharedBlock::get_uniform_indices() const
+const uint8_t *ProgramData::SharedBlock::get_uniform_indices() const
 {
        return (indices.type_flag==0xFE ? indices.dynamic.values : indices.values);
 }
 
 
-ProgramData::ProgramBlock::ProgramBlock():
+ProgramData::ProgramBlock::ProgramBlock(ReflectData::LayoutHash h):
+       prog_hash(h),
        bind_point(-1),
-       block(0),
-       shared(0)
-{ }
-
-ProgramData::ProgramBlock::ProgramBlock(int p, SharedBlock *b):
-       bind_point(p),
-       block((b && b->used) ? b->block : 0),
-       shared(b)
-{ }
-
-
-ProgramData::ProgramUniforms::ProgramUniforms():
-       used(ALL_ONES),
-       dirty(ALL_ONES)
-{ }
+       block_index(-1)
+{
+       masks.used = ALL_ONES;
+       masks.dirty = ALL_ONES;
+}
 
 
 ProgramData::Loader::Loader(ProgramData &pd):