X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Flambda-trans.c;h=aff2f1df0408ef1ce7e18c9abcd425321c777e96;hb=f1225f6f0f9b7acb3a64314f2113807ebeea5abf;hp=5195bb61c8fe0cd5fcce2ed31ae6b5e3f4ff4b61;hpb=6b6f234c9115dd601d3de99c1f462e6452eadb07;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/lambda-trans.c b/gcc/lambda-trans.c
index 5195bb61c8f..aff2f1df040 100644
--- 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)