optabs.c (expand_binop): Optimize complex multiplication for the case of squaring...

	* optabs.c (expand_binop): Optimize complex multiplication for
	the case of squaring a complex argument.

From-SVN: r67418

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 034d6cc7767f11c6b68250b34f995ba11b984589..82c26bc4b3815ae4484a7973cb108bf208cae1ee 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-03  Roger Sayle  <roger@eyesopen.com>
+
+       * optabs.c (expand_binop): Optimize complex multiplication for
+       the case of squaring a complex argument.
+
 2003-06-03  Roger Sayle  <roger@eyesopen.com>
 
        * optabs.c (expand_binop): Attempt to reuse pseudos for duplicate

diff --git a/gcc/optabs.c b/gcc/optabs.c
index 171d13f2d6e26790ede0d8286319a9ae3aa00a34..c693e80079ab5bd3d272c98a892a322a3efcdbaa 100644 (file)
--- a/gcc/optabs.c
+++ b/gcc/optabs.c
@@ -1647,8 +1647,13 @@ expand_binop (mode, binoptab, op0, op1, target, unsignedp, methods)
              temp1 = expand_binop (submode, binoptab, real0, imag1,
                                    NULL_RTX, unsignedp, methods);
 
-             temp2 = expand_binop (submode, binoptab, real1, imag0,
-                                   NULL_RTX, unsignedp, methods);
+             /* Avoid expanding redundant multiplication for the common
+                case of squaring a complex number.  */
+             if (rtx_equal_p (real0, real1) && rtx_equal_p (imag0, imag1))
+               temp2 = temp1;
+             else
+               temp2 = expand_binop (submode, binoptab, real1, imag0,
+                                     NULL_RTX, unsignedp, methods);
 
              if (temp1 == 0 || temp2 == 0)
                break;