src/compiler/glsl/standalone.cpp

   1 /*
   2  * Copyright © 2008, 2009 Intel Corporation
   3  *
   4  * Permission is hereby granted, free of charge, to any person obtaining a
   5  * copy of this software and associated documentation files (the "Software"),
   6  * to deal in the Software without restriction, including without limitation
   7  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
   8  * and/or sell copies of the Software, and to permit persons to whom the
   9  * Software is furnished to do so, subject to the following conditions:
  10  *
  11  * The above copyright notice and this permission notice (including the next
  12  * paragraph) shall be included in all copies or substantial portions of the
  13  * Software.
  14  *
  15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  16  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
  18  * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  19  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  20  * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  21  * DEALINGS IN THE SOFTWARE.
  22  */
  23 #include <getopt.h>
  24
  25 /** @file standalone.cpp
  26  *
  27  * Standalone compiler helper lib.  Used by standalone glsl_compiler and
  28  * also available to drivers to implement their own standalone compiler
  29  * with driver backend.
  30  */
  31
  32 #include "ast.h"
  33 #include "glsl_parser_extras.h"
  34 #include "ir_optimization.h"
  35 #include "program.h"
  36 #include "loop_analysis.h"
  37 #include "standalone_scaffolding.h"
  38 #include "standalone.h"
  39 #include "string_to_uint_map.h"
  40 #include "util/set.h"
  41 #include "linker.h"
  42 #include "glsl_parser_extras.h"
  43 #include "ir_builder_print_visitor.h"
  44 #include "builtin_functions.h"
  45 #include "opt_add_neg_to_sub.h"
  46 #include "main/mtypes.h"
  47 #include "program/program.h"
  48
  49 class dead_variable_visitor : public ir_hierarchical_visitor {
  50 public:
  51    dead_variable_visitor()
  52    {
  53       variables = _mesa_pointer_set_create(NULL);
  54    }
  55
  56    virtual ~dead_variable_visitor()
  57    {
  58       _mesa_set_destroy(variables, NULL);
  59    }
  60
  61    virtual ir_visitor_status visit(ir_variable *ir)
  62    {
  63       /* If the variable is auto or temp, add it to the set of variables that
  64        * are candidates for removal.
  65        */
  66       if (ir->data.mode != ir_var_auto && ir->data.mode != ir_var_temporary)
  67          return visit_continue;
  68
  69       _mesa_set_add(variables, ir);
  70
  71       return visit_continue;
  72    }
  73
  74    virtual ir_visitor_status visit(ir_dereference_variable *ir)
  75    {
  76       struct set_entry *entry = _mesa_set_search(variables, ir->var);
  77
  78       /* If a variable is dereferenced at all, remove it from the set of
  79        * variables that are candidates for removal.
  80        */
  81       if (entry != NULL)
  82          _mesa_set_remove(variables, entry);
  83
  84       return visit_continue;
  85    }
  86
  87    void remove_dead_variables()
  88    {
  89       set_foreach(variables, entry) {
  90          ir_variable *ir = (ir_variable *) entry->key;
  91
  92          assert(ir->ir_type == ir_type_variable);
  93          ir->remove();
  94       }
  95    }
  96
  97 private:
  98    set *variables;
  99 };
 100
 101 static void
 102 init_gl_program(struct gl_program *prog, bool is_arb_asm, GLenum target)
 103 {
 104    prog->RefCount = 1;
 105    prog->Format = GL_PROGRAM_FORMAT_ASCII_ARB;
 106    prog->is_arb_asm = is_arb_asm;
 107    prog->info.stage = (gl_shader_stage)_mesa_program_enum_to_shader_stage(target);
 108 }
 109
 110 static struct gl_program *
 111 new_program(UNUSED struct gl_context *ctx, GLenum target,
 112             UNUSED GLuint id, bool is_arb_asm)
 113 {
 114    switch (target) {
 115    case GL_VERTEX_PROGRAM_ARB: /* == GL_VERTEX_PROGRAM_NV */
 116    case GL_GEOMETRY_PROGRAM_NV:
 117    case GL_TESS_CONTROL_PROGRAM_NV:
 118    case GL_TESS_EVALUATION_PROGRAM_NV:
 119    case GL_FRAGMENT_PROGRAM_ARB:
 120    case GL_COMPUTE_PROGRAM_NV: {
 121       struct gl_program *prog = rzalloc(NULL, struct gl_program);
 122       init_gl_program(prog, is_arb_asm, target);
 123       return prog;
 124    }
 125    default:
 126       printf("bad target in new_program\n");
 127       return NULL;
 128    }
 129 }
 130
 131 static const struct standalone_options *options;
 132
 133 static void
 134 initialize_context(struct gl_context *ctx, gl_api api)
 135 {
 136    initialize_context_to_defaults(ctx, api);
 137    glsl_type_singleton_init_or_ref();
 138
 139    /* The standalone compiler needs to claim support for almost
 140     * everything in order to compile the built-in functions.
 141     */
 142    ctx->Const.GLSLVersion = options->glsl_version;
 143    ctx->Extensions.ARB_ES3_compatibility = true;
 144    ctx->Extensions.ARB_ES3_1_compatibility = true;
 145    ctx->Extensions.ARB_ES3_2_compatibility = true;
 146    ctx->Const.MaxComputeWorkGroupCount[0] = 65535;
 147    ctx->Const.MaxComputeWorkGroupCount[1] = 65535;
 148    ctx->Const.MaxComputeWorkGroupCount[2] = 65535;
 149    ctx->Const.MaxComputeWorkGroupSize[0] = 1024;
 150    ctx->Const.MaxComputeWorkGroupSize[1] = 1024;
 151    ctx->Const.MaxComputeWorkGroupSize[2] = 64;
 152    ctx->Const.MaxComputeWorkGroupInvocations = 1024;
 153    ctx->Const.MaxComputeSharedMemorySize = 32768;
 154    ctx->Const.MaxComputeVariableGroupSize[0] = 512;
 155    ctx->Const.MaxComputeVariableGroupSize[1] = 512;
 156    ctx->Const.MaxComputeVariableGroupSize[2] = 64;
 157    ctx->Const.MaxComputeVariableGroupInvocations = 512;
 158    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxTextureImageUnits = 16;
 159    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxUniformComponents = 1024;
 160    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxCombinedUniformComponents = 1024;
 161    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxInputComponents = 0; /* not used */
 162    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxOutputComponents = 0; /* not used */
 163    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxAtomicBuffers = 8;
 164    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxAtomicCounters = 8;
 165    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxImageUniforms = 8;
 166    ctx->Const.Program[MESA_SHADER_COMPUTE].MaxUniformBlocks = 12;
 167
 168    switch (ctx->Const.GLSLVersion) {
 169    case 100:
 170       ctx->Const.MaxClipPlanes = 0;
 171       ctx->Const.MaxCombinedTextureImageUnits = 8;
 172       ctx->Const.MaxDrawBuffers = 2;
 173       ctx->Const.MinProgramTexelOffset = 0;
 174       ctx->Const.MaxProgramTexelOffset = 0;
 175       ctx->Const.MaxLights = 0;
 176       ctx->Const.MaxTextureCoordUnits = 0;
 177       ctx->Const.MaxTextureUnits = 8;
 178
 179       ctx->Const.Program[MESA_SHADER_VERTEX].MaxAttribs = 8;
 180       ctx->Const.Program[MESA_SHADER_VERTEX].MaxTextureImageUnits = 0;
 181       ctx->Const.Program[MESA_SHADER_VERTEX].MaxUniformComponents = 128 * 4;
 182       ctx->Const.Program[MESA_SHADER_VERTEX].MaxCombinedUniformComponents = 128 * 4;
 183       ctx->Const.Program[MESA_SHADER_VERTEX].MaxInputComponents = 0; /* not used */
 184       ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents = 32;
 185
 186       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxTextureImageUnits =
 187          ctx->Const.MaxCombinedTextureImageUnits;
 188       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxUniformComponents = 16 * 4;
 189       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxCombinedUniformComponents = 16 * 4;
 190       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxInputComponents =
 191          ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents;
 192       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxOutputComponents = 0; /* not used */
 193
 194       ctx->Const.MaxVarying = ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents / 4;
 195       break;
 196    case 110:
 197    case 120:
 198       ctx->Const.MaxClipPlanes = 6;
 199       ctx->Const.MaxCombinedTextureImageUnits = 2;
 200       ctx->Const.MaxDrawBuffers = 1;
 201       ctx->Const.MinProgramTexelOffset = 0;
 202       ctx->Const.MaxProgramTexelOffset = 0;
 203       ctx->Const.MaxLights = 8;
 204       ctx->Const.MaxTextureCoordUnits = 2;
 205       ctx->Const.MaxTextureUnits = 2;
 206
 207       ctx->Const.Program[MESA_SHADER_VERTEX].MaxAttribs = 16;
 208       ctx->Const.Program[MESA_SHADER_VERTEX].MaxTextureImageUnits = 0;
 209       ctx->Const.Program[MESA_SHADER_VERTEX].MaxUniformComponents = 512;
 210       ctx->Const.Program[MESA_SHADER_VERTEX].MaxCombinedUniformComponents = 512;
 211       ctx->Const.Program[MESA_SHADER_VERTEX].MaxInputComponents = 0; /* not used */
 212       ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents = 32;
 213
 214       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxTextureImageUnits =
 215          ctx->Const.MaxCombinedTextureImageUnits;
 216       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxUniformComponents = 64;
 217       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxCombinedUniformComponents = 64;
 218       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxInputComponents =
 219          ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents;
 220       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxOutputComponents = 0; /* not used */
 221
 222       ctx->Const.MaxVarying = ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents / 4;
 223       break;
 224    case 130:
 225    case 140:
 226       ctx->Const.MaxClipPlanes = 8;
 227       ctx->Const.MaxCombinedTextureImageUnits = 16;
 228       ctx->Const.MaxDrawBuffers = 8;
 229       ctx->Const.MinProgramTexelOffset = -8;
 230       ctx->Const.MaxProgramTexelOffset = 7;
 231       ctx->Const.MaxLights = 8;
 232       ctx->Const.MaxTextureCoordUnits = 8;
 233       ctx->Const.MaxTextureUnits = 2;
 234       ctx->Const.MaxUniformBufferBindings = 84;
 235       ctx->Const.MaxVertexStreams = 4;
 236       ctx->Const.MaxTransformFeedbackBuffers = 4;
 237
 238       ctx->Const.Program[MESA_SHADER_VERTEX].MaxAttribs = 16;
 239       ctx->Const.Program[MESA_SHADER_VERTEX].MaxTextureImageUnits = 16;
 240       ctx->Const.Program[MESA_SHADER_VERTEX].MaxUniformComponents = 1024;
 241       ctx->Const.Program[MESA_SHADER_VERTEX].MaxCombinedUniformComponents = 1024;
 242       ctx->Const.Program[MESA_SHADER_VERTEX].MaxInputComponents = 0; /* not used */
 243       ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents = 64;
 244
 245       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxTextureImageUnits = 16;
 246       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxUniformComponents = 1024;
 247       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxCombinedUniformComponents = 1024;
 248       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxInputComponents =
 249          ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents;
 250       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxOutputComponents = 0; /* not used */
 251
 252       ctx->Const.MaxVarying = ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents / 4;
 253       break;
 254    case 150:
 255    case 330:
 256    case 400:
 257    case 410:
 258    case 420:
 259    case 430:
 260    case 440:
 261    case 450:
 262    case 460:
 263       ctx->Const.MaxClipPlanes = 8;
 264       ctx->Const.MaxDrawBuffers = 8;
 265       ctx->Const.MinProgramTexelOffset = -8;
 266       ctx->Const.MaxProgramTexelOffset = 7;
 267       ctx->Const.MaxLights = 8;
 268       ctx->Const.MaxTextureCoordUnits = 8;
 269       ctx->Const.MaxTextureUnits = 2;
 270       ctx->Const.MaxUniformBufferBindings = 84;
 271       ctx->Const.MaxVertexStreams = 4;
 272       ctx->Const.MaxTransformFeedbackBuffers = 4;
 273       ctx->Const.MaxShaderStorageBufferBindings = 4;
 274       ctx->Const.MaxShaderStorageBlockSize = 4096;
 275       ctx->Const.MaxAtomicBufferBindings = 4;
 276
 277       ctx->Const.Program[MESA_SHADER_VERTEX].MaxAttribs = 16;
 278       ctx->Const.Program[MESA_SHADER_VERTEX].MaxTextureImageUnits = 16;
 279       ctx->Const.Program[MESA_SHADER_VERTEX].MaxUniformComponents = 1024;
 280       ctx->Const.Program[MESA_SHADER_VERTEX].MaxCombinedUniformComponents = 1024;
 281       ctx->Const.Program[MESA_SHADER_VERTEX].MaxInputComponents = 0; /* not used */
 282       ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents = 64;
 283
 284       ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxTextureImageUnits = 16;
 285       ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxUniformComponents = 1024;
 286       ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxCombinedUniformComponents = 1024;
 287       ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxInputComponents =
 288          ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents;
 289       ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxOutputComponents = 128;
 290
 291       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxTextureImageUnits = 16;
 292       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxUniformComponents = 1024;
 293       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxCombinedUniformComponents = 1024;
 294       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxInputComponents =
 295          ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxOutputComponents;
 296       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxOutputComponents = 0; /* not used */
 297
 298       ctx->Const.MaxCombinedTextureImageUnits =
 299          ctx->Const.Program[MESA_SHADER_VERTEX].MaxTextureImageUnits
 300          + ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxTextureImageUnits
 301          + ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxTextureImageUnits;
 302
 303       ctx->Const.MaxGeometryOutputVertices = 256;
 304       ctx->Const.MaxGeometryTotalOutputComponents = 1024;
 305
 306       ctx->Const.MaxVarying = 60 / 4;
 307       break;
 308    case 300:
 309       ctx->Const.MaxClipPlanes = 8;
 310       ctx->Const.MaxCombinedTextureImageUnits = 32;
 311       ctx->Const.MaxDrawBuffers = 4;
 312       ctx->Const.MinProgramTexelOffset = -8;
 313       ctx->Const.MaxProgramTexelOffset = 7;
 314       ctx->Const.MaxLights = 0;
 315       ctx->Const.MaxTextureCoordUnits = 0;
 316       ctx->Const.MaxTextureUnits = 0;
 317       ctx->Const.MaxUniformBufferBindings = 84;
 318       ctx->Const.MaxVertexStreams = 4;
 319       ctx->Const.MaxTransformFeedbackBuffers = 4;
 320
 321       ctx->Const.Program[MESA_SHADER_VERTEX].MaxAttribs = 16;
 322       ctx->Const.Program[MESA_SHADER_VERTEX].MaxTextureImageUnits = 16;
 323       ctx->Const.Program[MESA_SHADER_VERTEX].MaxUniformComponents = 1024;
 324       ctx->Const.Program[MESA_SHADER_VERTEX].MaxCombinedUniformComponents = 1024;
 325       ctx->Const.Program[MESA_SHADER_VERTEX].MaxInputComponents = 0; /* not used */
 326       ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents = 16 * 4;
 327
 328       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxTextureImageUnits = 16;
 329       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxUniformComponents = 224;
 330       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxCombinedUniformComponents = 224;
 331       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxInputComponents = 15 * 4;
 332       ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxOutputComponents = 0; /* not used */
 333
 334       ctx->Const.MaxVarying = ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxInputComponents / 4;
 335       break;
 336    }
 337
 338    ctx->Const.GenerateTemporaryNames = true;
 339    ctx->Const.MaxPatchVertices = 32;
 340
 341    /* GL_ARB_explicit_uniform_location, GL_MAX_UNIFORM_LOCATIONS */
 342    ctx->Const.MaxUserAssignableUniformLocations =
 343       4 * MESA_SHADER_STAGES * MAX_UNIFORMS;
 344
 345    ctx->Driver.NewProgram = new_program;
 346 }
 347
 348 /* Returned string will have 'ctx' as its ralloc owner. */
 349 static char *
 350 load_text_file(void *ctx, const char *file_name)
 351 {
 352    char *text = NULL;
 353    size_t size;
 354    size_t total_read = 0;
 355    FILE *fp = fopen(file_name, "rb");
 356
 357    if (!fp) {
 358       return NULL;
 359    }
 360
 361    fseek(fp, 0L, SEEK_END);
 362    size = ftell(fp);
 363    fseek(fp, 0L, SEEK_SET);
 364
 365    text = (char *) ralloc_size(ctx, size + 1);
 366    if (text != NULL) {
 367       do {
 368          size_t bytes = fread(text + total_read,
 369                1, size - total_read, fp);
 370          if (bytes < size - total_read) {
 371             free(text);
 372             text = NULL;
 373             goto error;
 374          }
 375
 376          if (bytes == 0) {
 377             break;
 378          }
 379
 380          total_read += bytes;
 381       } while (total_read < size);
 382
 383       text[total_read] = '\0';
 384       error:;
 385    }
 386
 387    fclose(fp);
 388
 389    return text;
 390 }
 391
 392 static void
 393 compile_shader(struct gl_context *ctx, struct gl_shader *shader)
 394 {
 395    struct _mesa_glsl_parse_state *state =
 396       new(shader) _mesa_glsl_parse_state(ctx, shader->Stage, shader);
 397
 398    _mesa_glsl_compile_shader(ctx, shader, options->dump_ast,
 399                              options->dump_hir, true);
 400
 401    /* Print out the resulting IR */
 402    if (!state->error && options->dump_lir) {
 403       _mesa_print_ir(stdout, shader->ir, state);
 404    }
 405
 406    return;
 407 }
 408
 409 extern "C" struct gl_shader_program *
 410 standalone_compile_shader(const struct standalone_options *_options,
 411       unsigned num_files, char* const* files, struct gl_context *ctx)
 412 {
 413    int status = EXIT_SUCCESS;
 414    bool glsl_es = false;
 415
 416    options = _options;
 417
 418    switch (options->glsl_version) {
 419    case 100:
 420    case 300:
 421       glsl_es = true;
 422       break;
 423    case 110:
 424    case 120:
 425    case 130:
 426    case 140:
 427    case 150:
 428    case 330:
 429    case 400:
 430    case 410:
 431    case 420:
 432    case 430:
 433    case 440:
 434    case 450:
 435    case 460:
 436       glsl_es = false;
 437       break;
 438    default:
 439       fprintf(stderr, "Unrecognized GLSL version `%d'\n", options->glsl_version);
 440       return NULL;
 441    }
 442
 443    if (glsl_es) {
 444       initialize_context(ctx, API_OPENGLES2);
 445    } else {
 446       initialize_context(ctx, options->glsl_version > 130 ? API_OPENGL_CORE : API_OPENGL_COMPAT);
 447    }
 448
 449    struct gl_shader_program *whole_program;
 450
 451    whole_program = rzalloc (NULL, struct gl_shader_program);
 452    assert(whole_program != NULL);
 453    whole_program->data = rzalloc(whole_program, struct gl_shader_program_data);
 454    assert(whole_program->data != NULL);
 455    whole_program->data->InfoLog = ralloc_strdup(whole_program->data, "");
 456
 457    /* Created just to avoid segmentation faults */
 458    whole_program->AttributeBindings = new string_to_uint_map;
 459    whole_program->FragDataBindings = new string_to_uint_map;
 460    whole_program->FragDataIndexBindings = new string_to_uint_map;
 461
 462    for (unsigned i = 0; i < num_files; i++) {
 463       whole_program->Shaders =
 464             reralloc(whole_program, whole_program->Shaders,
 465                   struct gl_shader *, whole_program->NumShaders + 1);
 466       assert(whole_program->Shaders != NULL);
 467
 468       struct gl_shader *shader = rzalloc(whole_program, gl_shader);
 469
 470       whole_program->Shaders[whole_program->NumShaders] = shader;
 471       whole_program->NumShaders++;
 472
 473       const unsigned len = strlen(files[i]);
 474       if (len < 6)
 475          goto fail;
 476
 477       const char *const ext = & files[i][len - 5];
 478       /* TODO add support to read a .shader_test */
 479       if (strncmp(".vert", ext, 5) == 0 || strncmp(".glsl", ext, 5) == 0)
 480          shader->Type = GL_VERTEX_SHADER;
 481       else if (strncmp(".tesc", ext, 5) == 0)
 482          shader->Type = GL_TESS_CONTROL_SHADER;
 483       else if (strncmp(".tese", ext, 5) == 0)
 484          shader->Type = GL_TESS_EVALUATION_SHADER;
 485       else if (strncmp(".geom", ext, 5) == 0)
 486          shader->Type = GL_GEOMETRY_SHADER;
 487       else if (strncmp(".frag", ext, 5) == 0)
 488          shader->Type = GL_FRAGMENT_SHADER;
 489       else if (strncmp(".comp", ext, 5) == 0)
 490          shader->Type = GL_COMPUTE_SHADER;
 491       else
 492          goto fail;
 493       shader->Stage = _mesa_shader_enum_to_shader_stage(shader->Type);
 494
 495       shader->Source = load_text_file(whole_program, files[i]);
 496       if (shader->Source == NULL) {
 497          printf("File \"%s\" does not exist.\n", files[i]);
 498          exit(EXIT_FAILURE);
 499       }
 500
 501       compile_shader(ctx, shader);
 502
 503       if (strlen(shader->InfoLog) > 0) {
 504          if (!options->just_log)
 505             printf("Info log for %s:\n", files[i]);
 506
 507          printf("%s", shader->InfoLog);
 508          if (!options->just_log)
 509             printf("\n");
 510       }
 511
 512       if (!shader->CompileStatus) {
 513          status = EXIT_FAILURE;
 514          break;
 515       }
 516    }
 517
 518    if (status == EXIT_SUCCESS) {
 519       _mesa_clear_shader_program_data(ctx, whole_program);
 520
 521       if (options->do_link)  {
 522          link_shaders(ctx, whole_program);
 523       } else {
 524          const gl_shader_stage stage = whole_program->Shaders[0]->Stage;
 525
 526          whole_program->data->LinkStatus = LINKING_SUCCESS;
 527          whole_program->_LinkedShaders[stage] =
 528             link_intrastage_shaders(whole_program /* mem_ctx */,
 529                                     ctx,
 530                                     whole_program,
 531                                     whole_program->Shaders,
 532                                     1,
 533                                     true);
 534
 535          /* Par-linking can fail, for example, if there are undefined external
 536           * references.
 537           */
 538          if (whole_program->_LinkedShaders[stage] != NULL) {
 539             assert(whole_program->data->LinkStatus);
 540
 541             struct gl_shader_compiler_options *const compiler_options =
 542                &ctx->Const.ShaderCompilerOptions[stage];
 543
 544             exec_list *const ir =
 545                whole_program->_LinkedShaders[stage]->ir;
 546
 547             bool progress;
 548             do {
 549                progress = do_function_inlining(ir);
 550
 551                progress = do_common_optimization(ir,
 552                                                  false,
 553                                                  false,
 554                                                  compiler_options,
 555                                                  true)
 556                   && progress;
 557             } while(progress);
 558          }
 559       }
 560
 561       status = (whole_program->data->LinkStatus) ? EXIT_SUCCESS : EXIT_FAILURE;
 562
 563       if (strlen(whole_program->data->InfoLog) > 0) {
 564          printf("\n");
 565          if (!options->just_log)
 566             printf("Info log for linking:\n");
 567          printf("%s", whole_program->data->InfoLog);
 568          if (!options->just_log)
 569             printf("\n");
 570       }
 571
 572       for (unsigned i = 0; i < MESA_SHADER_STAGES; i++) {
 573          struct gl_linked_shader *shader = whole_program->_LinkedShaders[i];
 574
 575          if (!shader)
 576             continue;
 577
 578          add_neg_to_sub_visitor v;
 579          visit_list_elements(&v, shader->ir);
 580
 581          dead_variable_visitor dv;
 582          visit_list_elements(&dv, shader->ir);
 583          dv.remove_dead_variables();
 584       }
 585
 586       if (options->dump_builder) {
 587          for (unsigned i = 0; i < MESA_SHADER_STAGES; i++) {
 588             struct gl_linked_shader *shader = whole_program->_LinkedShaders[i];
 589
 590             if (!shader)
 591                continue;
 592
 593             _mesa_print_builder_for_ir(stdout, shader->ir);
 594          }
 595       }
 596    }
 597
 598    return whole_program;
 599
 600 fail:
 601    for (unsigned i = 0; i < MESA_SHADER_STAGES; i++) {
 602       if (whole_program->_LinkedShaders[i])
 603          ralloc_free(whole_program->_LinkedShaders[i]->Program);
 604    }
 605
 606    ralloc_free(whole_program);
 607    return NULL;
 608 }
 609
 610 extern "C" void
 611 standalone_compiler_cleanup(struct gl_shader_program *whole_program)
 612 {
 613    for (unsigned i = 0; i < MESA_SHADER_STAGES; i++) {
 614       if (whole_program->_LinkedShaders[i])
 615          ralloc_free(whole_program->_LinkedShaders[i]->Program);
 616    }
 617
 618    delete whole_program->AttributeBindings;
 619    delete whole_program->FragDataBindings;
 620    delete whole_program->FragDataIndexBindings;
 621
 622    ralloc_free(whole_program);
 623    glsl_type_singleton_decref();
 624    _mesa_glsl_release_builtin_functions();
 625 }