2007-03-01 Paul Brook <paul@codesourcery.com>

[pf3gnuchains/gcc-fork.git] / gcc / lambda-trans.c

diff --git a/gcc/lambda-trans.c b/gcc/lambda-trans.c
index 5195bb6..aff2f1d 100644 (file)
--- a/gcc/lambda-trans.c
+++ b/gcc/lambda-trans.c
@@ -16,18 +16,16 @@ for more details.
 
 You should have received a copy of the GNU General Public License
 along with GCC; see the file COPYING.  If not, write to the Free
-Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA.  */
+Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
+02110-1301, USA.  */
 
 #include "config.h"
 #include "system.h"
 #include "coretypes.h"
 #include "tm.h"
-#include "errors.h"
 #include "ggc.h"
 #include "tree.h"
 #include "target.h"
-#include "varray.h"
 #include "lambda.h"
 
 /* Allocate a new transformation matrix.  */
@@ -45,7 +43,18 @@ lambda_trans_matrix_new (int colsize, int rowsize)
   return ret;
 }
 
-/* Compute the inverse of the transformation.  */
+/* Return true if MAT is an identity matrix.  */
+
+bool
+lambda_trans_matrix_id_p (lambda_trans_matrix mat)
+{
+  if (LTM_ROWSIZE (mat) != LTM_COLSIZE (mat))
+    return false;
+  return lambda_matrix_id_p (LTM_MATRIX (mat), LTM_ROWSIZE (mat));
+}
+
+
+/* Compute the inverse of the transformation matrix MAT.  */
 
 lambda_trans_matrix 
 lambda_trans_matrix_inverse (lambda_trans_matrix mat)