| /* |
| * Copyright © 2008, 2009 Intel Corporation |
| * |
| * Permission is hereby granted, free of charge, to any person obtaining a |
| * copy of this software and associated documentation files (the "Software"), |
| * to deal in the Software without restriction, including without limitation |
| * the rights to use, copy, modify, merge, publish, distribute, sublicense, |
| * and/or sell copies of the Software, and to permit persons to whom the |
| * Software is furnished to do so, subject to the following conditions: |
| * |
| * The above copyright notice and this permission notice (including the next |
| * paragraph) shall be included in all copies or substantial portions of the |
| * Software. |
| * |
| * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL |
| * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
| * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER |
| * DEALINGS IN THE SOFTWARE. |
| */ |
| #include <stdio.h> |
| #include <stdarg.h> |
| #include <string.h> |
| #include <assert.h> |
| |
| #include "main/core.h" /* for struct gl_context */ |
| #include "main/context.h" |
| #include "main/shaderobj.h" |
| #include "util/u_atomic.h" /* for p_atomic_cmpxchg */ |
| #include "util/ralloc.h" |
| #include "ast.h" |
| #include "glsl_parser_extras.h" |
| #include "glsl_parser.h" |
| #include "ir_optimization.h" |
| #include "loop_analysis.h" |
| |
| /** |
| * Format a short human-readable description of the given GLSL version. |
| */ |
| const char * |
| glsl_compute_version_string(void *mem_ctx, bool is_es, unsigned version) |
| { |
| return ralloc_asprintf(mem_ctx, "GLSL%s %d.%02d", is_es ? " ES" : "", |
| version / 100, version % 100); |
| } |
| |
| |
| static const unsigned known_desktop_glsl_versions[] = |
| { 110, 120, 130, 140, 150, 330, 400, 410, 420, 430, 440, 450 }; |
| |
| |
| _mesa_glsl_parse_state::_mesa_glsl_parse_state(struct gl_context *_ctx, |
| gl_shader_stage stage, |
| void *mem_ctx) |
| : ctx(_ctx), cs_input_local_size_specified(false), cs_input_local_size(), |
| switch_state() |
| { |
| assert(stage < MESA_SHADER_STAGES); |
| this->stage = stage; |
| |
| this->scanner = NULL; |
| this->translation_unit.make_empty(); |
| this->symbols = new(mem_ctx) glsl_symbol_table; |
| |
| this->info_log = ralloc_strdup(mem_ctx, ""); |
| this->error = false; |
| this->loop_nesting_ast = NULL; |
| |
| this->struct_specifier_depth = 0; |
| |
| this->uses_builtin_functions = false; |
| |
| /* Set default language version and extensions */ |
| this->language_version = 110; |
| this->forced_language_version = ctx->Const.ForceGLSLVersion; |
| this->es_shader = false; |
| this->ARB_texture_rectangle_enable = true; |
| |
| /* OpenGL ES 2.0 has different defaults from desktop GL. */ |
| if (ctx->API == API_OPENGLES2) { |
| this->language_version = 100; |
| this->es_shader = true; |
| this->ARB_texture_rectangle_enable = false; |
| } |
| |
| this->extensions = &ctx->Extensions; |
| |
| this->Const.MaxLights = ctx->Const.MaxLights; |
| this->Const.MaxClipPlanes = ctx->Const.MaxClipPlanes; |
| this->Const.MaxTextureUnits = ctx->Const.MaxTextureUnits; |
| this->Const.MaxTextureCoords = ctx->Const.MaxTextureCoordUnits; |
| this->Const.MaxVertexAttribs = ctx->Const.Program[MESA_SHADER_VERTEX].MaxAttribs; |
| this->Const.MaxVertexUniformComponents = ctx->Const.Program[MESA_SHADER_VERTEX].MaxUniformComponents; |
| this->Const.MaxVertexTextureImageUnits = ctx->Const.Program[MESA_SHADER_VERTEX].MaxTextureImageUnits; |
| this->Const.MaxCombinedTextureImageUnits = ctx->Const.MaxCombinedTextureImageUnits; |
| this->Const.MaxTextureImageUnits = ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxTextureImageUnits; |
| this->Const.MaxFragmentUniformComponents = ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxUniformComponents; |
| this->Const.MinProgramTexelOffset = ctx->Const.MinProgramTexelOffset; |
| this->Const.MaxProgramTexelOffset = ctx->Const.MaxProgramTexelOffset; |
| |
| this->Const.MaxDrawBuffers = ctx->Const.MaxDrawBuffers; |
| |
| this->Const.MaxDualSourceDrawBuffers = ctx->Const.MaxDualSourceDrawBuffers; |
| |
| /* 1.50 constants */ |
| this->Const.MaxVertexOutputComponents = ctx->Const.Program[MESA_SHADER_VERTEX].MaxOutputComponents; |
| this->Const.MaxGeometryInputComponents = ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxInputComponents; |
| this->Const.MaxGeometryOutputComponents = ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxOutputComponents; |
| this->Const.MaxFragmentInputComponents = ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxInputComponents; |
| this->Const.MaxGeometryTextureImageUnits = ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxTextureImageUnits; |
| this->Const.MaxGeometryOutputVertices = ctx->Const.MaxGeometryOutputVertices; |
| this->Const.MaxGeometryTotalOutputComponents = ctx->Const.MaxGeometryTotalOutputComponents; |
| this->Const.MaxGeometryUniformComponents = ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxUniformComponents; |
| |
| this->Const.MaxVertexAtomicCounters = ctx->Const.Program[MESA_SHADER_VERTEX].MaxAtomicCounters; |
| this->Const.MaxTessControlAtomicCounters = ctx->Const.Program[MESA_SHADER_TESS_CTRL].MaxAtomicCounters; |
| this->Const.MaxTessEvaluationAtomicCounters = ctx->Const.Program[MESA_SHADER_TESS_EVAL].MaxAtomicCounters; |
| this->Const.MaxGeometryAtomicCounters = ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxAtomicCounters; |
| this->Const.MaxFragmentAtomicCounters = ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxAtomicCounters; |
| this->Const.MaxCombinedAtomicCounters = ctx->Const.MaxCombinedAtomicCounters; |
| this->Const.MaxAtomicBufferBindings = ctx->Const.MaxAtomicBufferBindings; |
| this->Const.MaxVertexAtomicCounterBuffers = |
| ctx->Const.Program[MESA_SHADER_VERTEX].MaxAtomicBuffers; |
| this->Const.MaxTessControlAtomicCounterBuffers = |
| ctx->Const.Program[MESA_SHADER_TESS_CTRL].MaxAtomicBuffers; |
| this->Const.MaxTessEvaluationAtomicCounterBuffers = |
| ctx->Const.Program[MESA_SHADER_TESS_EVAL].MaxAtomicBuffers; |
| this->Const.MaxGeometryAtomicCounterBuffers = |
| ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxAtomicBuffers; |
| this->Const.MaxFragmentAtomicCounterBuffers = |
| ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxAtomicBuffers; |
| this->Const.MaxCombinedAtomicCounterBuffers = |
| ctx->Const.MaxCombinedAtomicBuffers; |
| this->Const.MaxAtomicCounterBufferSize = |
| ctx->Const.MaxAtomicBufferSize; |
| |
| /* Compute shader constants */ |
| for (unsigned i = 0; i < ARRAY_SIZE(this->Const.MaxComputeWorkGroupCount); i++) |
| this->Const.MaxComputeWorkGroupCount[i] = ctx->Const.MaxComputeWorkGroupCount[i]; |
| for (unsigned i = 0; i < ARRAY_SIZE(this->Const.MaxComputeWorkGroupSize); i++) |
| this->Const.MaxComputeWorkGroupSize[i] = ctx->Const.MaxComputeWorkGroupSize[i]; |
| |
| this->Const.MaxImageUnits = ctx->Const.MaxImageUnits; |
| this->Const.MaxCombinedShaderOutputResources = ctx->Const.MaxCombinedShaderOutputResources; |
| this->Const.MaxImageSamples = ctx->Const.MaxImageSamples; |
| this->Const.MaxVertexImageUniforms = ctx->Const.Program[MESA_SHADER_VERTEX].MaxImageUniforms; |
| this->Const.MaxTessControlImageUniforms = ctx->Const.Program[MESA_SHADER_TESS_CTRL].MaxImageUniforms; |
| this->Const.MaxTessEvaluationImageUniforms = ctx->Const.Program[MESA_SHADER_TESS_EVAL].MaxImageUniforms; |
| this->Const.MaxGeometryImageUniforms = ctx->Const.Program[MESA_SHADER_GEOMETRY].MaxImageUniforms; |
| this->Const.MaxFragmentImageUniforms = ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxImageUniforms; |
| this->Const.MaxCombinedImageUniforms = ctx->Const.MaxCombinedImageUniforms; |
| |
| /* ARB_viewport_array */ |
| this->Const.MaxViewports = ctx->Const.MaxViewports; |
| |
| /* tessellation shader constants */ |
| this->Const.MaxPatchVertices = ctx->Const.MaxPatchVertices; |
| this->Const.MaxTessGenLevel = ctx->Const.MaxTessGenLevel; |
| this->Const.MaxTessControlInputComponents = ctx->Const.Program[MESA_SHADER_TESS_CTRL].MaxInputComponents; |
| this->Const.MaxTessControlOutputComponents = ctx->Const.Program[MESA_SHADER_TESS_CTRL].MaxOutputComponents; |
| this->Const.MaxTessControlTextureImageUnits = ctx->Const.Program[MESA_SHADER_TESS_CTRL].MaxTextureImageUnits; |
| this->Const.MaxTessEvaluationInputComponents = ctx->Const.Program[MESA_SHADER_TESS_EVAL].MaxInputComponents; |
| this->Const.MaxTessEvaluationOutputComponents = ctx->Const.Program[MESA_SHADER_TESS_EVAL].MaxOutputComponents; |
| this->Const.MaxTessEvaluationTextureImageUnits = ctx->Const.Program[MESA_SHADER_TESS_EVAL].MaxTextureImageUnits; |
| this->Const.MaxTessPatchComponents = ctx->Const.MaxTessPatchComponents; |
| this->Const.MaxTessControlTotalOutputComponents = ctx->Const.MaxTessControlTotalOutputComponents; |
| this->Const.MaxTessControlUniformComponents = ctx->Const.Program[MESA_SHADER_TESS_CTRL].MaxUniformComponents; |
| this->Const.MaxTessEvaluationUniformComponents = ctx->Const.Program[MESA_SHADER_TESS_EVAL].MaxUniformComponents; |
| |
| this->current_function = NULL; |
| this->toplevel_ir = NULL; |
| this->found_return = false; |
| this->all_invariant = false; |
| this->user_structures = NULL; |
| this->num_user_structures = 0; |
| this->num_subroutines = 0; |
| this->subroutines = NULL; |
| this->num_subroutine_types = 0; |
| this->subroutine_types = NULL; |
| |
| /* supported_versions should be large enough to support the known desktop |
| * GLSL versions plus 3 GLES versions (ES 1.00, ES 3.00, and ES 3.10)) |
| */ |
| STATIC_ASSERT((ARRAY_SIZE(known_desktop_glsl_versions) + 3) == |
| ARRAY_SIZE(this->supported_versions)); |
| |
| /* Populate the list of supported GLSL versions */ |
| /* FINISHME: Once the OpenGL 3.0 'forward compatible' context or |
| * the OpenGL 3.2 Core context is supported, this logic will need |
| * change. Older versions of GLSL are no longer supported |
| * outside the compatibility contexts of 3.x. |
| */ |
| this->num_supported_versions = 0; |
| if (_mesa_is_desktop_gl(ctx)) { |
| for (unsigned i = 0; i < ARRAY_SIZE(known_desktop_glsl_versions); i++) { |
| if (known_desktop_glsl_versions[i] <= ctx->Const.GLSLVersion) { |
| this->supported_versions[this->num_supported_versions].ver |
| = known_desktop_glsl_versions[i]; |
| this->supported_versions[this->num_supported_versions].es = false; |
| this->num_supported_versions++; |
| } |
| } |
| } |
| if (ctx->API == API_OPENGLES2 || ctx->Extensions.ARB_ES2_compatibility) { |
| this->supported_versions[this->num_supported_versions].ver = 100; |
| this->supported_versions[this->num_supported_versions].es = true; |
| this->num_supported_versions++; |
| } |
| if (_mesa_is_gles3(ctx) || ctx->Extensions.ARB_ES3_compatibility) { |
| this->supported_versions[this->num_supported_versions].ver = 300; |
| this->supported_versions[this->num_supported_versions].es = true; |
| this->num_supported_versions++; |
| } |
| if (_mesa_is_gles31(ctx)) { |
| this->supported_versions[this->num_supported_versions].ver = 310; |
| this->supported_versions[this->num_supported_versions].es = true; |
| this->num_supported_versions++; |
| } |
| |
| /* Create a string for use in error messages to tell the user which GLSL |
| * versions are supported. |
| */ |
| char *supported = ralloc_strdup(this, ""); |
| for (unsigned i = 0; i < this->num_supported_versions; i++) { |
| unsigned ver = this->supported_versions[i].ver; |
| const char *const prefix = (i == 0) |
| ? "" |
| : ((i == this->num_supported_versions - 1) ? ", and " : ", "); |
| const char *const suffix = (this->supported_versions[i].es) ? " ES" : ""; |
| |
| ralloc_asprintf_append(& supported, "%s%u.%02u%s", |
| prefix, |
| ver / 100, ver % 100, |
| suffix); |
| } |
| |
| this->supported_version_string = supported; |
| |
| if (ctx->Const.ForceGLSLExtensionsWarn) |
| _mesa_glsl_process_extension("all", NULL, "warn", NULL, this); |
| |
| this->default_uniform_qualifier = new(this) ast_type_qualifier(); |
| this->default_uniform_qualifier->flags.q.shared = 1; |
| this->default_uniform_qualifier->flags.q.column_major = 1; |
| this->default_uniform_qualifier->is_default_qualifier = true; |
| |
| this->default_shader_storage_qualifier = new(this) ast_type_qualifier(); |
| this->default_shader_storage_qualifier->flags.q.shared = 1; |
| this->default_shader_storage_qualifier->flags.q.column_major = 1; |
| this->default_shader_storage_qualifier->is_default_qualifier = true; |
| |
| this->fs_uses_gl_fragcoord = false; |
| this->fs_redeclares_gl_fragcoord = false; |
| this->fs_origin_upper_left = false; |
| this->fs_pixel_center_integer = false; |
| this->fs_redeclares_gl_fragcoord_with_no_layout_qualifiers = false; |
| |
| this->gs_input_prim_type_specified = false; |
| this->tcs_output_vertices_specified = false; |
| this->gs_input_size = 0; |
| this->in_qualifier = new(this) ast_type_qualifier(); |
| this->out_qualifier = new(this) ast_type_qualifier(); |
| this->fs_early_fragment_tests = false; |
| memset(this->atomic_counter_offsets, 0, |
| sizeof(this->atomic_counter_offsets)); |
| this->allow_extension_directive_midshader = |
| ctx->Const.AllowGLSLExtensionDirectiveMidShader; |
| } |
| |
| /** |
| * Determine whether the current GLSL version is sufficiently high to support |
| * a certain feature, and generate an error message if it isn't. |
| * |
| * \param required_glsl_version and \c required_glsl_es_version are |
| * interpreted as they are in _mesa_glsl_parse_state::is_version(). |
| * |
| * \param locp is the parser location where the error should be reported. |
| * |
| * \param fmt (and additional arguments) constitute a printf-style error |
| * message to report if the version check fails. Information about the |
| * current and required GLSL versions will be appended. So, for example, if |
| * the GLSL version being compiled is 1.20, and check_version(130, 300, locp, |
| * "foo unsupported") is called, the error message will be "foo unsupported in |
| * GLSL 1.20 (GLSL 1.30 or GLSL 3.00 ES required)". |
| */ |
| bool |
| _mesa_glsl_parse_state::check_version(unsigned required_glsl_version, |
| unsigned required_glsl_es_version, |
| YYLTYPE *locp, const char *fmt, ...) |
| { |
| if (this->is_version(required_glsl_version, required_glsl_es_version)) |
| return true; |
| |
| va_list args; |
| va_start(args, fmt); |
| char *problem = ralloc_vasprintf(this, fmt, args); |
| va_end(args); |
| const char *glsl_version_string |
| = glsl_compute_version_string(this, false, required_glsl_version); |
| const char *glsl_es_version_string |
| = glsl_compute_version_string(this, true, required_glsl_es_version); |
| const char *requirement_string = ""; |
| if (required_glsl_version && required_glsl_es_version) { |
| requirement_string = ralloc_asprintf(this, " (%s or %s required)", |
| glsl_version_string, |
| glsl_es_version_string); |
| } else if (required_glsl_version) { |
| requirement_string = ralloc_asprintf(this, " (%s required)", |
| glsl_version_string); |
| } else if (required_glsl_es_version) { |
| requirement_string = ralloc_asprintf(this, " (%s required)", |
| glsl_es_version_string); |
| } |
| _mesa_glsl_error(locp, this, "%s in %s%s", |
| problem, this->get_version_string(), |
| requirement_string); |
| |
| return false; |
| } |
| |
| /** |
| * Process a GLSL #version directive. |
| * |
| * \param version is the integer that follows the #version token. |
| * |
| * \param ident is a string identifier that follows the integer, if any is |
| * present. Otherwise NULL. |
| */ |
| void |
| _mesa_glsl_parse_state::process_version_directive(YYLTYPE *locp, int version, |
| const char *ident) |
| { |
| bool es_token_present = false; |
| if (ident) { |
| if (strcmp(ident, "es") == 0) { |
| es_token_present = true; |
| } else if (version >= 150) { |
| if (strcmp(ident, "core") == 0) { |
| /* Accept the token. There's no need to record that this is |
| * a core profile shader since that's the only profile we support. |
| */ |
| } else if (strcmp(ident, "compatibility") == 0) { |
| _mesa_glsl_error(locp, this, |
| "the compatibility profile is not supported"); |
| } else { |
| _mesa_glsl_error(locp, this, |
| "\"%s\" is not a valid shading language profile; " |
| "if present, it must be \"core\"", ident); |
| } |
| } else { |
| _mesa_glsl_error(locp, this, |
| "illegal text following version number"); |
| } |
| } |
| |
| this->es_shader = es_token_present; |
| if (version == 100) { |
| if (es_token_present) { |
| _mesa_glsl_error(locp, this, |
| "GLSL 1.00 ES should be selected using " |
| "`#version 100'"); |
| } else { |
| this->es_shader = true; |
| } |
| } |
| |
| if (this->es_shader) { |
| this->ARB_texture_rectangle_enable = false; |
| } |
| |
| if (this->forced_language_version) |
| this->language_version = this->forced_language_version; |
| else |
| this->language_version = version; |
| |
| bool supported = false; |
| for (unsigned i = 0; i < this->num_supported_versions; i++) { |
| if (this->supported_versions[i].ver == this->language_version |
| && this->supported_versions[i].es == this->es_shader) { |
| supported = true; |
| break; |
| } |
| } |
| |
| if (!supported) { |
| _mesa_glsl_error(locp, this, "%s is not supported. " |
| "Supported versions are: %s", |
| this->get_version_string(), |
| this->supported_version_string); |
| |
| /* On exit, the language_version must be set to a valid value. |
| * Later calls to _mesa_glsl_initialize_types will misbehave if |
| * the version is invalid. |
| */ |
| switch (this->ctx->API) { |
| case API_OPENGL_COMPAT: |
| case API_OPENGL_CORE: |
| this->language_version = this->ctx->Const.GLSLVersion; |
| break; |
| |
| case API_OPENGLES: |
| assert(!"Should not get here."); |
| /* FALLTHROUGH */ |
| |
| case API_OPENGLES2: |
| this->language_version = 100; |
| break; |
| } |
| } |
| } |
| |
| |
| /** |
| * Translate a gl_shader_stage to a short shader stage name for debug |
| * printouts and error messages. |
| */ |
| const char * |
| _mesa_shader_stage_to_string(unsigned stage) |
| { |
| switch (stage) { |
| case MESA_SHADER_VERTEX: return "vertex"; |
| case MESA_SHADER_FRAGMENT: return "fragment"; |
| case MESA_SHADER_GEOMETRY: return "geometry"; |
| case MESA_SHADER_COMPUTE: return "compute"; |
| case MESA_SHADER_TESS_CTRL: return "tess ctrl"; |
| case MESA_SHADER_TESS_EVAL: return "tess eval"; |
| } |
| |
| unreachable("Unknown shader stage."); |
| } |
| |
| /** |
| * Translate a gl_shader_stage to a shader stage abbreviation (VS, GS, FS) |
| * for debug printouts and error messages. |
| */ |
| const char * |
| _mesa_shader_stage_to_abbrev(unsigned stage) |
| { |
| switch (stage) { |
| case MESA_SHADER_VERTEX: return "VS"; |
| case MESA_SHADER_FRAGMENT: return "FS"; |
| case MESA_SHADER_GEOMETRY: return "GS"; |
| case MESA_SHADER_COMPUTE: return "CS"; |
| case MESA_SHADER_TESS_CTRL: return "TCS"; |
| case MESA_SHADER_TESS_EVAL: return "TES"; |
| } |
| |
| unreachable("Unknown shader stage."); |
| } |
| |
| /* This helper function will append the given message to the shader's |
| info log and report it via GL_ARB_debug_output. Per that extension, |
| 'type' is one of the enum values classifying the message, and |
| 'id' is the implementation-defined ID of the given message. */ |
| static void |
| _mesa_glsl_msg(const YYLTYPE *locp, _mesa_glsl_parse_state *state, |
| GLenum type, const char *fmt, va_list ap) |
| { |
| bool error = (type == MESA_DEBUG_TYPE_ERROR); |
| GLuint msg_id = 0; |
| |
| assert(state->info_log != NULL); |
| |
| /* Get the offset that the new message will be written to. */ |
| int msg_offset = strlen(state->info_log); |
| |
| ralloc_asprintf_append(&state->info_log, "%u:%u(%u): %s: ", |
| locp->source, |
| locp->first_line, |
| locp->first_column, |
| error ? "error" : "warning"); |
| ralloc_vasprintf_append(&state->info_log, fmt, ap); |
| |
| const char *const msg = &state->info_log[msg_offset]; |
| struct gl_context *ctx = state->ctx; |
| |
| /* Report the error via GL_ARB_debug_output. */ |
| _mesa_shader_debug(ctx, type, &msg_id, msg); |
| |
| ralloc_strcat(&state->info_log, "\n"); |
| } |
| |
| void |
| _mesa_glsl_error(YYLTYPE *locp, _mesa_glsl_parse_state *state, |
| const char *fmt, ...) |
| { |
| va_list ap; |
| |
| state->error = true; |
| |
| va_start(ap, fmt); |
| _mesa_glsl_msg(locp, state, MESA_DEBUG_TYPE_ERROR, fmt, ap); |
| va_end(ap); |
| } |
| |
| |
| void |
| _mesa_glsl_warning(const YYLTYPE *locp, _mesa_glsl_parse_state *state, |
| const char *fmt, ...) |
| { |
| va_list ap; |
| |
| va_start(ap, fmt); |
| _mesa_glsl_msg(locp, state, MESA_DEBUG_TYPE_OTHER, fmt, ap); |
| va_end(ap); |
| } |
| |
| |
| /** |
| * Enum representing the possible behaviors that can be specified in |
| * an #extension directive. |
| */ |
| enum ext_behavior { |
| extension_disable, |
| extension_enable, |
| extension_require, |
| extension_warn |
| }; |
| |
| /** |
| * Element type for _mesa_glsl_supported_extensions |
| */ |
| struct _mesa_glsl_extension { |
| /** |
| * Name of the extension when referred to in a GLSL extension |
| * statement |
| */ |
| const char *name; |
| |
| /** True if this extension is available to desktop GL shaders */ |
| bool avail_in_GL; |
| |
| /** True if this extension is available to GLES shaders */ |
| bool avail_in_ES; |
| |
| /** |
| * Flag in the gl_extensions struct indicating whether this |
| * extension is supported by the driver, or |
| * &gl_extensions::dummy_true if supported by all drivers. |
| * |
| * Note: the type (GLboolean gl_extensions::*) is a "pointer to |
| * member" type, the type-safe alternative to the "offsetof" macro. |
| * In a nutshell: |
| * |
| * - foo bar::* p declares p to be an "offset" to a field of type |
| * foo that exists within struct bar |
| * - &bar::baz computes the "offset" of field baz within struct bar |
| * - x.*p accesses the field of x that exists at "offset" p |
| * - x->*p is equivalent to (*x).*p |
| */ |
| const GLboolean gl_extensions::* supported_flag; |
| |
| /** |
| * Flag in the _mesa_glsl_parse_state struct that should be set |
| * when this extension is enabled. |
| * |
| * See note in _mesa_glsl_extension::supported_flag about "pointer |
| * to member" types. |
| */ |
| bool _mesa_glsl_parse_state::* enable_flag; |
| |
| /** |
| * Flag in the _mesa_glsl_parse_state struct that should be set |
| * when the shader requests "warn" behavior for this extension. |
| * |
| * See note in _mesa_glsl_extension::supported_flag about "pointer |
| * to member" types. |
| */ |
| bool _mesa_glsl_parse_state::* warn_flag; |
| |
| |
| bool compatible_with_state(const _mesa_glsl_parse_state *state) const; |
| void set_flags(_mesa_glsl_parse_state *state, ext_behavior behavior) const; |
| }; |
| |
| #define EXT(NAME, GL, ES, SUPPORTED_FLAG) \ |
| { "GL_" #NAME, GL, ES, &gl_extensions::SUPPORTED_FLAG, \ |
| &_mesa_glsl_parse_state::NAME##_enable, \ |
| &_mesa_glsl_parse_state::NAME##_warn } |
| |
| /** |
| * Table of extensions that can be enabled/disabled within a shader, |
| * and the conditions under which they are supported. |
| */ |
| static const _mesa_glsl_extension _mesa_glsl_supported_extensions[] = { |
| /* API availability */ |
| /* name GL ES supported flag */ |
| |
| /* ARB extensions go here, sorted alphabetically. |
| */ |
| EXT(ARB_arrays_of_arrays, true, false, ARB_arrays_of_arrays), |
| EXT(ARB_compute_shader, true, false, ARB_compute_shader), |
| EXT(ARB_conservative_depth, true, false, ARB_conservative_depth), |
| EXT(ARB_derivative_control, true, false, ARB_derivative_control), |
| EXT(ARB_draw_buffers, true, false, dummy_true), |
| EXT(ARB_draw_instanced, true, false, ARB_draw_instanced), |
| EXT(ARB_enhanced_layouts, true, false, ARB_enhanced_layouts), |
| EXT(ARB_explicit_attrib_location, true, false, ARB_explicit_attrib_location), |
| EXT(ARB_explicit_uniform_location, true, false, ARB_explicit_uniform_location), |
| EXT(ARB_fragment_coord_conventions, true, false, ARB_fragment_coord_conventions), |
| EXT(ARB_fragment_layer_viewport, true, false, ARB_fragment_layer_viewport), |
| EXT(ARB_gpu_shader5, true, false, ARB_gpu_shader5), |
| EXT(ARB_gpu_shader_fp64, true, false, ARB_gpu_shader_fp64), |
| EXT(ARB_sample_shading, true, false, ARB_sample_shading), |
| EXT(ARB_separate_shader_objects, true, false, dummy_true), |
| EXT(ARB_shader_atomic_counters, true, false, ARB_shader_atomic_counters), |
| EXT(ARB_shader_bit_encoding, true, false, ARB_shader_bit_encoding), |
| EXT(ARB_shader_clock, true, false, ARB_shader_clock), |
| EXT(ARB_shader_draw_parameters, true, false, ARB_shader_draw_parameters), |
| EXT(ARB_shader_image_load_store, true, false, ARB_shader_image_load_store), |
| EXT(ARB_shader_image_size, true, false, ARB_shader_image_size), |
| EXT(ARB_shader_precision, true, false, ARB_shader_precision), |
| EXT(ARB_shader_stencil_export, true, false, ARB_shader_stencil_export), |
| EXT(ARB_shader_storage_buffer_object, true, true, ARB_shader_storage_buffer_object), |
| EXT(ARB_shader_subroutine, true, false, ARB_shader_subroutine), |
| EXT(ARB_shader_texture_image_samples, true, false, ARB_shader_texture_image_samples), |
| EXT(ARB_shader_texture_lod, true, false, ARB_shader_texture_lod), |
| EXT(ARB_shading_language_420pack, true, false, ARB_shading_language_420pack), |
| EXT(ARB_shading_language_packing, true, false, ARB_shading_language_packing), |
| EXT(ARB_tessellation_shader, true, false, ARB_tessellation_shader), |
| EXT(ARB_texture_cube_map_array, true, false, ARB_texture_cube_map_array), |
| EXT(ARB_texture_gather, true, false, ARB_texture_gather), |
| EXT(ARB_texture_multisample, true, false, ARB_texture_multisample), |
| EXT(ARB_texture_query_levels, true, false, ARB_texture_query_levels), |
| EXT(ARB_texture_query_lod, true, false, ARB_texture_query_lod), |
| EXT(ARB_texture_rectangle, true, false, dummy_true), |
| EXT(ARB_uniform_buffer_object, true, false, ARB_uniform_buffer_object), |
| EXT(ARB_vertex_attrib_64bit, true, false, ARB_vertex_attrib_64bit), |
| EXT(ARB_viewport_array, true, false, ARB_viewport_array), |
| |
| /* KHR extensions go here, sorted alphabetically. |
| */ |
| |
| /* OES extensions go here, sorted alphabetically. |
| */ |
| EXT(OES_EGL_image_external, false, true, OES_EGL_image_external), |
| EXT(OES_standard_derivatives, false, true, OES_standard_derivatives), |
| EXT(OES_texture_3D, false, true, dummy_true), |
| EXT(OES_texture_storage_multisample_2d_array, false, true, ARB_texture_multisample), |
| |
| /* All other extensions go here, sorted alphabetically. |
| */ |
| EXT(AMD_conservative_depth, true, false, ARB_conservative_depth), |
| EXT(AMD_shader_stencil_export, true, false, ARB_shader_stencil_export), |
| EXT(AMD_shader_trinary_minmax, true, false, dummy_true), |
| EXT(AMD_vertex_shader_layer, true, false, AMD_vertex_shader_layer), |
| EXT(AMD_vertex_shader_viewport_index, true, false, AMD_vertex_shader_viewport_index), |
| EXT(EXT_blend_func_extended, false, true, ARB_blend_func_extended), |
| EXT(EXT_draw_buffers, false, true, dummy_true), |
| EXT(EXT_separate_shader_objects, false, true, dummy_true), |
| EXT(EXT_shader_integer_mix, true, true, EXT_shader_integer_mix), |
| EXT(EXT_shader_samples_identical, true, true, EXT_shader_samples_identical), |
| EXT(EXT_texture_array, true, false, EXT_texture_array), |
| }; |
| |
| #undef EXT |
| |
| |
| /** |
| * Determine whether a given extension is compatible with the target, |
| * API, and extension information in the current parser state. |
| */ |
| bool _mesa_glsl_extension::compatible_with_state(const _mesa_glsl_parse_state * |
| state) const |
| { |
| /* Check that this extension matches whether we are compiling |
| * for desktop GL or GLES. |
| */ |
| if (state->es_shader) { |
| if (!this->avail_in_ES) return false; |
| } else { |
| if (!this->avail_in_GL) return false; |
| } |
| |
| /* Check that this extension is supported by the OpenGL |
| * implementation. |
| * |
| * Note: the ->* operator indexes into state->extensions by the |
| * offset this->supported_flag. See |
| * _mesa_glsl_extension::supported_flag for more info. |
| */ |
| return state->extensions->*(this->supported_flag); |
| } |
| |
| /** |
| * Set the appropriate flags in the parser state to establish the |
| * given behavior for this extension. |
| */ |
| void _mesa_glsl_extension::set_flags(_mesa_glsl_parse_state *state, |
| ext_behavior behavior) const |
| { |
| /* Note: the ->* operator indexes into state by the |
| * offsets this->enable_flag and this->warn_flag. See |
| * _mesa_glsl_extension::supported_flag for more info. |
| */ |
| state->*(this->enable_flag) = (behavior != extension_disable); |
| state->*(this->warn_flag) = (behavior == extension_warn); |
| } |
| |
| /** |
| * Find an extension by name in _mesa_glsl_supported_extensions. If |
| * the name is not found, return NULL. |
| */ |
| static const _mesa_glsl_extension *find_extension(const char *name) |
| { |
| for (unsigned i = 0; i < ARRAY_SIZE(_mesa_glsl_supported_extensions); ++i) { |
| if (strcmp(name, _mesa_glsl_supported_extensions[i].name) == 0) { |
| return &_mesa_glsl_supported_extensions[i]; |
| } |
| } |
| return NULL; |
| } |
| |
| |
| bool |
| _mesa_glsl_process_extension(const char *name, YYLTYPE *name_locp, |
| const char *behavior_string, YYLTYPE *behavior_locp, |
| _mesa_glsl_parse_state *state) |
| { |
| ext_behavior behavior; |
| if (strcmp(behavior_string, "warn") == 0) { |
| behavior = extension_warn; |
| } else if (strcmp(behavior_string, "require") == 0) { |
| behavior = extension_require; |
| } else if (strcmp(behavior_string, "enable") == 0) { |
| behavior = extension_enable; |
| } else if (strcmp(behavior_string, "disable") == 0) { |
| behavior = extension_disable; |
| } else { |
| _mesa_glsl_error(behavior_locp, state, |
| "unknown extension behavior `%s'", |
| behavior_string); |
| return false; |
| } |
| |
| if (strcmp(name, "all") == 0) { |
| if ((behavior == extension_enable) || (behavior == extension_require)) { |
| _mesa_glsl_error(name_locp, state, "cannot %s all extensions", |
| (behavior == extension_enable) |
| ? "enable" : "require"); |
| return false; |
| } else { |
| for (unsigned i = 0; |
| i < ARRAY_SIZE(_mesa_glsl_supported_extensions); ++i) { |
| const _mesa_glsl_extension *extension |
| = &_mesa_glsl_supported_extensions[i]; |
| if (extension->compatible_with_state(state)) { |
| _mesa_glsl_supported_extensions[i].set_flags(state, behavior); |
| } |
| } |
| } |
| } else { |
| const _mesa_glsl_extension *extension = find_extension(name); |
| if (extension && extension->compatible_with_state(state)) { |
| extension->set_flags(state, behavior); |
| } else { |
| static const char fmt[] = "extension `%s' unsupported in %s shader"; |
| |
| if (behavior == extension_require) { |
| _mesa_glsl_error(name_locp, state, fmt, |
| name, _mesa_shader_stage_to_string(state->stage)); |
| return false; |
| } else { |
| _mesa_glsl_warning(name_locp, state, fmt, |
| name, _mesa_shader_stage_to_string(state->stage)); |
| } |
| } |
| } |
| |
| return true; |
| } |
| |
| |
| /** |
| * Recurses through <type> and <expr> if <expr> is an aggregate initializer |
| * and sets <expr>'s <constructor_type> field to <type>. Gives later functions |
| * (process_array_constructor, et al) sufficient information to do type |
| * checking. |
| * |
| * Operates on assignments involving an aggregate initializer. E.g., |
| * |
| * vec4 pos = {1.0, -1.0, 0.0, 1.0}; |
| * |
| * or more ridiculously, |
| * |
| * struct S { |
| * vec4 v[2]; |
| * }; |
| * |
| * struct { |
| * S a[2], b; |
| * int c; |
| * } aggregate = { |
| * { |
| * { |
| * { |
| * {1.0, 2.0, 3.0, 4.0}, // a[0].v[0] |
| * {5.0, 6.0, 7.0, 8.0} // a[0].v[1] |
| * } // a[0].v |
| * }, // a[0] |
| * { |
| * { |
| * {1.0, 2.0, 3.0, 4.0}, // a[1].v[0] |
| * {5.0, 6.0, 7.0, 8.0} // a[1].v[1] |
| * } // a[1].v |
| * } // a[1] |
| * }, // a |
| * { |
| * { |
| * {1.0, 2.0, 3.0, 4.0}, // b.v[0] |
| * {5.0, 6.0, 7.0, 8.0} // b.v[1] |
| * } // b.v |
| * }, // b |
| * 4 // c |
| * }; |
| * |
| * This pass is necessary because the right-hand side of <type> e = { ... } |
| * doesn't contain sufficient information to determine if the types match. |
| */ |
| void |
| _mesa_ast_set_aggregate_type(const glsl_type *type, |
| ast_expression *expr) |
| { |
| ast_aggregate_initializer *ai = (ast_aggregate_initializer *)expr; |
| ai->constructor_type = type; |
| |
| /* If the aggregate is an array, recursively set its elements' types. */ |
| if (type->is_array()) { |
| /* Each array element has the type type->fields.array. |
| * |
| * E.g., if <type> if struct S[2] we want to set each element's type to |
| * struct S. |
| */ |
| for (exec_node *expr_node = ai->expressions.head; |
| !expr_node->is_tail_sentinel(); |
| expr_node = expr_node->next) { |
| ast_expression *expr = exec_node_data(ast_expression, expr_node, |
| link); |
| |
| if (expr->oper == ast_aggregate) |
| _mesa_ast_set_aggregate_type(type->fields.array, expr); |
| } |
| |
| /* If the aggregate is a struct, recursively set its fields' types. */ |
| } else if (type->is_record()) { |
| exec_node *expr_node = ai->expressions.head; |
| |
| /* Iterate through the struct's fields. */ |
| for (unsigned i = 0; !expr_node->is_tail_sentinel() && i < type->length; |
| i++, expr_node = expr_node->next) { |
| ast_expression *expr = exec_node_data(ast_expression, expr_node, |
| link); |
| |
| if (expr->oper == ast_aggregate) { |
| _mesa_ast_set_aggregate_type(type->fields.structure[i].type, expr); |
| } |
| } |
| /* If the aggregate is a matrix, set its columns' types. */ |
| } else if (type->is_matrix()) { |
| for (exec_node *expr_node = ai->expressions.head; |
| !expr_node->is_tail_sentinel(); |
| expr_node = expr_node->next) { |
| ast_expression *expr = exec_node_data(ast_expression, expr_node, |
| link); |
| |
| if (expr->oper == ast_aggregate) |
| _mesa_ast_set_aggregate_type(type->column_type(), expr); |
| } |
| } |
| } |
| |
| void |
| _mesa_ast_process_interface_block(YYLTYPE *locp, |
| _mesa_glsl_parse_state *state, |
| ast_interface_block *const block, |
| const struct ast_type_qualifier &q) |
| { |
| if (q.flags.q.buffer) { |
| if (!state->has_shader_storage_buffer_objects()) { |
| _mesa_glsl_error(locp, state, |
| "#version 430 / GL_ARB_shader_storage_buffer_object " |
| "required for defining shader storage blocks"); |
| } else if (state->ARB_shader_storage_buffer_object_warn) { |
| _mesa_glsl_warning(locp, state, |
| "#version 430 / GL_ARB_shader_storage_buffer_object " |
| "required for defining shader storage blocks"); |
| } |
| } else if (q.flags.q.uniform) { |
| if (!state->has_uniform_buffer_objects()) { |
| _mesa_glsl_error(locp, state, |
| "#version 140 / GL_ARB_uniform_buffer_object " |
| "required for defining uniform blocks"); |
| } else if (state->ARB_uniform_buffer_object_warn) { |
| _mesa_glsl_warning(locp, state, |
| "#version 140 / GL_ARB_uniform_buffer_object " |
| "required for defining uniform blocks"); |
| } |
| } else { |
| if (state->es_shader || state->language_version < 150) { |
| _mesa_glsl_error(locp, state, |
| "#version 150 required for using " |
| "interface blocks"); |
| } |
| } |
| |
| /* From the GLSL 1.50.11 spec, section 4.3.7 ("Interface Blocks"): |
| * "It is illegal to have an input block in a vertex shader |
| * or an output block in a fragment shader" |
| */ |
| if ((state->stage == MESA_SHADER_VERTEX) && q.flags.q.in) { |
| _mesa_glsl_error(locp, state, |
| "`in' interface block is not allowed for " |
| "a vertex shader"); |
| } else if ((state->stage == MESA_SHADER_FRAGMENT) && q.flags.q.out) { |
| _mesa_glsl_error(locp, state, |
| "`out' interface block is not allowed for " |
| "a fragment shader"); |
| } |
| |
| /* Since block arrays require names, and both features are added in |
| * the same language versions, we don't have to explicitly |
| * version-check both things. |
| */ |
| if (block->instance_name != NULL) { |
| state->check_version(150, 300, locp, "interface blocks with " |
| "an instance name are not allowed"); |
| } |
| |
| uint64_t interface_type_mask; |
| struct ast_type_qualifier temp_type_qualifier; |
| |
| /* Get a bitmask containing only the in/out/uniform/buffer |
| * flags, allowing us to ignore other irrelevant flags like |
| * interpolation qualifiers. |
| */ |
| temp_type_qualifier.flags.i = 0; |
| temp_type_qualifier.flags.q.uniform = true; |
| temp_type_qualifier.flags.q.in = true; |
| temp_type_qualifier.flags.q.out = true; |
| temp_type_qualifier.flags.q.buffer = true; |
| interface_type_mask = temp_type_qualifier.flags.i; |
| |
| /* Get the block's interface qualifier. The interface_qualifier |
| * production rule guarantees that only one bit will be set (and |
| * it will be in/out/uniform). |
| */ |
| uint64_t block_interface_qualifier = q.flags.i; |
| |
| block->layout.flags.i |= block_interface_qualifier; |
| |
| if (state->stage == MESA_SHADER_GEOMETRY && |
| state->has_explicit_attrib_stream()) { |
| /* Assign global layout's stream value. */ |
| block->layout.flags.q.stream = 1; |
| block->layout.flags.q.explicit_stream = 0; |
| block->layout.stream = state->out_qualifier->stream; |
| } |
| |
| foreach_list_typed (ast_declarator_list, member, link, &block->declarations) { |
| ast_type_qualifier& qualifier = member->type->qualifier; |
| if ((qualifier.flags.i & interface_type_mask) == 0) { |
| /* GLSLangSpec.1.50.11, 4.3.7 (Interface Blocks): |
| * "If no optional qualifier is used in a member declaration, the |
| * qualifier of the variable is just in, out, or uniform as declared |
| * by interface-qualifier." |
| */ |
| qualifier.flags.i |= block_interface_qualifier; |
| } else if ((qualifier.flags.i & interface_type_mask) != |
| block_interface_qualifier) { |
| /* GLSLangSpec.1.50.11, 4.3.7 (Interface Blocks): |
| * "If optional qualifiers are used, they can include interpolation |
| * and storage qualifiers and they must declare an input, output, |
| * or uniform variable consistent with the interface qualifier of |
| * the block." |
| */ |
| _mesa_glsl_error(locp, state, |
| "uniform/in/out qualifier on " |
| "interface block member does not match " |
| "the interface block"); |
| } |
| |
| /* From GLSL ES 3.0, chapter 4.3.7 "Interface Blocks": |
| * |
| * "GLSL ES 3.0 does not support interface blocks for shader inputs or |
| * outputs." |
| * |
| * And from GLSL ES 3.0, chapter 4.6.1 "The invariant qualifier":. |
| * |
| * "Only variables output from a shader can be candidates for |
| * invariance." |
| * |
| * From GLSL 4.40 and GLSL 1.50, section "Interface Blocks": |
| * |
| * "If optional qualifiers are used, they can include interpolation |
| * qualifiers, auxiliary storage qualifiers, and storage qualifiers |
| * and they must declare an input, output, or uniform member |
| * consistent with the interface qualifier of the block" |
| */ |
| if (qualifier.flags.q.invariant) |
| _mesa_glsl_error(locp, state, |
| "invariant qualifiers cannot be used " |
| "with interface blocks members"); |
| } |
| } |
| |
| void |
| _mesa_ast_type_qualifier_print(const struct ast_type_qualifier *q) |
| { |
| if (q->flags.q.subroutine) |
| printf("subroutine "); |
| |
| if (q->flags.q.subroutine_def) { |
| printf("subroutine ("); |
| q->subroutine_list->print(); |
| printf(")"); |
| } |
| |
| if (q->flags.q.constant) |
| printf("const "); |
| |
| if (q->flags.q.invariant) |
| printf("invariant "); |
| |
| if (q->flags.q.attribute) |
| printf("attribute "); |
| |
| if (q->flags.q.varying) |
| printf("varying "); |
| |
| if (q->flags.q.in && q->flags.q.out) |
| printf("inout "); |
| else { |
| if (q->flags.q.in) |
| printf("in "); |
| |
| if (q->flags.q.out) |
| printf("out "); |
| } |
| |
| if (q->flags.q.centroid) |
| printf("centroid "); |
| if (q->flags.q.sample) |
| printf("sample "); |
| if (q->flags.q.patch) |
| printf("patch "); |
| if (q->flags.q.uniform) |
| printf("uniform "); |
| if (q->flags.q.buffer) |
| printf("buffer "); |
| if (q->flags.q.smooth) |
| printf("smooth "); |
| if (q->flags.q.flat) |
| printf("flat "); |
| if (q->flags.q.noperspective) |
| printf("noperspective "); |
| } |
| |
| |
| void |
| ast_node::print(void) const |
| { |
| printf("unhandled node "); |
| } |
| |
| |
| ast_node::ast_node(void) |
| { |
| this->location.source = 0; |
| this->location.first_line = 0; |
| this->location.first_column = 0; |
| this->location.last_line = 0; |
| this->location.last_column = 0; |
| } |
| |
| |
| static void |
| ast_opt_array_dimensions_print(const ast_array_specifier *array_specifier) |
| { |
| if (array_specifier) |
| array_specifier->print(); |
| } |
| |
| |
| void |
| ast_compound_statement::print(void) const |
| { |
| printf("{\n"); |
| |
| foreach_list_typed(ast_node, ast, link, &this->statements) { |
| ast->print(); |
| } |
| |
| printf("}\n"); |
| } |
| |
| |
| ast_compound_statement::ast_compound_statement(int new_scope, |
| ast_node *statements) |
| { |
| this->new_scope = new_scope; |
| |
| if (statements != NULL) { |
| this->statements.push_degenerate_list_at_head(&statements->link); |
| } |
| } |
| |
| |
| void |
| ast_expression::print(void) const |
| { |
| switch (oper) { |
| case ast_assign: |
| case ast_mul_assign: |
| case ast_div_assign: |
| case ast_mod_assign: |
| case ast_add_assign: |
| case ast_sub_assign: |
| case ast_ls_assign: |
| case ast_rs_assign: |
| case ast_and_assign: |
| case ast_xor_assign: |
| case ast_or_assign: |
| subexpressions[0]->print(); |
| printf("%s ", operator_string(oper)); |
| subexpressions[1]->print(); |
| break; |
| |
| case ast_field_selection: |
| subexpressions[0]->print(); |
| printf(". %s ", primary_expression.identifier); |
| break; |
| |
| case ast_plus: |
| case ast_neg: |
| case ast_bit_not: |
| case ast_logic_not: |
| case ast_pre_inc: |
| case ast_pre_dec: |
| printf("%s ", operator_string(oper)); |
| subexpressions[0]->print(); |
| break; |
| |
| case ast_post_inc: |
| case ast_post_dec: |
| subexpressions[0]->print(); |
| printf("%s ", operator_string(oper)); |
| break; |
| |
| case ast_conditional: |
| subexpressions[0]->print(); |
| printf("? "); |
| subexpressions[1]->print(); |
| printf(": "); |
| subexpressions[2]->print(); |
| break; |
| |
| case ast_array_index: |
| subexpressions[0]->print(); |
| printf("[ "); |
| subexpressions[1]->print(); |
| printf("] "); |
| break; |
| |
| case ast_function_call: { |
| subexpressions[0]->print(); |
| printf("( "); |
| |
| foreach_list_typed (ast_node, ast, link, &this->expressions) { |
| if (&ast->link != this->expressions.get_head()) |
| printf(", "); |
| |
| ast->print(); |
| } |
| |
| printf(") "); |
| break; |
| } |
| |
| case ast_identifier: |
| printf("%s ", primary_expression.identifier); |
| break; |
| |
| case ast_int_constant: |
| printf("%d ", primary_expression.int_constant); |
| break; |
| |
| case ast_uint_constant: |
| printf("%u ", primary_expression.uint_constant); |
| break; |
| |
| case ast_float_constant: |
| printf("%f ", primary_expression.float_constant); |
| break; |
| |
| case ast_double_constant: |
| printf("%f ", primary_expression.double_constant); |
| break; |
| |
| case ast_bool_constant: |
| printf("%s ", |
| primary_expression.bool_constant |
| ? "true" : "false"); |
| break; |
| |
| case ast_sequence: { |
| printf("( "); |
| foreach_list_typed (ast_node, ast, link, & this->expressions) { |
| if (&ast->link != this->expressions.get_head()) |
| printf(", "); |
| |
| ast->print(); |
| } |
| printf(") "); |
| break; |
| } |
| |
| case ast_aggregate: { |
| printf("{ "); |
| foreach_list_typed (ast_node, ast, link, & this->expressions) { |
| if (&ast->link != this->expressions.get_head()) |
| printf(", "); |
| |
| ast->print(); |
| } |
| printf("} "); |
| break; |
| } |
| |
| default: |
| assert(0); |
| break; |
| } |
| } |
| |
| ast_expression::ast_expression(int oper, |
| ast_expression *ex0, |
| ast_expression *ex1, |
| ast_expression *ex2) : |
| primary_expression() |
| { |
| this->oper = ast_operators(oper); |
| this->subexpressions[0] = ex0; |
| this->subexpressions[1] = ex1; |
| this->subexpressions[2] = ex2; |
| this->non_lvalue_description = NULL; |
| } |
| |
| |
| void |
| ast_expression_statement::print(void) const |
| { |
| if (expression) |
| expression->print(); |
| |
| printf("; "); |
| } |
| |
| |
| ast_expression_statement::ast_expression_statement(ast_expression *ex) : |
| expression(ex) |
| { |
| /* empty */ |
| } |
| |
| |
| void |
| ast_function::print(void) const |
| { |
| return_type->print(); |
| printf(" %s (", identifier); |
| |
| foreach_list_typed(ast_node, ast, link, & this->parameters) { |
| ast->print(); |
| } |
| |
| printf(")"); |
| } |
| |
| |
| ast_function::ast_function(void) |
| : return_type(NULL), identifier(NULL), is_definition(false), |
| signature(NULL) |
| { |
| /* empty */ |
| } |
| |
| |
| void |
| ast_fully_specified_type::print(void) const |
| { |
| _mesa_ast_type_qualifier_print(& qualifier); |
| specifier->print(); |
| } |
| |
| |
| void |
| ast_parameter_declarator::print(void) const |
| { |
| type->print(); |
| if (identifier) |
| printf("%s ", identifier); |
| ast_opt_array_dimensions_print(array_specifier); |
| } |
| |
| |
| void |
| ast_function_definition::print(void) const |
| { |
| prototype->print(); |
| body->print(); |
| } |
| |
| |
| void |
| ast_declaration::print(void) const |
| { |
| printf("%s ", identifier); |
| ast_opt_array_dimensions_print(array_specifier); |
| |
| if (initializer) { |
| printf("= "); |
| initializer->print(); |
| } |
| } |
| |
| |
| ast_declaration::ast_declaration(const char *identifier, |
| ast_array_specifier *array_specifier, |
| ast_expression *initializer) |
| { |
| this->identifier = identifier; |
| this->array_specifier = array_specifier; |
| this->initializer = initializer; |
| } |
| |
| |
| void |
| ast_declarator_list::print(void) const |
| { |
| assert(type || invariant); |
| |
| if (type) |
| type->print(); |
| else if (invariant) |
| printf("invariant "); |
| else |
| printf("precise "); |
| |
| foreach_list_typed (ast_node, ast, link, & this->declarations) { |
| if (&ast->link != this->declarations.get_head()) |
| printf(", "); |
| |
| ast->print(); |
| } |
| |
| printf("; "); |
| } |
| |
| |
| ast_declarator_list::ast_declarator_list(ast_fully_specified_type *type) |
| { |
| this->type = type; |
| this->invariant = false; |
| this->precise = false; |
| } |
| |
| void |
| ast_jump_statement::print(void) const |
| { |
| switch (mode) { |
| case ast_continue: |
| printf("continue; "); |
| break; |
| case ast_break: |
| printf("break; "); |
| break; |
| case ast_return: |
| printf("return "); |
| if (opt_return_value) |
| opt_return_value->print(); |
| |
| printf("; "); |
| break; |
| case ast_discard: |
| printf("discard; "); |
| break; |
| } |
| } |
| |
| |
| ast_jump_statement::ast_jump_statement(int mode, ast_expression *return_value) |
| : opt_return_value(NULL) |
| { |
| this->mode = ast_jump_modes(mode); |
| |
| if (mode == ast_return) |
| opt_return_value = return_value; |
| } |
| |
| |
| void |
| ast_selection_statement::print(void) const |
| { |
| printf("if ( "); |
| condition->print(); |
| printf(") "); |
| |
| then_statement->print(); |
| |
| if (else_statement) { |
| printf("else "); |
| else_statement->print(); |
| } |
| } |
| |
| |
| ast_selection_statement::ast_selection_statement(ast_expression *condition, |
| ast_node *then_statement, |
| ast_node *else_statement) |
| { |
| this->condition = condition; |
| this->then_statement = then_statement; |
| this->else_statement = else_statement; |
| } |
| |
| |
| void |
| ast_switch_statement::print(void) const |
| { |
| printf("switch ( "); |
| test_expression->print(); |
| printf(") "); |
| |
| body->print(); |
| } |
| |
| |
| ast_switch_statement::ast_switch_statement(ast_expression *test_expression, |
| ast_node *body) |
| { |
| this->test_expression = test_expression; |
| this->body = body; |
| } |
| |
| |
| void |
| ast_switch_body::print(void) const |
| { |
| printf("{\n"); |
| if (stmts != NULL) { |
| stmts->print(); |
| } |
| printf("}\n"); |
| } |
| |
| |
| ast_switch_body::ast_switch_body(ast_case_statement_list *stmts) |
| { |
| this->stmts = stmts; |
| } |
| |
| |
| void ast_case_label::print(void) const |
| { |
| if (test_value != NULL) { |
| printf("case "); |
| test_value->print(); |
| printf(": "); |
| } else { |
| printf("default: "); |
| } |
| } |
| |
| |
| ast_case_label::ast_case_label(ast_expression *test_value) |
| { |
| this->test_value = test_value; |
| } |
| |
| |
| void ast_case_label_list::print(void) const |
| { |
| foreach_list_typed(ast_node, ast, link, & this->labels) { |
| ast->print(); |
| } |
| printf("\n"); |
| } |
| |
| |
| ast_case_label_list::ast_case_label_list(void) |
| { |
| } |
| |
| |
| void ast_case_statement::print(void) const |
| { |
| labels->print(); |
| foreach_list_typed(ast_node, ast, link, & this->stmts) { |
| ast->print(); |
| printf("\n"); |
| } |
| } |
| |
| |
| ast_case_statement::ast_case_statement(ast_case_label_list *labels) |
| { |
| this->labels = labels; |
| } |
| |
| |
| void ast_case_statement_list::print(void) const |
| { |
| foreach_list_typed(ast_node, ast, link, & this->cases) { |
| ast->print(); |
| } |
| } |
| |
| |
| ast_case_statement_list::ast_case_statement_list(void) |
| { |
| } |
| |
| |
| void |
| ast_iteration_statement::print(void) const |
| { |
| switch (mode) { |
| case ast_for: |
| printf("for( "); |
| if (init_statement) |
| init_statement->print(); |
| printf("; "); |
| |
| if (condition) |
| condition->print(); |
| printf("; "); |
| |
| if (rest_expression) |
| rest_expression->print(); |
| printf(") "); |
| |
| body->print(); |
| break; |
| |
| case ast_while: |
| printf("while ( "); |
| if (condition) |
| condition->print(); |
| printf(") "); |
| body->print(); |
| break; |
| |
| case ast_do_while: |
| printf("do "); |
| body->print(); |
| printf("while ( "); |
| if (condition) |
| condition->print(); |
| printf("); "); |
| break; |
| } |
| } |
| |
| |
| ast_iteration_statement::ast_iteration_statement(int mode, |
| ast_node *init, |
| ast_node *condition, |
| ast_expression *rest_expression, |
| ast_node *body) |
| { |
| this->mode = ast_iteration_modes(mode); |
| this->init_statement = init; |
| this->condition = condition; |
| this->rest_expression = rest_expression; |
| this->body = body; |
| } |
| |
| |
| void |
| ast_struct_specifier::print(void) const |
| { |
| printf("struct %s { ", name); |
| foreach_list_typed(ast_node, ast, link, &this->declarations) { |
| ast->print(); |
| } |
| printf("} "); |
| } |
| |
| |
| ast_struct_specifier::ast_struct_specifier(const char *identifier, |
| ast_declarator_list *declarator_list) |
| { |
| if (identifier == NULL) { |
| static mtx_t mutex = _MTX_INITIALIZER_NP; |
| static unsigned anon_count = 1; |
| unsigned count; |
| |
| mtx_lock(&mutex); |
| count = anon_count++; |
| mtx_unlock(&mutex); |
| |
| identifier = ralloc_asprintf(this, "#anon_struct_%04x", count); |
| } |
| name = identifier; |
| this->declarations.push_degenerate_list_at_head(&declarator_list->link); |
| is_declaration = true; |
| } |
| |
| void ast_subroutine_list::print(void) const |
| { |
| foreach_list_typed (ast_node, ast, link, & this->declarations) { |
| if (&ast->link != this->declarations.get_head()) |
| printf(", "); |
| ast->print(); |
| } |
| } |
| |
| static void |
| set_shader_inout_layout(struct gl_shader *shader, |
| struct _mesa_glsl_parse_state *state) |
| { |
| /* Should have been prevented by the parser. */ |
| if (shader->Stage == MESA_SHADER_TESS_CTRL) { |
| assert(!state->in_qualifier->flags.i); |
| } else if (shader->Stage == MESA_SHADER_TESS_EVAL) { |
| assert(!state->out_qualifier->flags.i); |
| } else if (shader->Stage != MESA_SHADER_GEOMETRY) { |
| assert(!state->in_qualifier->flags.i); |
| assert(!state->out_qualifier->flags.i); |
| } |
| |
| if (shader->Stage != MESA_SHADER_COMPUTE) { |
| /* Should have been prevented by the parser. */ |
| assert(!state->cs_input_local_size_specified); |
| } |
| |
| if (shader->Stage != MESA_SHADER_FRAGMENT) { |
| /* Should have been prevented by the parser. */ |
| assert(!state->fs_uses_gl_fragcoord); |
| assert(!state->fs_redeclares_gl_fragcoord); |
| assert(!state->fs_pixel_center_integer); |
| assert(!state->fs_origin_upper_left); |
| assert(!state->fs_early_fragment_tests); |
| } |
| |
| switch (shader->Stage) { |
| case MESA_SHADER_TESS_CTRL: |
| shader->TessCtrl.VerticesOut = 0; |
| if (state->tcs_output_vertices_specified) { |
| unsigned vertices; |
| if (state->out_qualifier->vertices-> |
| process_qualifier_constant(state, "vertices", &vertices, |
| false)) { |
| |
| YYLTYPE loc = state->out_qualifier->vertices->get_location(); |
| if (vertices > state->Const.MaxPatchVertices) { |
| _mesa_glsl_error(&loc, state, "vertices (%d) exceeds " |
| "GL_MAX_PATCH_VERTICES", vertices); |
| } |
| shader->TessCtrl.VerticesOut = vertices; |
| } |
| } |
| break; |
| case MESA_SHADER_TESS_EVAL: |
| shader->TessEval.PrimitiveMode = PRIM_UNKNOWN; |
| if (state->in_qualifier->flags.q.prim_type) |
| shader->TessEval.PrimitiveMode = state->in_qualifier->prim_type; |
| |
| shader->TessEval.Spacing = 0; |
| if (state->in_qualifier->flags.q.vertex_spacing) |
| shader->TessEval.Spacing = state->in_qualifier->vertex_spacing; |
| |
| shader->TessEval.VertexOrder = 0; |
| if (state->in_qualifier->flags.q.ordering) |
| shader->TessEval.VertexOrder = state->in_qualifier->ordering; |
| |
| shader->TessEval.PointMode = -1; |
| if (state->in_qualifier->flags.q.point_mode) |
| shader->TessEval.PointMode = state->in_qualifier->point_mode; |
| break; |
| case MESA_SHADER_GEOMETRY: |
| shader->Geom.VerticesOut = 0; |
| if (state->out_qualifier->flags.q.max_vertices) { |
| unsigned qual_max_vertices; |
| if (state->out_qualifier->max_vertices-> |
| process_qualifier_constant(state, "max_vertices", |
| &qual_max_vertices, true)) { |
| shader->Geom.VerticesOut = qual_max_vertices; |
| } |
| } |
| |
| if (state->gs_input_prim_type_specified) { |
| shader->Geom.InputType = state->in_qualifier->prim_type; |
| } else { |
| shader->Geom.InputType = PRIM_UNKNOWN; |
| } |
| |
| if (state->out_qualifier->flags.q.prim_type) { |
| shader->Geom.OutputType = state->out_qualifier->prim_type; |
| } else { |
| shader->Geom.OutputType = PRIM_UNKNOWN; |
| } |
| |
| shader->Geom.Invocations = 0; |
| if (state->in_qualifier->flags.q.invocations) { |
| unsigned invocations; |
| if (state->in_qualifier->invocations-> |
| process_qualifier_constant(state, "invocations", |
| &invocations, false)) { |
| |
| YYLTYPE loc = state->in_qualifier->invocations->get_location(); |
| if (invocations > MAX_GEOMETRY_SHADER_INVOCATIONS) { |
| _mesa_glsl_error(&loc, state, |
| "invocations (%d) exceeds " |
| "GL_MAX_GEOMETRY_SHADER_INVOCATIONS", |
| invocations); |
| } |
| shader->Geom.Invocations = invocations; |
| } |
| } |
| break; |
| |
| case MESA_SHADER_COMPUTE: |
| if (state->cs_input_local_size_specified) { |
| for (int i = 0; i < 3; i++) |
| shader->Comp.LocalSize[i] = state->cs_input_local_size[i]; |
| } else { |
| for (int i = 0; i < 3; i++) |
| shader->Comp.LocalSize[i] = 0; |
| } |
| break; |
| |
| case MESA_SHADER_FRAGMENT: |
| shader->redeclares_gl_fragcoord = state->fs_redeclares_gl_fragcoord; |
| shader->uses_gl_fragcoord = state->fs_uses_gl_fragcoord; |
| shader->pixel_center_integer = state->fs_pixel_center_integer; |
| shader->origin_upper_left = state->fs_origin_upper_left; |
| shader->ARB_fragment_coord_conventions_enable = |
| state->ARB_fragment_coord_conventions_enable; |
| shader->EarlyFragmentTests = state->fs_early_fragment_tests; |
| break; |
| |
| default: |
| /* Nothing to do. */ |
| break; |
| } |
| } |
| |
| extern "C" { |
| |
| void |
| _mesa_glsl_compile_shader(struct gl_context *ctx, struct gl_shader *shader, |
| bool dump_ast, bool dump_hir) |
| { |
| struct _mesa_glsl_parse_state *state = |
| new(shader) _mesa_glsl_parse_state(ctx, shader->Stage, shader); |
| const char *source = shader->Source; |
| |
| if (ctx->Const.GenerateTemporaryNames) |
| (void) p_atomic_cmpxchg(&ir_variable::temporaries_allocate_names, |
| false, true); |
| |
| state->error = glcpp_preprocess(state, &source, &state->info_log, |
| &ctx->Extensions, ctx); |
| |
| if (!state->error) { |
| _mesa_glsl_lexer_ctor(state, source); |
| _mesa_glsl_parse(state); |
| _mesa_glsl_lexer_dtor(state); |
| } |
| |
| if (dump_ast) { |
| foreach_list_typed(ast_node, ast, link, &state->translation_unit) { |
| ast->print(); |
| } |
| printf("\n\n"); |
| } |
| |
| ralloc_free(shader->ir); |
| shader->ir = new(shader) exec_list; |
| if (!state->error && !state->translation_unit.is_empty()) |
| _mesa_ast_to_hir(shader->ir, state); |
| |
| if (!state->error) { |
| validate_ir_tree(shader->ir); |
| |
| /* Print out the unoptimized IR. */ |
| if (dump_hir) { |
| _mesa_print_ir(stdout, shader->ir, state); |
| } |
| } |
| |
| |
| if (!state->error && !shader->ir->is_empty()) { |
| struct gl_shader_compiler_options *options = |
| &ctx->Const.ShaderCompilerOptions[shader->Stage]; |
| |
| lower_subroutine(shader->ir, state); |
| /* Do some optimization at compile time to reduce shader IR size |
| * and reduce later work if the same shader is linked multiple times |
| */ |
| while (do_common_optimization(shader->ir, false, false, options, |
| ctx->Const.NativeIntegers)) |
| ; |
| |
| validate_ir_tree(shader->ir); |
| |
| enum ir_variable_mode other; |
| switch (shader->Stage) { |
| case MESA_SHADER_VERTEX: |
| other = ir_var_shader_in; |
| break; |
| case MESA_SHADER_FRAGMENT: |
| other = ir_var_shader_out; |
| break; |
| default: |
| /* Something invalid to ensure optimize_dead_builtin_uniforms |
| * doesn't remove anything other than uniforms or constants. |
| */ |
| other = ir_var_mode_count; |
| break; |
| } |
| |
| optimize_dead_builtin_variables(shader->ir, other); |
| |
| validate_ir_tree(shader->ir); |
| } |
| |
| if (shader->InfoLog) |
| ralloc_free(shader->InfoLog); |
| |
| if (!state->error) |
| set_shader_inout_layout(shader, state); |
| |
| shader->symbols = new(shader->ir) glsl_symbol_table; |
| shader->CompileStatus = !state->error; |
| shader->InfoLog = state->info_log; |
| shader->Version = state->language_version; |
| shader->IsES = state->es_shader; |
| shader->uses_builtin_functions = state->uses_builtin_functions; |
| |
| /* Retain any live IR, but trash the rest. */ |
| reparent_ir(shader->ir, shader->ir); |
| |
| /* Destroy the symbol table. Create a new symbol table that contains only |
| * the variables and functions that still exist in the IR. The symbol |
| * table will be used later during linking. |
| * |
| * There must NOT be any freed objects still referenced by the symbol |
| * table. That could cause the linker to dereference freed memory. |
| * |
| * We don't have to worry about types or interface-types here because those |
| * are fly-weights that are looked up by glsl_type. |
| */ |
| foreach_in_list (ir_instruction, ir, shader->ir) { |
| switch (ir->ir_type) { |
| case ir_type_function: |
| shader->symbols->add_function((ir_function *) ir); |
| break; |
| case ir_type_variable: { |
| ir_variable *const var = (ir_variable *) ir; |
| |
| if (var->data.mode != ir_var_temporary) |
| shader->symbols->add_variable(var); |
| break; |
| } |
| default: |
| break; |
| } |
| } |
| |
| _mesa_glsl_initialize_derived_variables(shader); |
| |
| delete state->symbols; |
| ralloc_free(state); |
| } |
| |
| } /* extern "C" */ |
| /** |
| * Do the set of common optimizations passes |
| * |
| * \param ir List of instructions to be optimized |
| * \param linked Is the shader linked? This enables |
| * optimizations passes that remove code at |
| * global scope and could cause linking to |
| * fail. |
| * \param uniform_locations_assigned Have locations already been assigned for |
| * uniforms? This prevents the declarations |
| * of unused uniforms from being removed. |
| * The setting of this flag only matters if |
| * \c linked is \c true. |
| * \param max_unroll_iterations Maximum number of loop iterations to be |
| * unrolled. Setting to 0 disables loop |
| * unrolling. |
| * \param options The driver's preferred shader options. |
| */ |
| bool |
| do_common_optimization(exec_list *ir, bool linked, |
| bool uniform_locations_assigned, |
| const struct gl_shader_compiler_options *options, |
| bool native_integers) |
| { |
| GLboolean progress = GL_FALSE; |
| |
| progress = lower_instructions(ir, SUB_TO_ADD_NEG) || progress; |
| |
| if (linked) { |
| progress = do_function_inlining(ir) || progress; |
| progress = do_dead_functions(ir) || progress; |
| progress = do_structure_splitting(ir) || progress; |
| } |
| progress = do_if_simplification(ir) || progress; |
| progress = opt_flatten_nested_if_blocks(ir) || progress; |
| progress = opt_conditional_discard(ir) || progress; |
| progress = do_copy_propagation(ir) || progress; |
| progress = do_copy_propagation_elements(ir) || progress; |
| |
| if (options->OptimizeForAOS && !linked) |
| progress = opt_flip_matrices(ir) || progress; |
| |
| if (linked && options->OptimizeForAOS) { |
| progress = do_vectorize(ir) || progress; |
| } |
| |
| if (linked) |
| progress = do_dead_code(ir, uniform_locations_assigned) || progress; |
| else |
| progress = do_dead_code_unlinked(ir) || progress; |
| progress = do_dead_code_local(ir) || progress; |
| progress = do_tree_grafting(ir) || progress; |
| progress = do_constant_propagation(ir) || progress; |
| if (linked) |
| progress = do_constant_variable(ir) || progress; |
| else |
| progress = do_constant_variable_unlinked(ir) || progress; |
| progress = do_constant_folding(ir) || progress; |
| progress = do_minmax_prune(ir) || progress; |
| progress = do_rebalance_tree(ir) || progress; |
| progress = do_algebraic(ir, native_integers, options) || progress; |
| progress = do_lower_jumps(ir) || progress; |
| progress = do_vec_index_to_swizzle(ir) || progress; |
| progress = lower_vector_insert(ir, false) || progress; |
| progress = do_swizzle_swizzle(ir) || progress; |
| progress = do_noop_swizzle(ir) || progress; |
| |
| progress = optimize_split_arrays(ir, linked) || progress; |
| progress = optimize_redundant_jumps(ir) || progress; |
| |
| loop_state *ls = analyze_loop_variables(ir); |
| if (ls->loop_found) { |
| progress = set_loop_controls(ir, ls) || progress; |
| progress = unroll_loops(ir, ls, options) || progress; |
| } |
| delete ls; |
| |
| return progress; |
| } |
| |
| extern "C" { |
| |
| /** |
| * To be called at GL teardown time, this frees compiler datastructures. |
| * |
| * After calling this, any previously compiled shaders and shader |
| * programs would be invalid. So this should happen at approximately |
| * program exit. |
| */ |
| void |
| _mesa_destroy_shader_compiler(void) |
| { |
| _mesa_destroy_shader_compiler_caches(); |
| |
| _mesa_glsl_release_types(); |
| } |
| |
| /** |
| * Releases compiler caches to trade off performance for memory. |
| * |
| * Intended to be used with glReleaseShaderCompiler(). |
| */ |
| void |
| _mesa_destroy_shader_compiler_caches(void) |
| { |
| _mesa_glsl_release_builtin_functions(); |
| } |
| |
| } |