source/glsl/finalize.cpp

   1 #include <msp/core/algorithm.h>
   2 #include <msp/core/hash.h>
   3 #include <msp/core/raii.h>
   4 #include <msp/strings/lexicalcast.h>
   5 #include "finalize.h"
   6 #include "glsl_error.h"
   7 #include "reflect.h"
   8
   9 using namespace std;
  10
  11 namespace Msp {
  12 namespace GL {
  13 namespace SL {
  14
  15 void StructOrganizer::visit(StructDeclaration &strct)
  16 {
  17         SetForScope<int> set_offset(offset, 0);
  18         TraversingVisitor::visit(strct);
  19 }
  20
  21 void StructOrganizer::visit(VariableDeclaration &var)
  22 {
  23         if(offset>=0)
  24         {
  25                 int *layout_offset = 0;
  26                 bool has_matrix_order = false;
  27                 if(var.layout)
  28                 {
  29                         for(Layout::Qualifier &q: var.layout->qualifiers)
  30                         {
  31                                 if(q.name=="offset" && q.has_value)
  32                                 {
  33                                         layout_offset = &q.value;
  34                                         if(q.value>=offset)
  35                                                 offset = q.value;
  36                                 }
  37                                 else if(q.name=="column_major" || q.name=="row_major")
  38                                         has_matrix_order = true;
  39                         }
  40                 }
  41
  42                 MemoryRequirementsCalculator::Result mem_reqs = MemoryRequirementsCalculator().apply(var);
  43                 offset += mem_reqs.alignment-1;
  44                 offset -= offset%mem_reqs.alignment;
  45
  46                 if(layout_offset)
  47                         *layout_offset = offset;
  48                 else
  49                         add_layout_qualifier(var.layout, Layout::Qualifier("offset", offset));
  50
  51                 if(!has_matrix_order)
  52                 {
  53                         const BasicTypeDeclaration *basic = dynamic_cast<const BasicTypeDeclaration *>(var.type_declaration);
  54                         while(basic && basic->kind==BasicTypeDeclaration::ARRAY)
  55                                 basic = dynamic_cast<const BasicTypeDeclaration *>(basic->base_type);
  56                         if(basic && basic->kind==BasicTypeDeclaration::MATRIX)
  57                                 add_layout_qualifier(var.layout, Layout::Qualifier("column_major"));
  58                 }
  59
  60                 offset += mem_reqs.size;
  61         }
  62 }
  63
  64
  65 void LocationAllocator::apply(Module &module, const Features &f, bool a)
  66 {
  67         features = f;
  68         alloc_new = a;
  69         for(Stage &s: module.stages)
  70                 apply(s);
  71
  72         if(features.target_api!=VULKAN)
  73                 allocate_locations("uniform");
  74
  75         for(VariableDeclaration *b: unbound_blocks)
  76                 bind_uniform(b->layout, b->block_declaration->block_name, features.uniform_binding_range);
  77         for(VariableDeclaration *t: unbound_textures)
  78                 bind_uniform(t->layout, t->name, features.texture_binding_range);
  79 }
  80
  81 void LocationAllocator::apply(Stage &stage)
  82 {
  83         swap(used_locations["in"], used_locations["out"]);
  84         used_locations["out"].clear();
  85
  86         stage.content.visit(*this);
  87
  88         allocate_locations("in");
  89         allocate_locations("out");
  90 }
  91
  92 void LocationAllocator::allocate_locations(const string &iface)
  93 {
  94         auto write = unplaced_variables.begin();
  95         unsigned next = 0;
  96         for(auto i=unplaced_variables.begin(); i!=unplaced_variables.end(); ++i)
  97         {
  98                 if((*i)->interface!=iface)
  99                 {
 100                         if(write!=i)
 101                                 *write = *i;
 102                         ++write;
 103                         continue;
 104                 }
 105
 106                 if((*i)->interface=="uniform")
 107                 {
 108                         auto j = uniforms.find((*i)->name);
 109                         if(j!=uniforms.end() && j->second.location>=0)
 110                         {
 111                                 add_layout_qualifier((*i)->layout, Layout::Qualifier("location", j->second.location));
 112                                 continue;
 113                         }
 114                 }
 115
 116                 if(!alloc_new)
 117                         continue;
 118
 119                 set<unsigned> &used = used_locations[(*i)->interface];
 120
 121                 unsigned size = LocationCounter().apply(**i);
 122                 while(1)
 123                 {
 124                         int blocking = -1;
 125                         for(unsigned j=0; j<size; ++j)
 126                                 if(used.count(next+j))
 127                                         blocking = next+j;
 128                         if(blocking<0)
 129                                 break;
 130                         next = blocking+1;
 131                 }
 132
 133                 add_layout_qualifier((*i)->layout, Layout::Qualifier("location", next));
 134                 if((*i)->interface=="uniform")
 135                         uniforms[(*i)->name].location = next;
 136
 137                 for(unsigned j=0; j<size; ++j)
 138                         used.insert(next+j);
 139                 next += size;
 140         }
 141
 142         unplaced_variables.erase(write, unplaced_variables.end());
 143 }
 144
 145 void LocationAllocator::bind_uniform(RefPtr<Layout> &layout, const string &name, unsigned range)
 146 {
 147         auto i = uniforms.find(name);
 148
 149         int desc_set = (i!=uniforms.end() ? i->second.desc_set : 0);
 150         if(features.target_api==VULKAN && get_layout_value(layout.get(), "set")<0)
 151                 add_layout_qualifier(layout, Layout::Qualifier("set", desc_set));
 152
 153         if(i!=uniforms.end() && i->second.bind_point>=0)
 154                 add_layout_qualifier(layout, Layout::Qualifier("binding", i->second.bind_point));
 155         else if(alloc_new)
 156         {
 157                 set<unsigned> &used = used_bindings[desc_set];
 158
 159                 unsigned bind_point = hash_fold<32>(hash<64>(name))%range;
 160                 while(used.count(bind_point))
 161                         bind_point = (bind_point+1)%range;
 162
 163                 add_layout_qualifier(layout, Layout::Qualifier("binding", bind_point));
 164                 uniforms[name].bind_point = bind_point;
 165                 used.insert(bind_point);
 166         }
 167 }
 168
 169 bool LocationAllocator::visit_uniform(const string &name, RefPtr<Layout> &layout)
 170 {
 171         int desc_set = get_layout_value(layout.get(), "set");
 172         int bind_point = get_layout_value(layout.get(), "binding");
 173
 174         if(features.target_api==VULKAN)
 175         {
 176                 if(desc_set<0 && bind_point>=0)
 177                 {
 178                         desc_set = 0;
 179                         add_layout_qualifier(layout, Layout::Qualifier("set", desc_set));
 180                 }
 181
 182                 if(desc_set>=0)
 183                         uniforms[name].desc_set = desc_set;
 184         }
 185         else if(desc_set>=0 && bind_point<0)
 186         {
 187                 auto i = find_member(layout->qualifiers, string("set"), &Layout::Qualifier::name);
 188                 layout->qualifiers.erase(i);
 189         }
 190
 191         if(bind_point>=0)
 192         {
 193                 used_bindings[desc_set].insert(bind_point);
 194                 uniforms[name].bind_point = bind_point;
 195         }
 196
 197         return bind_point>=0;
 198 }
 199
 200 void LocationAllocator::visit(VariableDeclaration &var)
 201 {
 202         if(!var.name.compare(0, 3, "gl_"))
 203                 return;
 204
 205         if(!var.interface.empty() && !var.block_declaration)
 206         {
 207                 int location = get_layout_value(var.layout.get(), "location");
 208
 209                 if(location<0 && var.linked_declaration && var.linked_declaration->layout)
 210                 {
 211                         location = get_layout_value(var.linked_declaration->layout.get(), "location");
 212                         if(location>=0)
 213                                 add_layout_qualifier(var.layout, Layout::Qualifier("location", location));
 214                 }
 215
 216                 if(location>=0)
 217                 {
 218                         unsigned size = LocationCounter().apply(var);
 219                         for(unsigned i=0; i<size; ++i)
 220                                 used_locations[var.interface].insert(location+i);
 221                         if(var.interface=="uniform")
 222                                 uniforms[var.name].location = location;
 223                 }
 224                 else
 225                         unplaced_variables.push_back(&var);
 226         }
 227
 228         if(var.interface=="uniform")
 229         {
 230                 if(var.block_declaration)
 231                 {
 232                         bool push_constant = has_layout_qualifier(var.layout.get(), "push_constant");
 233                         if(!push_constant && !visit_uniform(var.block_declaration->block_name, var.layout))
 234                                 unbound_blocks.push_back(&var);
 235                 }
 236                 else
 237                 {
 238                         const TypeDeclaration *base_type = get_ultimate_base_type(var.type_declaration);
 239                         if(dynamic_cast<const ImageTypeDeclaration *>(base_type) && !visit_uniform(var.name, var.layout))
 240                                 unbound_textures.push_back(&var);
 241                 }
 242         }
 243 }
 244
 245
 246 void DepthRangeConverter::apply(Stage &stage, const Features &features)
 247 {
 248         if(stage.type!=Stage::VERTEX || features.target_api==VULKAN)
 249                 return;
 250
 251         stage.content.visit(*this);
 252 }
 253
 254 void DepthRangeConverter::visit(VariableReference &var)
 255 {
 256         const StructDeclaration *strct = dynamic_cast<const StructDeclaration *>(var.type);
 257         r_gl_pervertex = (strct && strct->block_name=="gl_PerVertex");
 258 }
 259
 260 void DepthRangeConverter::visit(MemberAccess &memacc)
 261 {
 262         r_gl_pervertex = false;
 263         memacc.left->visit(*this);
 264         r_gl_position = (r_gl_pervertex && memacc.member=="gl_Position");
 265 }
 266
 267 void DepthRangeConverter::visit(Swizzle &swiz)
 268 {
 269         r_gl_position = false;
 270         swiz.left->visit(*this);
 271         if(assignment_target && r_gl_position && swiz.count==1 && swiz.components[0]==2)
 272                 r_position_z_assigned = true;
 273 }
 274
 275 void DepthRangeConverter::visit(Assignment &assign)
 276 {
 277         {
 278                 SetFlag set_target(assignment_target);
 279                 assign.left->visit(*this);
 280         }
 281         assign.right->visit(*this);
 282 }
 283
 284 void DepthRangeConverter::visit(FunctionDeclaration &func)
 285 {
 286         r_position_z_assigned = false;
 287         TraversingVisitor::visit(func);
 288
 289         if(func.definition==&func && func.name=="main" && !r_position_z_assigned)
 290         {
 291                 VariableReference *position = new VariableReference;
 292                 position->name = "gl_Position";
 293
 294                 MemberAccess *z = new MemberAccess;
 295                 z->left = position;
 296                 z->member = "z";
 297
 298                 Literal *scale = new Literal;
 299                 scale->token = "2.0";
 300                 scale->value = 2.0f;
 301
 302                 BinaryExpression *multiply = new BinaryExpression;
 303                 multiply->oper = &Operator::get_operator("*", Operator::BINARY);
 304                 multiply->left = z;
 305                 multiply->right = scale;
 306
 307                 MemberAccess *w = new MemberAccess;
 308                 w->left = position->clone();
 309                 w->member = "w";
 310
 311                 BinaryExpression *subtract = new BinaryExpression;
 312                 subtract->oper = &Operator::get_operator("-", Operator::BINARY);
 313                 subtract->left = multiply;
 314                 subtract->right = w;
 315
 316                 Assignment *assign = new Assignment;
 317                 assign->oper = &Operator::get_operator("=", Operator::BINARY);
 318                 assign->left = z->clone();
 319                 assign->right = subtract;
 320
 321                 ExpressionStatement *statement = new ExpressionStatement;
 322                 statement->expression = assign;
 323
 324                 func.body.body.push_back(statement);
 325         }
 326 }
 327
 328
 329 void PrecisionConverter::apply(Stage &s)
 330 {
 331         stage = &s;
 332         s.content.visit(*this);
 333         NodeRemover().apply(s, nodes_to_remove);
 334 }
 335
 336 void PrecisionConverter::visit(Block &block)
 337 {
 338         for(auto i=block.body.begin(); i!=block.body.end(); ++i)
 339         {
 340                 if(&block==&stage->content)
 341                         insert_point = i;
 342                 (*i)->visit(*this);
 343         }
 344 }
 345
 346 void PrecisionConverter::visit(Precision &prec)
 347 {
 348         if(stage->required_features.target_api==OPENGL_ES)
 349                 have_default.insert(prec.type);
 350         else
 351                 nodes_to_remove.insert(&prec);
 352 }
 353
 354 void PrecisionConverter::visit(VariableDeclaration &var)
 355 {
 356         if(stage->required_features.target_api!=OPENGL_ES)
 357         {
 358                 var.precision.clear();
 359                 return;
 360         }
 361
 362         const char *default_prec = (stage->type==Stage::FRAGMENT ? "mediump" : "highp");
 363         const TypeDeclaration *type = var.type_declaration;
 364         while(type)
 365         {
 366                 if(dynamic_cast<const ImageTypeDeclaration *>(type))
 367                 {
 368                         default_prec = "lowp";
 369                         break;
 370                 }
 371                 else if(const BasicTypeDeclaration *basic = dynamic_cast<const BasicTypeDeclaration *>(type))
 372                 {
 373                         if(basic->kind==BasicTypeDeclaration::INT || basic->kind==BasicTypeDeclaration::FLOAT)
 374                                 break;
 375                         type = basic->base_type;
 376                 }
 377                 else
 378                         return;
 379         }
 380         if(!type)
 381                 return;
 382
 383         if(!have_default.count(type->name))
 384         {
 385                 Precision *prec = new Precision;
 386                 prec->precision = default_prec;
 387                 prec->type = type->name;
 388                 stage->content.body.insert(insert_point, prec);
 389
 390                 have_default.insert(type->name);
 391         }
 392 }
 393
 394
 395 void FeatureConverter::apply(Stage &s, const Features &feat)
 396 {
 397         stage = &s;
 398         features = feat;
 399
 400         if(!stage->required_features.glsl_version)
 401                 stage->required_features.glsl_version = Version(1, (stage->required_features.target_api==OPENGL_ES ? 0 : 10));
 402
 403         apply();
 404 }
 405
 406 void FeatureConverter::unsupported(const string &reason)
 407 {
 408         Diagnostic diagnostic;
 409         diagnostic.severity = Diagnostic::ERR;
 410         diagnostic.source = GENERATED_SOURCE;
 411         diagnostic.line = 0;
 412         diagnostic.message = reason;
 413         stage->diagnostics.push_back(diagnostic);
 414 }
 415
 416 bool FeatureConverter::check_version(const Version &feature_version) const
 417 {
 418         if(features.glsl_version<feature_version)
 419                 return false;
 420         else if(stage->required_features.glsl_version<feature_version)
 421                 stage->required_features.glsl_version = feature_version;
 422
 423         return true;
 424 }
 425
 426 bool FeatureConverter::check_extension(bool Features::*extension) const
 427 {
 428         if(!(features.*extension))
 429                 return false;
 430
 431         stage->required_features.*extension = true;
 432
 433         return true;
 434 }
 435
 436
 437 void StructuralFeatureConverter::apply()
 438 {
 439         if(supports_stage(stage->type))
 440         {
 441                 stage->content.visit(*this);
 442                 NodeRemover().apply(*stage, nodes_to_remove);
 443         }
 444         else
 445                 unsupported(format("Stage %s is not supported", Stage::get_stage_name(stage->type)));
 446 }
 447
 448 void StructuralFeatureConverter::visit(Block &block)
 449 {
 450         for(auto i=block.body.begin(); i!=block.body.end(); ++i)
 451         {
 452                 if(&block==&stage->content)
 453                         uniform_insert_point = i;
 454                 (*i)->visit(*this);
 455         }
 456 }
 457
 458 void StructuralFeatureConverter::visit(RefPtr<Expression> &expr)
 459 {
 460         r_replaced_reference = 0;
 461         expr->visit(*this);
 462         if(r_replaced_reference)
 463                 expr = r_replaced_reference;
 464         r_replaced_reference = 0;
 465 }
 466
 467 bool StructuralFeatureConverter::supports_stage(Stage::Type st) const
 468 {
 469         if(st==Stage::GEOMETRY)
 470         {
 471                 if(features.target_api==OPENGL_ES)
 472                         return check_version(Version(3, 20));
 473                 else
 474                         return check_version(Version(1, 50));
 475         }
 476         else
 477                 return true;
 478 }
 479
 480 bool StructuralFeatureConverter::supports_unified_interface_syntax() const
 481 {
 482         if(features.target_api==OPENGL_ES)
 483                 return check_version(Version(3, 0));
 484         else
 485                 return check_version(Version(1, 30));
 486 }
 487
 488 void StructuralFeatureConverter::visit(VariableReference &var)
 489 {
 490         if(var.declaration==frag_out && !supports_unified_interface_syntax())
 491         {
 492                 var.name = "gl_FragColor";
 493                 var.declaration = 0;
 494         }
 495
 496         r_flattened_interface = nodes_to_remove.count(var.declaration);
 497 }
 498
 499 void StructuralFeatureConverter::visit(MemberAccess &memacc)
 500 {
 501         r_flattened_interface = false;
 502         visit(memacc.left);
 503         if(r_flattened_interface)
 504         {
 505                 VariableReference *var = new VariableReference;
 506                 var->name = memacc.member;
 507                 r_replaced_reference = var;
 508         }
 509 }
 510
 511 void StructuralFeatureConverter::visit(Assignment &assign)
 512 {
 513         TraversingVisitor::visit(assign);
 514         if(assign.target.declaration==frag_out && !supports_unified_interface_syntax())
 515                 assign.target.declaration = 0;
 516 }
 517
 518 bool StructuralFeatureConverter::supports_unified_sampling_functions() const
 519 {
 520         if(features.target_api==OPENGL_ES)
 521                 return check_version(Version(3, 0));
 522         else
 523                 return check_version(Version(1, 30));
 524 }
 525
 526 void StructuralFeatureConverter::visit(FunctionCall &call)
 527 {
 528         if(call.declaration && call.declaration->source==BUILTIN_SOURCE)
 529         {
 530                 if(!call.name.compare(0, 7, "texture") && call.arguments.size()>=1)
 531                 {
 532                         const ImageTypeDeclaration *arg_image = dynamic_cast<const ImageTypeDeclaration *>(call.arguments.front()->type);
 533                         if(arg_image && !supports_unified_sampling_functions())
 534                         {
 535                                 string suffix = call.name.substr(7);
 536                                 call.name = (arg_image->shadow ? "shadow" : "texture");
 537
 538                                 switch(arg_image->dimensions)
 539                                 {
 540                                 case ImageTypeDeclaration::ONE: call.name += "1D"; break;
 541                                 case ImageTypeDeclaration::TWO: call.name += "2D"; break;
 542                                 case ImageTypeDeclaration::THREE: call.name += "3D"; break;
 543                                 case ImageTypeDeclaration::CUBE: call.name += "Cube"; break;
 544                                 }
 545
 546                                 if(arg_image->array)
 547                                 {
 548                                         /* Array textures and the unified sampling function name were
 549                                         both introduced in GLSL 1.30. */
 550                                         if(arg_image->dimensions==ImageTypeDeclaration::ONE || arg_image->dimensions==ImageTypeDeclaration::TWO)
 551                                                 check_extension(&Features::ext_texture_array);
 552                                         call.name += "Array";
 553                                 }
 554
 555                                 call.name += suffix;
 556                         }
 557                 }
 558         }
 559
 560         TraversingVisitor::visit(call);
 561 }
 562
 563 bool StructuralFeatureConverter::supports_interface_blocks(const string &iface) const
 564 {
 565         if(features.target_api==OPENGL_ES)
 566         {
 567                 if(iface=="uniform")
 568                         return check_version(Version(3, 0));
 569                 else
 570                         return check_version(Version(3, 20));
 571         }
 572         else if(check_version(Version(1, 50)))
 573                 return true;
 574         else if(iface=="uniform")
 575                 return check_extension(&Features::arb_uniform_buffer_object);
 576         else
 577                 return false;
 578 }
 579
 580 void StructuralFeatureConverter::visit(VariableDeclaration &var)
 581 {
 582         if(var.block_declaration)
 583         {
 584                 bool push_constant = has_layout_qualifier(var.layout.get(), "push_constant");
 585                 if(!supports_interface_blocks(var.interface) || (push_constant && features.target_api!=VULKAN))
 586                 {
 587                         if(var.name.find(' ')==string::npos)
 588                                 unsupported("ARB_uniform_buffer_object required for interface block instances");
 589                         else
 590                         {
 591                                 for(const RefPtr<Statement> &s: var.block_declaration->members.body)
 592                                         if(VariableDeclaration *mem = dynamic_cast<VariableDeclaration *>(s.get()))
 593                                                 mem->interface = var.interface;
 594                                 stage->content.body.splice(uniform_insert_point, var.block_declaration->members.body);
 595                                 nodes_to_remove.insert(&var);
 596                                 nodes_to_remove.insert(var.block_declaration);
 597                         }
 598                 }
 599         }
 600
 601         if((var.interface=="in" || var.interface=="out") && !supports_unified_interface_syntax())
 602                 if(stage->type==Stage::FRAGMENT && var.interface=="out")
 603                 {
 604                         frag_out = &var;
 605                         nodes_to_remove.insert(&var);
 606                 }
 607
 608         TraversingVisitor::visit(var);
 609 }
 610
 611
 612 void QualifierConverter::apply()
 613 {
 614         stage->content.visit(*this);
 615 }
 616
 617 bool QualifierConverter::supports_interface_layouts() const
 618 {
 619         if(features.target_api==OPENGL_ES)
 620                 return check_version(Version(3, 0));
 621         else if(check_version(Version(3, 30)))
 622                 return true;
 623         else if(check_version(Version(1, 30)))
 624                 return check_extension(&Features::arb_explicit_attrib_location);
 625         else
 626                 return false;
 627 }
 628
 629 bool QualifierConverter::supports_stage_interface_layouts() const
 630 {
 631         if(features.target_api==OPENGL_ES)
 632                 return check_version(Version(3, 10));
 633         else if(check_version(Version(4, 10)))
 634                 return true;
 635         else
 636                 return check_extension(&Features::arb_separate_shader_objects);
 637 }
 638
 639 bool QualifierConverter::supports_centroid_sampling() const
 640 {
 641         if(features.target_api==OPENGL_ES)
 642                 return check_version(Version(3, 0));
 643         else if(check_version(Version(1, 20)))
 644                 return true;
 645         else
 646                 return check_extension(&Features::ext_gpu_shader4);
 647 }
 648
 649 bool QualifierConverter::supports_sample_sampling() const
 650 {
 651         if(features.target_api==OPENGL_ES)
 652                 return check_version(Version(3, 20));
 653         else if(check_version(Version(4, 0)))
 654                 return true;
 655         else
 656                 return check_extension(&Features::arb_gpu_shader5);
 657 }
 658
 659 bool QualifierConverter::supports_uniform_location() const
 660 {
 661         if(features.target_api==OPENGL_ES)
 662                 return check_version(Version(3, 10));
 663         else if(check_version(Version(4, 30)))
 664                 return true;
 665         else
 666                 return check_extension(&Features::arb_explicit_uniform_location);
 667 }
 668
 669 bool QualifierConverter::supports_binding() const
 670 {
 671         if(features.target_api==OPENGL_ES)
 672                 return check_version(Version(3, 10));
 673         else
 674                 return check_version(Version(4, 20));
 675 }
 676
 677 bool QualifierConverter::supports_interface_block_location() const
 678 {
 679         if(features.target_api==OPENGL_ES)
 680                 return check_version(Version(3, 20));
 681         else if(check_version(Version(4, 40)))
 682                 return true;
 683         else
 684                 return check_extension(&Features::arb_enhanced_layouts);
 685 }
 686
 687 void QualifierConverter::visit(VariableDeclaration &var)
 688 {
 689         if(var.layout)
 690         {
 691                 for(auto i=var.layout->qualifiers.begin(); i!=var.layout->qualifiers.end(); )
 692                 {
 693                         if(i->name=="location")
 694                         {
 695                                 bool supported = true;
 696                                 bool external = false;
 697                                 if(var.block_declaration)
 698                                         supported = supports_interface_block_location();
 699                                 else if(var.interface=="in")
 700                                 {
 701                                         external = (stage->type==Stage::VERTEX);
 702                                         supported = (external ? supports_interface_layouts() : supports_stage_interface_layouts());
 703                                 }
 704                                 else if(var.interface=="out")
 705                                 {
 706                                         external = (stage->type==Stage::FRAGMENT);
 707                                         supported = (external ? supports_interface_layouts() : supports_stage_interface_layouts());
 708                                         if(external && !supported && !check_extension(&Features::ext_gpu_shader4))
 709                                         {
 710                                                 external = false;
 711                                                 if(i->value!=0)
 712                                                         unsupported("EXT_gpu_shader4 required for multiple fragment shader outputs");
 713                                         }
 714                                 }
 715                                 else if(var.interface=="uniform")
 716                                         supported = supports_uniform_location();
 717
 718                                 if(!supported)
 719                                 {
 720                                         if(external)
 721                                                 stage->locations[var.name] = i->value;
 722                                         i = var.layout->qualifiers.erase(i);
 723                                 }
 724                                 else
 725                                         ++i;
 726                         }
 727                         else if(i->name=="binding" && !supports_binding())
 728                         {
 729                                 if(var.block_declaration)
 730                                         stage->uniform_block_bindings[var.block_declaration->block_name] = i->value;
 731                                 else if(dynamic_cast<const ImageTypeDeclaration *>(get_ultimate_base_type(var.type_declaration)))
 732                                         stage->texture_bindings[var.name] = i->value;
 733
 734                                 i = var.layout->qualifiers.erase(i);
 735                         }
 736                         else
 737                                 ++i;
 738                 }
 739
 740                 if(var.layout->qualifiers.empty())
 741                         var.layout = 0;
 742         }
 743
 744         if(var.sampling=="centroid")
 745         {
 746                 if(!supports_centroid_sampling())
 747                         var.sampling = string();
 748         }
 749         else if(var.sampling=="sample")
 750         {
 751                 if(!supports_sample_sampling())
 752                         var.sampling = string();
 753         }
 754
 755         if(var.name=="gl_ClipDistance")
 756                 if(const Literal *literal_size = dynamic_cast<const Literal *>(var.array_size.get()))
 757                         stage->n_clip_distances = literal_size->value.value<int>();
 758
 759         TraversingVisitor::visit(var);
 760 }
 761
 762 } // namespace SL
 763 } // namespace GL
 764 } // namespace Msp