svn merge ^/branches/released .

1 files changed, 1606 insertions, 1511 deletions

diff --git a/mesalib/src/glsl/ir.h b/mesalib/src/glsl/ir.h
index fa246b5e5..b143827a7 100644
--- a/mesalib/src/glsl/ir.h
+++ b/mesalib/src/glsl/ir.h
@@ -1,1511 +1,1606 @@
-/* -*- c++ -*- */
-/*
- * Copyright © 2010 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.
- */
-
-#pragma once
-#ifndef IR_H
-#define IR_H
-
-#include <cstdio>
-#include <cstdlib>
-
-extern "C" {
-#include <talloc.h>
-}
-
-#include "list.h"
-#include "ir_visitor.h"
-#include "ir_hierarchical_visitor.h"
-
-#ifndef ARRAY_SIZE
-#define ARRAY_SIZE(x) (sizeof(x) / sizeof(x[0]))
-#endif
-
-/**
- * \defgroup IR Intermediate representation nodes
- *
- * @{
- */
-
-/**
- * Class tags
- *
- * Each concrete class derived from \c ir_instruction has a value in this
- * enumerant.  The value for the type is stored in \c ir_instruction::ir_type
- * by the constructor.  While using type tags is not very C++, it is extremely
- * convenient.  For example, during debugging you can simply inspect
- * \c ir_instruction::ir_type to find out the actual type of the object.
- *
- * In addition, it is possible to use a switch-statement based on \c
- * \c ir_instruction::ir_type to select different behavior for different object
- * types.  For functions that have only slight differences for several object
- * types, this allows writing very straightforward, readable code.
- */
-enum ir_node_type {
-   /**
-    * Zero is unused so that the IR validator can detect cases where
-    * \c ir_instruction::ir_type has not been initialized.
-    */
-   ir_type_unset,
-   ir_type_variable,
-   ir_type_assignment,
-   ir_type_call,
-   ir_type_constant,
-   ir_type_dereference_array,
-   ir_type_dereference_record,
-   ir_type_dereference_variable,
-   ir_type_discard,
-   ir_type_expression,
-   ir_type_function,
-   ir_type_function_signature,
-   ir_type_if,
-   ir_type_loop,
-   ir_type_loop_jump,
-   ir_type_return,
-   ir_type_swizzle,
-   ir_type_texture,
-   ir_type_max /**< maximum ir_type enum number, for validation */
-};
-
-/**
- * Base class of all IR instructions
- */
-class ir_instruction : public exec_node {
-public:
-   enum ir_node_type ir_type;
-   const struct glsl_type *type;
-
-   /** ir_print_visitor helper for debugging. */
-   void print(void) const;
-
-   virtual void accept(ir_visitor *) = 0;
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *) = 0;
-   virtual ir_instruction *clone(void *mem_ctx,
-				 struct hash_table *ht) const = 0;
-
-   /**
-    * \name IR instruction downcast functions
-    *
-    * These functions either cast the object to a derived class or return
-    * \c NULL if the object's type does not match the specified derived class.
-    * Additional downcast functions will be added as needed.
-    */
-   /*@{*/
-   virtual class ir_variable *          as_variable()         { return NULL; }
-   virtual class ir_function *          as_function()         { return NULL; }
-   virtual class ir_dereference *       as_dereference()      { return NULL; }
-   virtual class ir_dereference_array *	as_dereference_array() { return NULL; }
-   virtual class ir_dereference_variable *as_dereference_variable() { return NULL; }
-   virtual class ir_expression *        as_expression()       { return NULL; }
-   virtual class ir_rvalue *            as_rvalue()           { return NULL; }
-   virtual class ir_loop *              as_loop()             { return NULL; }
-   virtual class ir_assignment *        as_assignment()       { return NULL; }
-   virtual class ir_call *              as_call()             { return NULL; }
-   virtual class ir_return *            as_return()           { return NULL; }
-   virtual class ir_if *                as_if()               { return NULL; }
-   virtual class ir_swizzle *           as_swizzle()          { return NULL; }
-   virtual class ir_constant *          as_constant()         { return NULL; }
-   /*@}*/
-
-protected:
-   ir_instruction()
-   {
-      ir_type = ir_type_unset;
-      type = NULL;
-   }
-};
-
-
-class ir_rvalue : public ir_instruction {
-public:
-   virtual ir_rvalue *clone(void *mem_ctx, struct hash_table *) const = 0;
-
-   virtual ir_constant *constant_expression_value() = 0;
-
-   virtual ir_rvalue * as_rvalue()
-   {
-      return this;
-   }
-
-   virtual bool is_lvalue()
-   {
-      return false;
-   }
-
-   /**
-    * Get the variable that is ultimately referenced by an r-value
-    */
-   virtual ir_variable *variable_referenced()
-   {
-      return NULL;
-   }
-
-
-   /**
-    * If an r-value is a reference to a whole variable, get that variable
-    *
-    * \return
-    * Pointer to a variable that is completely dereferenced by the r-value.  If
-    * the r-value is not a dereference or the dereference does not access the
-    * entire variable (i.e., it's just one array element, struct field), \c NULL
-    * is returned.
-    */
-   virtual ir_variable *whole_variable_referenced()
-   {
-      return NULL;
-   }
-
-protected:
-   ir_rvalue();
-};
-
-
-/**
- * Variable storage classes
- */
-enum ir_variable_mode {
-   ir_var_auto = 0,     /**< Function local variables and globals. */
-   ir_var_uniform,      /**< Variable declared as a uniform. */
-   ir_var_in,
-   ir_var_out,
-   ir_var_inout,
-   ir_var_temporary	/**< Temporary variable generated during compilation. */
-};
-
-enum ir_variable_interpolation {
-   ir_var_smooth = 0,
-   ir_var_flat,
-   ir_var_noperspective
-};
-
-
-class ir_variable : public ir_instruction {
-public:
-   ir_variable(const struct glsl_type *, const char *, ir_variable_mode);
-
-   virtual ir_variable *clone(void *mem_ctx, struct hash_table *ht) const;
-
-   virtual ir_variable *as_variable()
-   {
-      return this;
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-
-   /**
-    * Get the string value for the interpolation qualifier
-    *
-    * \return The string that would be used in a shader to specify \c
-    * mode will be returned.
-    *
-    * This function should only be used on a shader input or output variable.
-    */
-   const char *interpolation_string() const;
-
-   /**
-    * Calculate the number of slots required to hold this variable
-    *
-    * This is used to determine how many uniform or varying locations a variable
-    * occupies.  The count is in units of floating point components.
-    */
-   unsigned component_slots() const;
-
-   /**
-    * Delcared name of the variable
-    */
-   const char *name;
-
-   /**
-    * Highest element accessed with a constant expression array index
-    *
-    * Not used for non-array variables.
-    */
-   unsigned max_array_access;
-
-   /**
-    * Is the variable read-only?
-    *
-    * This is set for variables declared as \c const, shader inputs,
-    * and uniforms.
-    */
-   unsigned read_only:1;
-   unsigned centroid:1;
-   unsigned invariant:1;
-
-   /**
-    * Storage class of the variable.
-    *
-    * \sa ir_variable_mode
-    */
-   unsigned mode:3;
-
-   /**
-    * Interpolation mode for shader inputs / outputs
-    *
-    * \sa ir_variable_interpolation
-    */
-   unsigned interpolation:2;
-
-   /**
-    * Flag that the whole array is assignable
-    *
-    * In GLSL 1.20 and later whole arrays are assignable (and comparable for
-    * equality).  This flag enables this behavior.
-    */
-   unsigned array_lvalue:1;
-
-   /**
-    * \name ARB_fragment_coord_conventions
-    * @{
-    */
-   unsigned origin_upper_left:1;
-   unsigned pixel_center_integer:1;
-   /*@}*/
-
-   /**
-    * Storage location of the base of this variable
-    *
-    * The precise meaning of this field depends on the nature of the variable.
-    *
-    *   - Vertex shader input: one of the values from \c gl_vert_attrib.
-    *   - Vertex shader output: one of the values from \c gl_vert_result.
-    *   - Fragment shader input: one of the values from \c gl_frag_attrib.
-    *   - Fragment shader output: one of the values from \c gl_frag_result.
-    *   - Uniforms: Per-stage uniform slot number.
-    *   - Other: This field is not currently used.
-    *
-    * If the variable is a uniform, shader input, or shader output, and the
-    * slot has not been assigned, the value will be -1.
-    */
-   int location;
-
-   /**
-    * Emit a warning if this variable is accessed.
-    */
-   const char *warn_extension;
-
-   /**
-    * Value assigned in the initializer of a variable declared "const"
-    */
-   ir_constant *constant_value;
-};
-
-
-/*@{*/
-/**
- * The representation of a function instance; may be the full definition or
- * simply a prototype.
- */
-class ir_function_signature : public ir_instruction {
-   /* An ir_function_signature will be part of the list of signatures in
-    * an ir_function.
-    */
-public:
-   ir_function_signature(const glsl_type *return_type);
-
-   virtual ir_function_signature *clone(void *mem_ctx,
-					struct hash_table *ht) const;
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   /**
-    * Get the name of the function for which this is a signature
-    */
-   const char *function_name() const;
-
-   /**
-    * Get a handle to the function for which this is a signature
-    *
-    * There is no setter function, this function returns a \c const pointer,
-    * and \c ir_function_signature::_function is private for a reason.  The
-    * only way to make a connection between a function and function signature
-    * is via \c ir_function::add_signature.  This helps ensure that certain
-    * invariants (i.e., a function signature is in the list of signatures for
-    * its \c _function) are met.
-    *
-    * \sa ir_function::add_signature
-    */
-   inline const class ir_function *function() const
-   {
-      return this->_function;
-   }
-
-   /**
-    * Check whether the qualifiers match between this signature's parameters
-    * and the supplied parameter list.  If not, returns the name of the first
-    * parameter with mismatched qualifiers (for use in error messages).
-    */
-   const char *qualifiers_match(exec_list *params);
-
-   /**
-    * Replace the current parameter list with the given one.  This is useful
-    * if the current information came from a prototype, and either has invalid
-    * or missing parameter names.
-    */
-   void replace_parameters(exec_list *new_params);
-
-   /**
-    * Function return type.
-    *
-    * \note This discards the optional precision qualifier.
-    */
-   const struct glsl_type *return_type;
-
-   /**
-    * List of ir_variable of function parameters.
-    *
-    * This represents the storage.  The paramaters passed in a particular
-    * call will be in ir_call::actual_paramaters.
-    */
-   struct exec_list parameters;
-
-   /** Whether or not this function has a body (which may be empty). */
-   unsigned is_defined:1;
-
-   /** Whether or not this function signature is a built-in. */
-   unsigned is_builtin:1;
-
-   /** Body of instructions in the function. */
-   struct exec_list body;
-
-private:
-   /** Function of which this signature is one overload. */
-   class ir_function *_function;
-
-   friend class ir_function;
-};
-
-
-/**
- * Header for tracking multiple overloaded functions with the same name.
- * Contains a list of ir_function_signatures representing each of the
- * actual functions.
- */
-class ir_function : public ir_instruction {
-public:
-   ir_function(const char *name);
-
-   virtual ir_function *clone(void *mem_ctx, struct hash_table *ht) const;
-
-   virtual ir_function *as_function()
-   {
-      return this;
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   void add_signature(ir_function_signature *sig)
-   {
-      sig->_function = this;
-      this->signatures.push_tail(sig);
-   }
-
-   /**
-    * Get an iterator for the set of function signatures
-    */
-   exec_list_iterator iterator()
-   {
-      return signatures.iterator();
-   }
-
-   /**
-    * Find a signature that matches a set of actual parameters, taking implicit
-    * conversions into account.
-    */
-   ir_function_signature *matching_signature(const exec_list *actual_param);
-
-   /**
-    * Find a signature that exactly matches a set of actual parameters without
-    * any implicit type conversions.
-    */
-   ir_function_signature *exact_matching_signature(const exec_list *actual_ps);
-
-   /**
-    * Name of the function.
-    */
-   const char *name;
-
-   /** Whether or not this function has a signature that isn't a built-in. */
-   bool has_user_signature();
-
-   /**
-    * List of ir_function_signature for each overloaded function with this name.
-    */
-   struct exec_list signatures;
-};
-
-inline const char *ir_function_signature::function_name() const
-{
-   return this->_function->name;
-}
-/*@}*/
-
-
-/**
- * IR instruction representing high-level if-statements
- */
-class ir_if : public ir_instruction {
-public:
-   ir_if(ir_rvalue *condition)
-      : condition(condition)
-   {
-      ir_type = ir_type_if;
-   }
-
-   virtual ir_if *clone(void *mem_ctx, struct hash_table *ht) const;
-
-   virtual ir_if *as_if()
-   {
-      return this;
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   ir_rvalue *condition;
-   /** List of ir_instruction for the body of the then branch */
-   exec_list  then_instructions;
-   /** List of ir_instruction for the body of the else branch */
-   exec_list  else_instructions;
-};
-
-
-/**
- * IR instruction representing a high-level loop structure.
- */
-class ir_loop : public ir_instruction {
-public:
-   ir_loop();
-
-   virtual ir_loop *clone(void *mem_ctx, struct hash_table *ht) const;
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   virtual ir_loop *as_loop()
-   {
-      return this;
-   }
-
-   /**
-    * Get an iterator for the instructions of the loop body
-    */
-   exec_list_iterator iterator()
-   {
-      return body_instructions.iterator();
-   }
-
-   /** List of ir_instruction that make up the body of the loop. */
-   exec_list body_instructions;
-
-   /**
-    * \name Loop counter and controls
-    *
-    * Represents a loop like a FORTRAN \c do-loop.
-    *
-    * \note
-    * If \c from and \c to are the same value, the loop will execute once.
-    */
-   /*@{*/
-   ir_rvalue *from;             /** Value of the loop counter on the first
-				 * iteration of the loop.
-				 */
-   ir_rvalue *to;               /** Value of the loop counter on the last
-				 * iteration of the loop.
-				 */
-   ir_rvalue *increment;
-   ir_variable *counter;
-
-   /**
-    * Comparison operation in the loop terminator.
-    *
-    * If any of the loop control fields are non-\c NULL, this field must be
-    * one of \c ir_binop_less, \c ir_binop_greater, \c ir_binop_lequal,
-    * \c ir_binop_gequal, \c ir_binop_equal, or \c ir_binop_nequal.
-    */
-   int cmp;
-   /*@}*/
-};
-
-
-class ir_assignment : public ir_instruction {
-public:
-   ir_assignment(ir_rvalue *lhs, ir_rvalue *rhs, ir_rvalue *condition);
-
-   /**
-    * Construct an assignment with an explicit write mask
-    *
-    * \note
-    * Since a write mask is supplied, the LHS must already be a bare
-    * \c ir_dereference.  The cannot be any swizzles in the LHS.
-    */
-   ir_assignment(ir_dereference *lhs, ir_rvalue *rhs, ir_rvalue *condition,
-		 unsigned write_mask);
-
-   virtual ir_assignment *clone(void *mem_ctx, struct hash_table *ht) const;
-
-   virtual ir_constant *constant_expression_value();
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   virtual ir_assignment * as_assignment()
-   {
-      return this;
-   }
-
-   /**
-    * Get a whole variable written by an assignment
-    *
-    * If the LHS of the assignment writes a whole variable, the variable is
-    * returned.  Otherwise \c NULL is returned.  Examples of whole-variable
-    * assignment are:
-    *
-    *  - Assigning to a scalar
-    *  - Assigning to all components of a vector
-    *  - Whole array (or matrix) assignment
-    *  - Whole structure assignment
-    */
-   ir_variable *whole_variable_written();
-
-   /**
-    * Set the LHS of an assignment
-    */
-   void set_lhs(ir_rvalue *lhs);
-
-   /**
-    * Left-hand side of the assignment.
-    *
-    * This should be treated as read only.  If you need to set the LHS of an
-    * assignment, use \c ir_assignment::set_lhs.
-    */
-   ir_dereference *lhs;
-
-   /**
-    * Value being assigned
-    */
-   ir_rvalue *rhs;
-
-   /**
-    * Optional condition for the assignment.
-    */
-   ir_rvalue *condition;
-
-
-   /**
-    * Component mask written
-    *
-    * For non-vector types in the LHS, this field will be zero.  For vector
-    * types, a bit will be set for each component that is written.  Note that
-    * for \c vec2 and \c vec3 types only the lower bits will ever be set.
-    *
-    * A partially-set write mask means that each enabled channel gets
-    * the value from a consecutive channel of the rhs.  For example,
-    * to write just .xyw of gl_FrontColor with color:
-    *
-    * (assign (constant bool (1)) (xyw)
-    *     (var_ref gl_FragColor)
-    *     (swiz xyw (var_ref color)))
-    */
-   unsigned write_mask:4;
-};
-
-/* Update ir_expression::num_operands() and operator_strs when
- * updating this list.
- */
-enum ir_expression_operation {
-   ir_unop_bit_not,
-   ir_unop_logic_not,
-   ir_unop_neg,
-   ir_unop_abs,
-   ir_unop_sign,
-   ir_unop_rcp,
-   ir_unop_rsq,
-   ir_unop_sqrt,
-   ir_unop_exp,      /**< Log base e on gentype */
-   ir_unop_log,	     /**< Natural log on gentype */
-   ir_unop_exp2,
-   ir_unop_log2,
-   ir_unop_f2i,      /**< Float-to-integer conversion. */
-   ir_unop_i2f,      /**< Integer-to-float conversion. */
-   ir_unop_f2b,      /**< Float-to-boolean conversion */
-   ir_unop_b2f,      /**< Boolean-to-float conversion */
-   ir_unop_i2b,      /**< int-to-boolean conversion */
-   ir_unop_b2i,      /**< Boolean-to-int conversion */
-   ir_unop_u2f,      /**< Unsigned-to-float conversion. */
-   ir_unop_any,
-
-   /**
-    * \name Unary floating-point rounding operations.
-    */
-   /*@{*/
-   ir_unop_trunc,
-   ir_unop_ceil,
-   ir_unop_floor,
-   ir_unop_fract,
-   /*@}*/
-
-   /**
-    * \name Trigonometric operations.
-    */
-   /*@{*/
-   ir_unop_sin,
-   ir_unop_cos,
-   /*@}*/
-
-   /**
-    * \name Partial derivatives.
-    */
-   /*@{*/
-   ir_unop_dFdx,
-   ir_unop_dFdy,
-   /*@}*/
-
-   ir_unop_noise,
-
-   ir_binop_add,
-   ir_binop_sub,
-   ir_binop_mul,
-   ir_binop_div,
-
-   /**
-    * Takes one of two combinations of arguments:
-    *
-    * - mod(vecN, vecN)
-    * - mod(vecN, float)
-    *
-    * Does not take integer types.
-    */
-   ir_binop_mod,
-
-   /**
-    * \name Binary comparison operators which return a boolean vector.
-    * The type of both operands must be equal.
-    */
-   /*@{*/
-   ir_binop_less,
-   ir_binop_greater,
-   ir_binop_lequal,
-   ir_binop_gequal,
-   ir_binop_equal,
-   ir_binop_nequal,
-   /**
-    * Returns single boolean for whether all components of operands[0]
-    * equal the components of operands[1].
-    */
-   ir_binop_all_equal,
-   /**
-    * Returns single boolean for whether any component of operands[0]
-    * is not equal to the corresponding component of operands[1].
-    */
-   ir_binop_any_nequal,
-   /*@}*/
-
-   /**
-    * \name Bit-wise binary operations.
-    */
-   /*@{*/
-   ir_binop_lshift,
-   ir_binop_rshift,
-   ir_binop_bit_and,
-   ir_binop_bit_xor,
-   ir_binop_bit_or,
-   /*@}*/
-
-   ir_binop_logic_and,
-   ir_binop_logic_xor,
-   ir_binop_logic_or,
-
-   ir_binop_dot,
-   ir_binop_cross,
-   ir_binop_min,
-   ir_binop_max,
-
-   ir_binop_pow
-};
-
-class ir_expression : public ir_rvalue {
-public:
-   ir_expression(int op, const struct glsl_type *type,
-		 ir_rvalue *, ir_rvalue *);
-
-   virtual ir_expression *as_expression()
-   {
-      return this;
-   }
-
-   virtual ir_expression *clone(void *mem_ctx, struct hash_table *ht) const;
-
-   /**
-    * Attempt to constant-fold the expression
-    *
-    * If the expression cannot be constant folded, this method will return
-    * \c NULL.
-    */
-   virtual ir_constant *constant_expression_value();
-
-   /**
-    * Determine the number of operands used by an expression
-    */
-   static unsigned int get_num_operands(ir_expression_operation);
-
-   /**
-    * Determine the number of operands used by an expression
-    */
-   unsigned int get_num_operands() const
-   {
-      return get_num_operands(operation);
-   }
-
-   /**
-    * Return a string representing this expression's operator.
-    */
-   const char *operator_string();
-
-   /**
-    * Return a string representing this expression's operator.
-    */
-   static const char *operator_string(ir_expression_operation);
-
-
-   /**
-    * Do a reverse-lookup to translate the given string into an operator.
-    */
-   static ir_expression_operation get_operator(const char *);
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   ir_expression_operation operation;
-   ir_rvalue *operands[2];
-};
-
-
-/**
- * IR instruction representing a function call
- */
-class ir_call : public ir_rvalue {
-public:
-   ir_call(ir_function_signature *callee, exec_list *actual_parameters)
-      : callee(callee)
-   {
-      ir_type = ir_type_call;
-      assert(callee->return_type != NULL);
-      type = callee->return_type;
-      actual_parameters->move_nodes_to(& this->actual_parameters);
-   }
-
-   virtual ir_call *clone(void *mem_ctx, struct hash_table *ht) const;
-
-   virtual ir_constant *constant_expression_value();
-
-   virtual ir_call *as_call()
-   {
-      return this;
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   /**
-    * Get a generic ir_call object when an error occurs
-    *
-    * Any allocation will be performed with 'ctx' as talloc owner.
-    */
-   static ir_call *get_error_instruction(void *ctx);
-
-   /**
-    * Get an iterator for the set of acutal parameters
-    */
-   exec_list_iterator iterator()
-   {
-      return actual_parameters.iterator();
-   }
-
-   /**
-    * Get the name of the function being called.
-    */
-   const char *callee_name() const
-   {
-      return callee->function_name();
-   }
-
-   /**
-    * Get the function signature bound to this function call
-    */
-   ir_function_signature *get_callee()
-   {
-      return callee;
-   }
-
-   /**
-    * Set the function call target
-    */
-   void set_callee(ir_function_signature *sig);
-
-   /**
-    * Generates an inline version of the function before @ir,
-    * returning the return value of the function.
-    */
-   ir_rvalue *generate_inline(ir_instruction *ir);
-
-   /* List of ir_rvalue of paramaters passed in this call. */
-   exec_list actual_parameters;
-
-private:
-   ir_call()
-      : callee(NULL)
-   {
-      this->ir_type = ir_type_call;
-   }
-
-   ir_function_signature *callee;
-};
-
-
-/**
- * \name Jump-like IR instructions.
- *
- * These include \c break, \c continue, \c return, and \c discard.
- */
-/*@{*/
-class ir_jump : public ir_instruction {
-protected:
-   ir_jump()
-   {
-      ir_type = ir_type_unset;
-   }
-};
-
-class ir_return : public ir_jump {
-public:
-   ir_return()
-      : value(NULL)
-   {
-      this->ir_type = ir_type_return;
-   }
-
-   ir_return(ir_rvalue *value)
-      : value(value)
-   {
-      this->ir_type = ir_type_return;
-   }
-
-   virtual ir_return *clone(void *mem_ctx, struct hash_table *) const;
-
-   virtual ir_return *as_return()
-   {
-      return this;
-   }
-
-   ir_rvalue *get_value() const
-   {
-      return value;
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   ir_rvalue *value;
-};
-
-
-/**
- * Jump instructions used inside loops
- *
- * These include \c break and \c continue.  The \c break within a loop is
- * different from the \c break within a switch-statement.
- *
- * \sa ir_switch_jump
- */
-class ir_loop_jump : public ir_jump {
-public:
-   enum jump_mode {
-      jump_break,
-      jump_continue
-   };
-
-   ir_loop_jump(jump_mode mode)
-   {
-      this->ir_type = ir_type_loop_jump;
-      this->mode = mode;
-      this->loop = loop;
-   }
-
-   virtual ir_loop_jump *clone(void *mem_ctx, struct hash_table *) const;
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   bool is_break() const
-   {
-      return mode == jump_break;
-   }
-
-   bool is_continue() const
-   {
-      return mode == jump_continue;
-   }
-
-   /** Mode selector for the jump instruction. */
-   enum jump_mode mode;
-private:
-   /** Loop containing this break instruction. */
-   ir_loop *loop;
-};
-
-/**
- * IR instruction representing discard statements.
- */
-class ir_discard : public ir_jump {
-public:
-   ir_discard()
-   {
-      this->ir_type = ir_type_discard;
-      this->condition = NULL;
-   }
-
-   ir_discard(ir_rvalue *cond)
-   {
-      this->ir_type = ir_type_discard;
-      this->condition = cond;
-   }
-
-   virtual ir_discard *clone(void *mem_ctx, struct hash_table *ht) const;
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   ir_rvalue *condition;
-};
-/*@}*/
-
-
-/**
- * Texture sampling opcodes used in ir_texture
- */
-enum ir_texture_opcode {
-   ir_tex,		/**< Regular texture look-up */
-   ir_txb,		/**< Texture look-up with LOD bias */
-   ir_txl,		/**< Texture look-up with explicit LOD */
-   ir_txd,		/**< Texture look-up with partial derivatvies */
-   ir_txf		/**< Texel fetch with explicit LOD */
-};
-
-
-/**
- * IR instruction to sample a texture
- *
- * The specific form of the IR instruction depends on the \c mode value
- * selected from \c ir_texture_opcodes.  In the printed IR, these will
- * appear as:
- *
- *                              Texel offset
- *                              |       Projection divisor
- *                              |       |   Shadow comparitor
- *                              |       |   |
- *                              v       v   v
- * (tex (sampler) (coordinate) (0 0 0) (1) ( ))
- * (txb (sampler) (coordinate) (0 0 0) (1) ( ) (bias))
- * (txl (sampler) (coordinate) (0 0 0) (1) ( ) (lod))
- * (txd (sampler) (coordinate) (0 0 0) (1) ( ) (dPdx dPdy))
- * (txf (sampler) (coordinate) (0 0 0)         (lod))
- */
-class ir_texture : public ir_rvalue {
-public:
-   ir_texture(enum ir_texture_opcode op)
-      : op(op), projector(NULL), shadow_comparitor(NULL)
-   {
-      this->ir_type = ir_type_texture;
-   }
-
-   virtual ir_texture *clone(void *mem_ctx, struct hash_table *) const;
-
-   virtual ir_constant *constant_expression_value();
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   /**
-    * Return a string representing the ir_texture_opcode.
-    */
-   const char *opcode_string();
-
-   /** Set the sampler and infer the type. */
-   void set_sampler(ir_dereference *sampler);
-
-   /**
-    * Do a reverse-lookup to translate a string into an ir_texture_opcode.
-    */
-   static ir_texture_opcode get_opcode(const char *);
-
-   enum ir_texture_opcode op;
-
-   /** Sampler to use for the texture access. */
-   ir_dereference *sampler;
-
-   /** Texture coordinate to sample */
-   ir_rvalue *coordinate;
-
-   /**
-    * Value used for projective divide.
-    *
-    * If there is no projective divide (the common case), this will be
-    * \c NULL.  Optimization passes should check for this to point to a constant
-    * of 1.0 and replace that with \c NULL.
-    */
-   ir_rvalue *projector;
-
-   /**
-    * Coordinate used for comparison on shadow look-ups.
-    *
-    * If there is no shadow comparison, this will be \c NULL.  For the
-    * \c ir_txf opcode, this *must* be \c NULL.
-    */
-   ir_rvalue *shadow_comparitor;
-
-   /** Explicit texel offsets. */
-   signed char offsets[3];
-
-   union {
-      ir_rvalue *lod;		/**< Floating point LOD */
-      ir_rvalue *bias;		/**< Floating point LOD bias */
-      struct {
-	 ir_rvalue *dPdx;	/**< Partial derivative of coordinate wrt X */
-	 ir_rvalue *dPdy;	/**< Partial derivative of coordinate wrt Y */
-      } grad;
-   } lod_info;
-};
-
-
-struct ir_swizzle_mask {
-   unsigned x:2;
-   unsigned y:2;
-   unsigned z:2;
-   unsigned w:2;
-
-   /**
-    * Number of components in the swizzle.
-    */
-   unsigned num_components:3;
-
-   /**
-    * Does the swizzle contain duplicate components?
-    *
-    * L-value swizzles cannot contain duplicate components.
-    */
-   unsigned has_duplicates:1;
-};
-
-
-class ir_swizzle : public ir_rvalue {
-public:
-   ir_swizzle(ir_rvalue *, unsigned x, unsigned y, unsigned z, unsigned w,
-              unsigned count);
-
-   ir_swizzle(ir_rvalue *val, const unsigned *components, unsigned count);
-
-   ir_swizzle(ir_rvalue *val, ir_swizzle_mask mask);
-
-   virtual ir_swizzle *clone(void *mem_ctx, struct hash_table *) const;
-
-   virtual ir_constant *constant_expression_value();
-
-   virtual ir_swizzle *as_swizzle()
-   {
-      return this;
-   }
-
-   /**
-    * Construct an ir_swizzle from the textual representation.  Can fail.
-    */
-   static ir_swizzle *create(ir_rvalue *, const char *, unsigned vector_length);
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   bool is_lvalue()
-   {
-      return val->is_lvalue() && !mask.has_duplicates;
-   }
-
-   /**
-    * Get the variable that is ultimately referenced by an r-value
-    */
-   virtual ir_variable *variable_referenced();
-
-   ir_rvalue *val;
-   ir_swizzle_mask mask;
-
-private:
-   /**
-    * Initialize the mask component of a swizzle
-    *
-    * This is used by the \c ir_swizzle constructors.
-    */
-   void init_mask(const unsigned *components, unsigned count);
-};
-
-
-class ir_dereference : public ir_rvalue {
-public:
-   virtual ir_dereference *clone(void *mem_ctx, struct hash_table *) const = 0;
-
-   virtual ir_dereference *as_dereference()
-   {
-      return this;
-   }
-
-   bool is_lvalue();
-
-   /**
-    * Get the variable that is ultimately referenced by an r-value
-    */
-   virtual ir_variable *variable_referenced() = 0;
-};
-
-
-class ir_dereference_variable : public ir_dereference {
-public:
-   ir_dereference_variable(ir_variable *var);
-
-   virtual ir_dereference_variable *clone(void *mem_ctx,
-					  struct hash_table *) const;
-
-   virtual ir_constant *constant_expression_value();
-
-   virtual ir_dereference_variable *as_dereference_variable()
-   {
-      return this;
-   }
-
-   /**
-    * Get the variable that is ultimately referenced by an r-value
-    */
-   virtual ir_variable *variable_referenced()
-   {
-      return this->var;
-   }
-
-   virtual ir_variable *whole_variable_referenced()
-   {
-      /* ir_dereference_variable objects always dereference the entire
-       * variable.  However, if this dereference is dereferenced by anything
-       * else, the complete deferefernce chain is not a whole-variable
-       * dereference.  This method should only be called on the top most
-       * ir_rvalue in a dereference chain.
-       */
-      return this->var;
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   /**
-    * Object being dereferenced.
-    */
-   ir_variable *var;
-};
-
-
-class ir_dereference_array : public ir_dereference {
-public:
-   ir_dereference_array(ir_rvalue *value, ir_rvalue *array_index);
-
-   ir_dereference_array(ir_variable *var, ir_rvalue *array_index);
-
-   virtual ir_dereference_array *clone(void *mem_ctx,
-				       struct hash_table *) const;
-
-   virtual ir_constant *constant_expression_value();
-
-   virtual ir_dereference_array *as_dereference_array()
-   {
-      return this;
-   }
-
-   /**
-    * Get the variable that is ultimately referenced by an r-value
-    */
-   virtual ir_variable *variable_referenced()
-   {
-      return this->array->variable_referenced();
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   ir_rvalue *array;
-   ir_rvalue *array_index;
-
-private:
-   void set_array(ir_rvalue *value);
-};
-
-
-class ir_dereference_record : public ir_dereference {
-public:
-   ir_dereference_record(ir_rvalue *value, const char *field);
-
-   ir_dereference_record(ir_variable *var, const char *field);
-
-   virtual ir_dereference_record *clone(void *mem_ctx,
-					struct hash_table *) const;
-
-   virtual ir_constant *constant_expression_value();
-
-   /**
-    * Get the variable that is ultimately referenced by an r-value
-    */
-   virtual ir_variable *variable_referenced()
-   {
-      return this->record->variable_referenced();
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   ir_rvalue *record;
-   const char *field;
-};
-
-
-/**
- * Data stored in an ir_constant
- */
-union ir_constant_data {
-      unsigned u[16];
-      int i[16];
-      float f[16];
-      bool b[16];
-};
-
-
-class ir_constant : public ir_rvalue {
-public:
-   ir_constant(const struct glsl_type *type, const ir_constant_data *data);
-   ir_constant(bool b);
-   ir_constant(unsigned int u);
-   ir_constant(int i);
-   ir_constant(float f);
-
-   /**
-    * Construct an ir_constant from a list of ir_constant values
-    */
-   ir_constant(const struct glsl_type *type, exec_list *values);
-
-   /**
-    * Construct an ir_constant from a scalar component of another ir_constant
-    *
-    * The new \c ir_constant inherits the type of the component from the
-    * source constant.
-    *
-    * \note
-    * In the case of a matrix constant, the new constant is a scalar, \b not
-    * a vector.
-    */
-   ir_constant(const ir_constant *c, unsigned i);
-
-   /**
-    * Return a new ir_constant of the specified type containing all zeros.
-    */
-   static ir_constant *zero(void *mem_ctx, const glsl_type *type);
-
-   virtual ir_constant *clone(void *mem_ctx, struct hash_table *) const;
-
-   virtual ir_constant *constant_expression_value();
-
-   virtual ir_constant *as_constant()
-   {
-      return this;
-   }
-
-   virtual void accept(ir_visitor *v)
-   {
-      v->visit(this);
-   }
-
-   virtual ir_visitor_status accept(ir_hierarchical_visitor *);
-
-   /**
-    * Get a particular component of a constant as a specific type
-    *
-    * This is useful, for example, to get a value from an integer constant
-    * as a float or bool.  This appears frequently when constructors are
-    * called with all constant parameters.
-    */
-   /*@{*/
-   bool get_bool_component(unsigned i) const;
-   float get_float_component(unsigned i) const;
-   int get_int_component(unsigned i) const;
-   unsigned get_uint_component(unsigned i) const;
-   /*@}*/
-
-   ir_constant *get_array_element(unsigned i) const;
-
-   ir_constant *get_record_field(const char *name);
-
-   /**
-    * Determine whether a constant has the same value as another constant
-    */
-   bool has_value(const ir_constant *) const;
-
-   /**
-    * Value of the constant.
-    *
-    * The field used to back the values supplied by the constant is determined
-    * by the type associated with the \c ir_instruction.  Constants may be
-    * scalars, vectors, or matrices.
-    */
-   union ir_constant_data value;
-
-   /* Array elements */
-   ir_constant **array_elements;
-
-   /* Structure fields */
-   exec_list components;
-
-private:
-   /**
-    * Parameterless constructor only used by the clone method
-    */
-   ir_constant(void);
-};
-
-/*@}*/
-
-/**
- * Apply a visitor to each IR node in a list
- */
-void
-visit_exec_list(exec_list *list, ir_visitor *visitor);
-
-/**
- * Validate invariants on each IR node in a list
- */
-void validate_ir_tree(exec_list *instructions);
-
-/**
- * Make a clone of each IR instruction in a list
- *
- * \param in   List of IR instructions that are to be cloned
- * \param out  List to hold the cloned instructions
- */
-void
-clone_ir_list(void *mem_ctx, exec_list *out, const exec_list *in);
-
-extern void
-_mesa_glsl_initialize_variables(exec_list *instructions,
-				struct _mesa_glsl_parse_state *state);
-
-extern void
-_mesa_glsl_initialize_functions(exec_list *instructions,
-				struct _mesa_glsl_parse_state *state);
-
-extern void
-_mesa_glsl_release_functions(void);
-
-extern void
-reparent_ir(exec_list *list, void *mem_ctx);
-
-struct glsl_symbol_table;
-
-extern void
-import_prototypes(const exec_list *source, exec_list *dest,
-		  struct glsl_symbol_table *symbols, void *mem_ctx);
-
-extern bool
-ir_has_call(ir_instruction *ir);
-
-extern void
-do_set_program_inouts(exec_list *instructions, struct gl_program *prog);
-
-#endif /* IR_H */
+/* -*- c++ -*- */

+/*

+ * Copyright © 2010 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.

+ */

+

+#pragma once

+#ifndef IR_H

+#define IR_H

+

+#include <cstdio>

+#include <cstdlib>

+

+extern "C" {

+#include <talloc.h>

+}

+

+#include "glsl_types.h"

+#include "list.h"

+#include "ir_visitor.h"

+#include "ir_hierarchical_visitor.h"

+

+/**

+ * \defgroup IR Intermediate representation nodes

+ *

+ * @{

+ */

+

+/**

+ * Class tags

+ *

+ * Each concrete class derived from \c ir_instruction has a value in this

+ * enumerant.  The value for the type is stored in \c ir_instruction::ir_type

+ * by the constructor.  While using type tags is not very C++, it is extremely

+ * convenient.  For example, during debugging you can simply inspect

+ * \c ir_instruction::ir_type to find out the actual type of the object.

+ *

+ * In addition, it is possible to use a switch-statement based on \c

+ * \c ir_instruction::ir_type to select different behavior for different object

+ * types.  For functions that have only slight differences for several object

+ * types, this allows writing very straightforward, readable code.

+ */

+enum ir_node_type {

+   /**

+    * Zero is unused so that the IR validator can detect cases where

+    * \c ir_instruction::ir_type has not been initialized.

+    */

+   ir_type_unset,

+   ir_type_variable,

+   ir_type_assignment,

+   ir_type_call,

+   ir_type_constant,

+   ir_type_dereference_array,

+   ir_type_dereference_record,

+   ir_type_dereference_variable,

+   ir_type_discard,

+   ir_type_expression,

+   ir_type_function,

+   ir_type_function_signature,

+   ir_type_if,

+   ir_type_loop,

+   ir_type_loop_jump,

+   ir_type_return,

+   ir_type_swizzle,

+   ir_type_texture,

+   ir_type_max /**< maximum ir_type enum number, for validation */

+};

+

+/**

+ * Base class of all IR instructions

+ */

+class ir_instruction : public exec_node {

+public:

+   enum ir_node_type ir_type;

+   const struct glsl_type *type;

+

+   /** ir_print_visitor helper for debugging. */

+   void print(void) const;

+

+   virtual void accept(ir_visitor *) = 0;

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *) = 0;

+   virtual ir_instruction *clone(void *mem_ctx,

+				 struct hash_table *ht) const = 0;

+

+   /**

+    * \name IR instruction downcast functions

+    *

+    * These functions either cast the object to a derived class or return

+    * \c NULL if the object's type does not match the specified derived class.

+    * Additional downcast functions will be added as needed.

+    */

+   /*@{*/

+   virtual class ir_variable *          as_variable()         { return NULL; }

+   virtual class ir_function *          as_function()         { return NULL; }

+   virtual class ir_dereference *       as_dereference()      { return NULL; }

+   virtual class ir_dereference_array *	as_dereference_array() { return NULL; }

+   virtual class ir_dereference_variable *as_dereference_variable() { return NULL; }

+   virtual class ir_expression *        as_expression()       { return NULL; }

+   virtual class ir_rvalue *            as_rvalue()           { return NULL; }

+   virtual class ir_loop *              as_loop()             { return NULL; }

+   virtual class ir_assignment *        as_assignment()       { return NULL; }

+   virtual class ir_call *              as_call()             { return NULL; }

+   virtual class ir_return *            as_return()           { return NULL; }

+   virtual class ir_if *                as_if()               { return NULL; }

+   virtual class ir_swizzle *           as_swizzle()          { return NULL; }

+   virtual class ir_constant *          as_constant()         { return NULL; }

+   virtual class ir_discard *           as_discard()          { return NULL; }

+   /*@}*/

+

+protected:

+   ir_instruction()

+   {

+      ir_type = ir_type_unset;

+      type = NULL;

+   }

+};

+

+

+class ir_rvalue : public ir_instruction {

+public:

+   virtual ir_rvalue *clone(void *mem_ctx, struct hash_table *) const = 0;

+

+   virtual ir_constant *constant_expression_value() = 0;

+

+   virtual ir_rvalue * as_rvalue()

+   {

+      return this;

+   }

+

+   ir_rvalue *as_rvalue_to_saturate();

+

+   virtual bool is_lvalue()

+   {

+      return false;

+   }

+

+   /**

+    * Get the variable that is ultimately referenced by an r-value

+    */

+   virtual ir_variable *variable_referenced()

+   {

+      return NULL;

+   }

+

+

+   /**

+    * If an r-value is a reference to a whole variable, get that variable

+    *

+    * \return

+    * Pointer to a variable that is completely dereferenced by the r-value.  If

+    * the r-value is not a dereference or the dereference does not access the

+    * entire variable (i.e., it's just one array element, struct field), \c NULL

+    * is returned.

+    */

+   virtual ir_variable *whole_variable_referenced()

+   {

+      return NULL;

+   }

+

+   /**

+    * Determine if an r-value has the value zero

+    *

+    * The base implementation of this function always returns \c false.  The

+    * \c ir_constant class over-rides this function to return \c true \b only

+    * for vector and scalar types that have all elements set to the value

+    * zero (or \c false for booleans).

+    *

+    * \sa ir_constant::has_value, ir_rvalue::is_one, ir_rvalue::is_negative_one

+    */

+   virtual bool is_zero() const;

+

+   /**

+    * Determine if an r-value has the value one

+    *

+    * The base implementation of this function always returns \c false.  The

+    * \c ir_constant class over-rides this function to return \c true \b only

+    * for vector and scalar types that have all elements set to the value

+    * one (or \c true for booleans).

+    *

+    * \sa ir_constant::has_value, ir_rvalue::is_zero, ir_rvalue::is_negative_one

+    */

+   virtual bool is_one() const;

+

+   /**

+    * Determine if an r-value has the value negative one

+    *

+    * The base implementation of this function always returns \c false.  The

+    * \c ir_constant class over-rides this function to return \c true \b only

+    * for vector and scalar types that have all elements set to the value

+    * negative one.  For boolean times, the result is always \c false.

+    *

+    * \sa ir_constant::has_value, ir_rvalue::is_zero, ir_rvalue::is_one

+    */

+   virtual bool is_negative_one() const;

+

+protected:

+   ir_rvalue();

+};

+

+

+/**

+ * Variable storage classes

+ */

+enum ir_variable_mode {

+   ir_var_auto = 0,     /**< Function local variables and globals. */

+   ir_var_uniform,      /**< Variable declared as a uniform. */

+   ir_var_in,

+   ir_var_out,

+   ir_var_inout,

+   ir_var_temporary	/**< Temporary variable generated during compilation. */

+};

+

+enum ir_variable_interpolation {

+   ir_var_smooth = 0,

+   ir_var_flat,

+   ir_var_noperspective

+};

+

+

+class ir_variable : public ir_instruction {

+public:

+   ir_variable(const struct glsl_type *, const char *, ir_variable_mode);

+

+   virtual ir_variable *clone(void *mem_ctx, struct hash_table *ht) const;

+

+   virtual ir_variable *as_variable()

+   {

+      return this;

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+

+   /**

+    * Get the string value for the interpolation qualifier

+    *

+    * \return The string that would be used in a shader to specify \c

+    * mode will be returned.

+    *

+    * This function should only be used on a shader input or output variable.

+    */

+   const char *interpolation_string() const;

+

+   /**

+    * Calculate the number of slots required to hold this variable

+    *

+    * This is used to determine how many uniform or varying locations a variable

+    * occupies.  The count is in units of floating point components.

+    */

+   unsigned component_slots() const;

+

+   /**

+    * Delcared name of the variable

+    */

+   const char *name;

+

+   /**

+    * Highest element accessed with a constant expression array index

+    *

+    * Not used for non-array variables.

+    */

+   unsigned max_array_access;

+

+   /**

+    * Is the variable read-only?

+    *

+    * This is set for variables declared as \c const, shader inputs,

+    * and uniforms.

+    */

+   unsigned read_only:1;

+   unsigned centroid:1;

+   unsigned invariant:1;

+

+   /**

+    * Storage class of the variable.

+    *

+    * \sa ir_variable_mode

+    */

+   unsigned mode:3;

+

+   /**

+    * Interpolation mode for shader inputs / outputs

+    *

+    * \sa ir_variable_interpolation

+    */

+   unsigned interpolation:2;

+

+   /**

+    * Flag that the whole array is assignable

+    *

+    * In GLSL 1.20 and later whole arrays are assignable (and comparable for

+    * equality).  This flag enables this behavior.

+    */

+   unsigned array_lvalue:1;

+

+   /**

+    * \name ARB_fragment_coord_conventions

+    * @{

+    */

+   unsigned origin_upper_left:1;

+   unsigned pixel_center_integer:1;

+   /*@}*/

+

+   /**

+    * Was the location explicitly set in the shader?

+    *

+    * If the location is explicitly set in the shader, it \b cannot be changed

+    * by the linker or by the API (e.g., calls to \c glBindAttribLocation have

+    * no effect).

+    */

+   unsigned explicit_location:1;

+

+   /**

+    * Storage location of the base of this variable

+    *

+    * The precise meaning of this field depends on the nature of the variable.

+    *

+    *   - Vertex shader input: one of the values from \c gl_vert_attrib.

+    *   - Vertex shader output: one of the values from \c gl_vert_result.

+    *   - Fragment shader input: one of the values from \c gl_frag_attrib.

+    *   - Fragment shader output: one of the values from \c gl_frag_result.

+    *   - Uniforms: Per-stage uniform slot number.

+    *   - Other: This field is not currently used.

+    *

+    * If the variable is a uniform, shader input, or shader output, and the

+    * slot has not been assigned, the value will be -1.

+    */

+   int location;

+

+   /**

+    * Emit a warning if this variable is accessed.

+    */

+   const char *warn_extension;

+

+   /**

+    * Value assigned in the initializer of a variable declared "const"

+    */

+   ir_constant *constant_value;

+};

+

+

+/*@{*/

+/**

+ * The representation of a function instance; may be the full definition or

+ * simply a prototype.

+ */

+class ir_function_signature : public ir_instruction {

+   /* An ir_function_signature will be part of the list of signatures in

+    * an ir_function.

+    */

+public:

+   ir_function_signature(const glsl_type *return_type);

+

+   virtual ir_function_signature *clone(void *mem_ctx,

+					struct hash_table *ht) const;

+   ir_function_signature *clone_prototype(void *mem_ctx,

+					  struct hash_table *ht) const;

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   /**

+    * Get the name of the function for which this is a signature

+    */

+   const char *function_name() const;

+

+   /**

+    * Get a handle to the function for which this is a signature

+    *

+    * There is no setter function, this function returns a \c const pointer,

+    * and \c ir_function_signature::_function is private for a reason.  The

+    * only way to make a connection between a function and function signature

+    * is via \c ir_function::add_signature.  This helps ensure that certain

+    * invariants (i.e., a function signature is in the list of signatures for

+    * its \c _function) are met.

+    *

+    * \sa ir_function::add_signature

+    */

+   inline const class ir_function *function() const

+   {

+      return this->_function;

+   }

+

+   /**

+    * Check whether the qualifiers match between this signature's parameters

+    * and the supplied parameter list.  If not, returns the name of the first

+    * parameter with mismatched qualifiers (for use in error messages).

+    */

+   const char *qualifiers_match(exec_list *params);

+

+   /**

+    * Replace the current parameter list with the given one.  This is useful

+    * if the current information came from a prototype, and either has invalid

+    * or missing parameter names.

+    */

+   void replace_parameters(exec_list *new_params);

+

+   /**

+    * Function return type.

+    *

+    * \note This discards the optional precision qualifier.

+    */

+   const struct glsl_type *return_type;

+

+   /**

+    * List of ir_variable of function parameters.

+    *

+    * This represents the storage.  The paramaters passed in a particular

+    * call will be in ir_call::actual_paramaters.

+    */

+   struct exec_list parameters;

+

+   /** Whether or not this function has a body (which may be empty). */

+   unsigned is_defined:1;

+

+   /** Whether or not this function signature is a built-in. */

+   unsigned is_builtin:1;

+

+   /** Body of instructions in the function. */

+   struct exec_list body;

+

+private:

+   /** Function of which this signature is one overload. */

+   class ir_function *_function;

+

+   friend class ir_function;

+};

+

+

+/**

+ * Header for tracking multiple overloaded functions with the same name.

+ * Contains a list of ir_function_signatures representing each of the

+ * actual functions.

+ */

+class ir_function : public ir_instruction {

+public:

+   ir_function(const char *name);

+

+   virtual ir_function *clone(void *mem_ctx, struct hash_table *ht) const;

+

+   virtual ir_function *as_function()

+   {

+      return this;

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   void add_signature(ir_function_signature *sig)

+   {

+      sig->_function = this;

+      this->signatures.push_tail(sig);

+   }

+

+   /**

+    * Get an iterator for the set of function signatures

+    */

+   exec_list_iterator iterator()

+   {

+      return signatures.iterator();

+   }

+

+   /**

+    * Find a signature that matches a set of actual parameters, taking implicit

+    * conversions into account.

+    */

+   ir_function_signature *matching_signature(const exec_list *actual_param);

+

+   /**

+    * Find a signature that exactly matches a set of actual parameters without

+    * any implicit type conversions.

+    */

+   ir_function_signature *exact_matching_signature(const exec_list *actual_ps);

+

+   /**

+    * Name of the function.

+    */

+   const char *name;

+

+   /** Whether or not this function has a signature that isn't a built-in. */

+   bool has_user_signature();

+

+   /**

+    * List of ir_function_signature for each overloaded function with this name.

+    */

+   struct exec_list signatures;

+};

+

+inline const char *ir_function_signature::function_name() const

+{

+   return this->_function->name;

+}

+/*@}*/

+

+

+/**

+ * IR instruction representing high-level if-statements

+ */

+class ir_if : public ir_instruction {

+public:

+   ir_if(ir_rvalue *condition)

+      : condition(condition)

+   {

+      ir_type = ir_type_if;

+   }

+

+   virtual ir_if *clone(void *mem_ctx, struct hash_table *ht) const;

+

+   virtual ir_if *as_if()

+   {

+      return this;

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   ir_rvalue *condition;

+   /** List of ir_instruction for the body of the then branch */

+   exec_list  then_instructions;

+   /** List of ir_instruction for the body of the else branch */

+   exec_list  else_instructions;

+};

+

+

+/**

+ * IR instruction representing a high-level loop structure.

+ */

+class ir_loop : public ir_instruction {

+public:

+   ir_loop();

+

+   virtual ir_loop *clone(void *mem_ctx, struct hash_table *ht) const;

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   virtual ir_loop *as_loop()

+   {

+      return this;

+   }

+

+   /**

+    * Get an iterator for the instructions of the loop body

+    */

+   exec_list_iterator iterator()

+   {

+      return body_instructions.iterator();

+   }

+

+   /** List of ir_instruction that make up the body of the loop. */

+   exec_list body_instructions;

+

+   /**

+    * \name Loop counter and controls

+    *

+    * Represents a loop like a FORTRAN \c do-loop.

+    *

+    * \note

+    * If \c from and \c to are the same value, the loop will execute once.

+    */

+   /*@{*/

+   ir_rvalue *from;             /** Value of the loop counter on the first

+				 * iteration of the loop.

+				 */

+   ir_rvalue *to;               /** Value of the loop counter on the last

+				 * iteration of the loop.

+				 */

+   ir_rvalue *increment;

+   ir_variable *counter;

+

+   /**

+    * Comparison operation in the loop terminator.

+    *

+    * If any of the loop control fields are non-\c NULL, this field must be

+    * one of \c ir_binop_less, \c ir_binop_greater, \c ir_binop_lequal,

+    * \c ir_binop_gequal, \c ir_binop_equal, or \c ir_binop_nequal.

+    */

+   int cmp;

+   /*@}*/

+};

+

+

+class ir_assignment : public ir_instruction {

+public:

+   ir_assignment(ir_rvalue *lhs, ir_rvalue *rhs, ir_rvalue *condition);

+

+   /**

+    * Construct an assignment with an explicit write mask

+    *

+    * \note

+    * Since a write mask is supplied, the LHS must already be a bare

+    * \c ir_dereference.  The cannot be any swizzles in the LHS.

+    */

+   ir_assignment(ir_dereference *lhs, ir_rvalue *rhs, ir_rvalue *condition,

+		 unsigned write_mask);

+

+   virtual ir_assignment *clone(void *mem_ctx, struct hash_table *ht) const;

+

+   virtual ir_constant *constant_expression_value();

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   virtual ir_assignment * as_assignment()

+   {

+      return this;

+   }

+

+   /**

+    * Get a whole variable written by an assignment

+    *

+    * If the LHS of the assignment writes a whole variable, the variable is

+    * returned.  Otherwise \c NULL is returned.  Examples of whole-variable

+    * assignment are:

+    *

+    *  - Assigning to a scalar

+    *  - Assigning to all components of a vector

+    *  - Whole array (or matrix) assignment

+    *  - Whole structure assignment

+    */

+   ir_variable *whole_variable_written();

+

+   /**

+    * Set the LHS of an assignment

+    */

+   void set_lhs(ir_rvalue *lhs);

+

+   /**

+    * Left-hand side of the assignment.

+    *

+    * This should be treated as read only.  If you need to set the LHS of an

+    * assignment, use \c ir_assignment::set_lhs.

+    */

+   ir_dereference *lhs;

+

+   /**

+    * Value being assigned

+    */

+   ir_rvalue *rhs;

+

+   /**

+    * Optional condition for the assignment.

+    */

+   ir_rvalue *condition;

+

+

+   /**

+    * Component mask written

+    *

+    * For non-vector types in the LHS, this field will be zero.  For vector

+    * types, a bit will be set for each component that is written.  Note that

+    * for \c vec2 and \c vec3 types only the lower bits will ever be set.

+    *

+    * A partially-set write mask means that each enabled channel gets

+    * the value from a consecutive channel of the rhs.  For example,

+    * to write just .xyw of gl_FrontColor with color:

+    *

+    * (assign (constant bool (1)) (xyw)

+    *     (var_ref gl_FragColor)

+    *     (swiz xyw (var_ref color)))

+    */

+   unsigned write_mask:4;

+};

+

+/* Update ir_expression::num_operands() and operator_strs when

+ * updating this list.

+ */

+enum ir_expression_operation {

+   ir_unop_bit_not,

+   ir_unop_logic_not,

+   ir_unop_neg,

+   ir_unop_abs,

+   ir_unop_sign,

+   ir_unop_rcp,

+   ir_unop_rsq,

+   ir_unop_sqrt,

+   ir_unop_exp,      /**< Log base e on gentype */

+   ir_unop_log,	     /**< Natural log on gentype */

+   ir_unop_exp2,

+   ir_unop_log2,

+   ir_unop_f2i,      /**< Float-to-integer conversion. */

+   ir_unop_i2f,      /**< Integer-to-float conversion. */

+   ir_unop_f2b,      /**< Float-to-boolean conversion */

+   ir_unop_b2f,      /**< Boolean-to-float conversion */

+   ir_unop_i2b,      /**< int-to-boolean conversion */

+   ir_unop_b2i,      /**< Boolean-to-int conversion */

+   ir_unop_u2f,      /**< Unsigned-to-float conversion. */

+   ir_unop_any,

+

+   /**

+    * \name Unary floating-point rounding operations.

+    */

+   /*@{*/

+   ir_unop_trunc,

+   ir_unop_ceil,

+   ir_unop_floor,

+   ir_unop_fract,

+   ir_unop_round_even,

+   /*@}*/

+

+   /**

+    * \name Trigonometric operations.

+    */

+   /*@{*/

+   ir_unop_sin,

+   ir_unop_cos,

+   ir_unop_sin_reduced,    /**< Reduced range sin. [-pi, pi] */

+   ir_unop_cos_reduced,    /**< Reduced range cos. [-pi, pi] */

+   /*@}*/

+

+   /**

+    * \name Partial derivatives.

+    */

+   /*@{*/

+   ir_unop_dFdx,

+   ir_unop_dFdy,

+   /*@}*/

+

+   ir_unop_noise,

+

+   /**

+    * A sentinel marking the last of the unary operations.

+    */

+   ir_last_unop = ir_unop_noise,

+

+   ir_binop_add,

+   ir_binop_sub,

+   ir_binop_mul,

+   ir_binop_div,

+

+   /**

+    * Takes one of two combinations of arguments:

+    *

+    * - mod(vecN, vecN)

+    * - mod(vecN, float)

+    *

+    * Does not take integer types.

+    */

+   ir_binop_mod,

+

+   /**

+    * \name Binary comparison operators which return a boolean vector.

+    * The type of both operands must be equal.

+    */

+   /*@{*/

+   ir_binop_less,

+   ir_binop_greater,

+   ir_binop_lequal,

+   ir_binop_gequal,

+   ir_binop_equal,

+   ir_binop_nequal,

+   /**

+    * Returns single boolean for whether all components of operands[0]

+    * equal the components of operands[1].

+    */

+   ir_binop_all_equal,

+   /**

+    * Returns single boolean for whether any component of operands[0]

+    * is not equal to the corresponding component of operands[1].

+    */

+   ir_binop_any_nequal,

+   /*@}*/

+

+   /**

+    * \name Bit-wise binary operations.

+    */

+   /*@{*/

+   ir_binop_lshift,

+   ir_binop_rshift,

+   ir_binop_bit_and,

+   ir_binop_bit_xor,

+   ir_binop_bit_or,

+   /*@}*/

+

+   ir_binop_logic_and,

+   ir_binop_logic_xor,

+   ir_binop_logic_or,

+

+   ir_binop_dot,

+   ir_binop_min,

+   ir_binop_max,

+

+   ir_binop_pow,

+

+   /**

+    * A sentinel marking the last of the binary operations.

+    */

+   ir_last_binop = ir_binop_pow,

+

+   ir_quadop_vector,

+

+   /**

+    * A sentinel marking the last of all operations.

+    */

+   ir_last_opcode = ir_last_binop

+};

+

+class ir_expression : public ir_rvalue {

+public:

+   /**

+    * Constructor for unary operation expressions

+    */

+   ir_expression(int op, const struct glsl_type *type, ir_rvalue *);

+   ir_expression(int op, ir_rvalue *);

+

+   /**

+    * Constructor for binary operation expressions

+    */

+   ir_expression(int op, const struct glsl_type *type,

+		 ir_rvalue *, ir_rvalue *);

+   ir_expression(int op, ir_rvalue *op0, ir_rvalue *op1);

+

+   /**

+    * Constructor for quad operator expressions

+    */

+   ir_expression(int op, const struct glsl_type *type,

+		 ir_rvalue *, ir_rvalue *, ir_rvalue *, ir_rvalue *);

+

+   virtual ir_expression *as_expression()

+   {

+      return this;

+   }

+

+   virtual ir_expression *clone(void *mem_ctx, struct hash_table *ht) const;

+

+   /**

+    * Attempt to constant-fold the expression

+    *

+    * If the expression cannot be constant folded, this method will return

+    * \c NULL.

+    */

+   virtual ir_constant *constant_expression_value();

+

+   /**

+    * Determine the number of operands used by an expression

+    */

+   static unsigned int get_num_operands(ir_expression_operation);

+

+   /**

+    * Determine the number of operands used by an expression

+    */

+   unsigned int get_num_operands() const

+   {

+      return (this->operation == ir_quadop_vector)

+	 ? this->type->vector_elements : get_num_operands(operation);

+   }

+

+   /**

+    * Return a string representing this expression's operator.

+    */

+   const char *operator_string();

+

+   /**

+    * Return a string representing this expression's operator.

+    */

+   static const char *operator_string(ir_expression_operation);

+

+

+   /**

+    * Do a reverse-lookup to translate the given string into an operator.

+    */

+   static ir_expression_operation get_operator(const char *);

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   ir_expression_operation operation;

+   ir_rvalue *operands[4];

+};

+

+

+/**

+ * IR instruction representing a function call

+ */

+class ir_call : public ir_rvalue {

+public:

+   ir_call(ir_function_signature *callee, exec_list *actual_parameters)

+      : callee(callee)

+   {

+      ir_type = ir_type_call;

+      assert(callee->return_type != NULL);

+      type = callee->return_type;

+      actual_parameters->move_nodes_to(& this->actual_parameters);

+   }

+

+   virtual ir_call *clone(void *mem_ctx, struct hash_table *ht) const;

+

+   virtual ir_constant *constant_expression_value();

+

+   virtual ir_call *as_call()

+   {

+      return this;

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   /**

+    * Get a generic ir_call object when an error occurs

+    *

+    * Any allocation will be performed with 'ctx' as talloc owner.

+    */

+   static ir_call *get_error_instruction(void *ctx);

+

+   /**

+    * Get an iterator for the set of acutal parameters

+    */

+   exec_list_iterator iterator()

+   {

+      return actual_parameters.iterator();

+   }

+

+   /**

+    * Get the name of the function being called.

+    */

+   const char *callee_name() const

+   {

+      return callee->function_name();

+   }

+

+   /**

+    * Get the function signature bound to this function call

+    */

+   ir_function_signature *get_callee()

+   {

+      return callee;

+   }

+

+   /**

+    * Set the function call target

+    */

+   void set_callee(ir_function_signature *sig);

+

+   /**

+    * Generates an inline version of the function before @ir,

+    * returning the return value of the function.

+    */

+   ir_rvalue *generate_inline(ir_instruction *ir);

+

+   /* List of ir_rvalue of paramaters passed in this call. */

+   exec_list actual_parameters;

+

+private:

+   ir_call()

+      : callee(NULL)

+   {

+      this->ir_type = ir_type_call;

+   }

+

+   ir_function_signature *callee;

+};

+

+

+/**

+ * \name Jump-like IR instructions.

+ *

+ * These include \c break, \c continue, \c return, and \c discard.

+ */

+/*@{*/

+class ir_jump : public ir_instruction {

+protected:

+   ir_jump()

+   {

+      ir_type = ir_type_unset;

+   }

+};

+

+class ir_return : public ir_jump {

+public:

+   ir_return()

+      : value(NULL)

+   {

+      this->ir_type = ir_type_return;

+   }

+

+   ir_return(ir_rvalue *value)

+      : value(value)

+   {

+      this->ir_type = ir_type_return;

+   }

+

+   virtual ir_return *clone(void *mem_ctx, struct hash_table *) const;

+

+   virtual ir_return *as_return()

+   {

+      return this;

+   }

+

+   ir_rvalue *get_value() const

+   {

+      return value;

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   ir_rvalue *value;

+};

+

+

+/**

+ * Jump instructions used inside loops

+ *

+ * These include \c break and \c continue.  The \c break within a loop is

+ * different from the \c break within a switch-statement.

+ *

+ * \sa ir_switch_jump

+ */

+class ir_loop_jump : public ir_jump {

+public:

+   enum jump_mode {

+      jump_break,

+      jump_continue

+   };

+

+   ir_loop_jump(jump_mode mode)

+   {

+      this->ir_type = ir_type_loop_jump;

+      this->mode = mode;

+      this->loop = loop;

+   }

+

+   virtual ir_loop_jump *clone(void *mem_ctx, struct hash_table *) const;

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   bool is_break() const

+   {

+      return mode == jump_break;

+   }

+

+   bool is_continue() const

+   {

+      return mode == jump_continue;

+   }

+

+   /** Mode selector for the jump instruction. */

+   enum jump_mode mode;

+private:

+   /** Loop containing this break instruction. */

+   ir_loop *loop;

+};

+

+/**

+ * IR instruction representing discard statements.

+ */

+class ir_discard : public ir_jump {

+public:

+   ir_discard()

+   {

+      this->ir_type = ir_type_discard;

+      this->condition = NULL;

+   }

+

+   ir_discard(ir_rvalue *cond)

+   {

+      this->ir_type = ir_type_discard;

+      this->condition = cond;

+   }

+

+   virtual ir_discard *clone(void *mem_ctx, struct hash_table *ht) const;

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   virtual ir_discard *as_discard()

+   {

+      return this;

+   }

+

+   ir_rvalue *condition;

+};

+/*@}*/

+

+

+/**

+ * Texture sampling opcodes used in ir_texture

+ */

+enum ir_texture_opcode {

+   ir_tex,		/**< Regular texture look-up */

+   ir_txb,		/**< Texture look-up with LOD bias */

+   ir_txl,		/**< Texture look-up with explicit LOD */

+   ir_txd,		/**< Texture look-up with partial derivatvies */

+   ir_txf		/**< Texel fetch with explicit LOD */

+};

+

+

+/**

+ * IR instruction to sample a texture

+ *

+ * The specific form of the IR instruction depends on the \c mode value

+ * selected from \c ir_texture_opcodes.  In the printed IR, these will

+ * appear as:

+ *

+ *                              Texel offset

+ *                              |       Projection divisor

+ *                              |       |   Shadow comparitor

+ *                              |       |   |

+ *                              v       v   v

+ * (tex (sampler) (coordinate) (0 0 0) (1) ( ))

+ * (txb (sampler) (coordinate) (0 0 0) (1) ( ) (bias))

+ * (txl (sampler) (coordinate) (0 0 0) (1) ( ) (lod))

+ * (txd (sampler) (coordinate) (0 0 0) (1) ( ) (dPdx dPdy))

+ * (txf (sampler) (coordinate) (0 0 0)         (lod))

+ */

+class ir_texture : public ir_rvalue {

+public:

+   ir_texture(enum ir_texture_opcode op)

+      : op(op), projector(NULL), shadow_comparitor(NULL)

+   {

+      this->ir_type = ir_type_texture;

+   }

+

+   virtual ir_texture *clone(void *mem_ctx, struct hash_table *) const;

+

+   virtual ir_constant *constant_expression_value();

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   /**

+    * Return a string representing the ir_texture_opcode.

+    */

+   const char *opcode_string();

+

+   /** Set the sampler and infer the type. */

+   void set_sampler(ir_dereference *sampler);

+

+   /**

+    * Do a reverse-lookup to translate a string into an ir_texture_opcode.

+    */

+   static ir_texture_opcode get_opcode(const char *);

+

+   enum ir_texture_opcode op;

+

+   /** Sampler to use for the texture access. */

+   ir_dereference *sampler;

+

+   /** Texture coordinate to sample */

+   ir_rvalue *coordinate;

+

+   /**

+    * Value used for projective divide.

+    *

+    * If there is no projective divide (the common case), this will be

+    * \c NULL.  Optimization passes should check for this to point to a constant

+    * of 1.0 and replace that with \c NULL.

+    */

+   ir_rvalue *projector;

+

+   /**

+    * Coordinate used for comparison on shadow look-ups.

+    *

+    * If there is no shadow comparison, this will be \c NULL.  For the

+    * \c ir_txf opcode, this *must* be \c NULL.

+    */

+   ir_rvalue *shadow_comparitor;

+

+   /** Explicit texel offsets. */

+   signed char offsets[3];

+

+   union {

+      ir_rvalue *lod;		/**< Floating point LOD */

+      ir_rvalue *bias;		/**< Floating point LOD bias */

+      struct {

+	 ir_rvalue *dPdx;	/**< Partial derivative of coordinate wrt X */

+	 ir_rvalue *dPdy;	/**< Partial derivative of coordinate wrt Y */

+      } grad;

+   } lod_info;

+};

+

+

+struct ir_swizzle_mask {

+   unsigned x:2;

+   unsigned y:2;

+   unsigned z:2;

+   unsigned w:2;

+

+   /**

+    * Number of components in the swizzle.

+    */

+   unsigned num_components:3;

+

+   /**

+    * Does the swizzle contain duplicate components?

+    *

+    * L-value swizzles cannot contain duplicate components.

+    */

+   unsigned has_duplicates:1;

+};

+

+

+class ir_swizzle : public ir_rvalue {

+public:

+   ir_swizzle(ir_rvalue *, unsigned x, unsigned y, unsigned z, unsigned w,

+              unsigned count);

+

+   ir_swizzle(ir_rvalue *val, const unsigned *components, unsigned count);

+

+   ir_swizzle(ir_rvalue *val, ir_swizzle_mask mask);

+

+   virtual ir_swizzle *clone(void *mem_ctx, struct hash_table *) const;

+

+   virtual ir_constant *constant_expression_value();

+

+   virtual ir_swizzle *as_swizzle()

+   {

+      return this;

+   }

+

+   /**

+    * Construct an ir_swizzle from the textual representation.  Can fail.

+    */

+   static ir_swizzle *create(ir_rvalue *, const char *, unsigned vector_length);

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   bool is_lvalue()

+   {

+      return val->is_lvalue() && !mask.has_duplicates;

+   }

+

+   /**

+    * Get the variable that is ultimately referenced by an r-value

+    */

+   virtual ir_variable *variable_referenced();

+

+   ir_rvalue *val;

+   ir_swizzle_mask mask;

+

+private:

+   /**

+    * Initialize the mask component of a swizzle

+    *

+    * This is used by the \c ir_swizzle constructors.

+    */

+   void init_mask(const unsigned *components, unsigned count);

+};

+

+

+class ir_dereference : public ir_rvalue {

+public:

+   virtual ir_dereference *clone(void *mem_ctx, struct hash_table *) const = 0;

+

+   virtual ir_dereference *as_dereference()

+   {

+      return this;

+   }

+

+   bool is_lvalue();

+

+   /**

+    * Get the variable that is ultimately referenced by an r-value

+    */

+   virtual ir_variable *variable_referenced() = 0;

+};

+

+

+class ir_dereference_variable : public ir_dereference {

+public:

+   ir_dereference_variable(ir_variable *var);

+

+   virtual ir_dereference_variable *clone(void *mem_ctx,

+					  struct hash_table *) const;

+

+   virtual ir_constant *constant_expression_value();

+

+   virtual ir_dereference_variable *as_dereference_variable()

+   {

+      return this;

+   }

+

+   /**

+    * Get the variable that is ultimately referenced by an r-value

+    */

+   virtual ir_variable *variable_referenced()

+   {

+      return this->var;

+   }

+

+   virtual ir_variable *whole_variable_referenced()

+   {

+      /* ir_dereference_variable objects always dereference the entire

+       * variable.  However, if this dereference is dereferenced by anything

+       * else, the complete deferefernce chain is not a whole-variable

+       * dereference.  This method should only be called on the top most

+       * ir_rvalue in a dereference chain.

+       */

+      return this->var;

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   /**

+    * Object being dereferenced.

+    */

+   ir_variable *var;

+};

+

+

+class ir_dereference_array : public ir_dereference {

+public:

+   ir_dereference_array(ir_rvalue *value, ir_rvalue *array_index);

+

+   ir_dereference_array(ir_variable *var, ir_rvalue *array_index);

+

+   virtual ir_dereference_array *clone(void *mem_ctx,

+				       struct hash_table *) const;

+

+   virtual ir_constant *constant_expression_value();

+

+   virtual ir_dereference_array *as_dereference_array()

+   {

+      return this;

+   }

+

+   /**

+    * Get the variable that is ultimately referenced by an r-value

+    */

+   virtual ir_variable *variable_referenced()

+   {

+      return this->array->variable_referenced();

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   ir_rvalue *array;

+   ir_rvalue *array_index;

+

+private:

+   void set_array(ir_rvalue *value);

+};

+

+

+class ir_dereference_record : public ir_dereference {

+public:

+   ir_dereference_record(ir_rvalue *value, const char *field);

+

+   ir_dereference_record(ir_variable *var, const char *field);

+

+   virtual ir_dereference_record *clone(void *mem_ctx,

+					struct hash_table *) const;

+

+   virtual ir_constant *constant_expression_value();

+

+   /**

+    * Get the variable that is ultimately referenced by an r-value

+    */

+   virtual ir_variable *variable_referenced()

+   {

+      return this->record->variable_referenced();

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   ir_rvalue *record;

+   const char *field;

+};

+

+

+/**

+ * Data stored in an ir_constant

+ */

+union ir_constant_data {

+      unsigned u[16];

+      int i[16];

+      float f[16];

+      bool b[16];

+};

+

+

+class ir_constant : public ir_rvalue {

+public:

+   ir_constant(const struct glsl_type *type, const ir_constant_data *data);

+   ir_constant(bool b);

+   ir_constant(unsigned int u);

+   ir_constant(int i);

+   ir_constant(float f);

+

+   /**

+    * Construct an ir_constant from a list of ir_constant values

+    */

+   ir_constant(const struct glsl_type *type, exec_list *values);

+

+   /**

+    * Construct an ir_constant from a scalar component of another ir_constant

+    *

+    * The new \c ir_constant inherits the type of the component from the

+    * source constant.

+    *

+    * \note

+    * In the case of a matrix constant, the new constant is a scalar, \b not

+    * a vector.

+    */

+   ir_constant(const ir_constant *c, unsigned i);

+

+   /**

+    * Return a new ir_constant of the specified type containing all zeros.

+    */

+   static ir_constant *zero(void *mem_ctx, const glsl_type *type);

+

+   virtual ir_constant *clone(void *mem_ctx, struct hash_table *) const;

+

+   virtual ir_constant *constant_expression_value();

+

+   virtual ir_constant *as_constant()

+   {

+      return this;

+   }

+

+   virtual void accept(ir_visitor *v)

+   {

+      v->visit(this);

+   }

+

+   virtual ir_visitor_status accept(ir_hierarchical_visitor *);

+

+   /**

+    * Get a particular component of a constant as a specific type

+    *

+    * This is useful, for example, to get a value from an integer constant

+    * as a float or bool.  This appears frequently when constructors are

+    * called with all constant parameters.

+    */

+   /*@{*/

+   bool get_bool_component(unsigned i) const;

+   float get_float_component(unsigned i) const;

+   int get_int_component(unsigned i) const;

+   unsigned get_uint_component(unsigned i) const;

+   /*@}*/

+

+   ir_constant *get_array_element(unsigned i) const;

+

+   ir_constant *get_record_field(const char *name);

+

+   /**

+    * Determine whether a constant has the same value as another constant

+    *

+    * \sa ir_constant::is_zero, ir_constant::is_one,

+    * ir_constant::is_negative_one

+    */

+   bool has_value(const ir_constant *) const;

+

+   virtual bool is_zero() const;

+   virtual bool is_one() const;

+   virtual bool is_negative_one() const;

+

+   /**

+    * Value of the constant.

+    *

+    * The field used to back the values supplied by the constant is determined

+    * by the type associated with the \c ir_instruction.  Constants may be

+    * scalars, vectors, or matrices.

+    */

+   union ir_constant_data value;

+

+   /* Array elements */

+   ir_constant **array_elements;

+

+   /* Structure fields */

+   exec_list components;

+

+private:

+   /**

+    * Parameterless constructor only used by the clone method

+    */

+   ir_constant(void);

+};

+

+/*@}*/

+

+/**

+ * Apply a visitor to each IR node in a list

+ */

+void

+visit_exec_list(exec_list *list, ir_visitor *visitor);

+

+/**

+ * Validate invariants on each IR node in a list

+ */

+void validate_ir_tree(exec_list *instructions);

+

+/**

+ * Make a clone of each IR instruction in a list

+ *

+ * \param in   List of IR instructions that are to be cloned

+ * \param out  List to hold the cloned instructions

+ */

+void

+clone_ir_list(void *mem_ctx, exec_list *out, const exec_list *in);

+

+extern void

+_mesa_glsl_initialize_variables(exec_list *instructions,

+				struct _mesa_glsl_parse_state *state);

+

+extern void

+_mesa_glsl_initialize_functions(exec_list *instructions,

+				struct _mesa_glsl_parse_state *state);

+

+extern void

+_mesa_glsl_release_functions(void);

+

+extern void

+reparent_ir(exec_list *list, void *mem_ctx);

+

+struct glsl_symbol_table;

+

+extern void

+import_prototypes(const exec_list *source, exec_list *dest,

+		  struct glsl_symbol_table *symbols, void *mem_ctx);

+

+extern bool

+ir_has_call(ir_instruction *ir);

+

+extern void

+do_set_program_inouts(exec_list *instructions, struct gl_program *prog);

+

+#endif /* IR_H */