Re: [perl #46629] [TODO] [C] [PATCH] Implement multiplication of integers with complex numbers

[NotFound]

On Mon, Oct 22, 2007 at 2:24 PM, via RT Paul Cochrane
<[EMAIL PROTECTED]> wrote:

>  "TODO mul<Integer, Complex>"

The attached patch is a simple implementation using
mul<Complex,Integer> and adds the operation in the multiply test in
complex.t (don't know if it's the correct place).

-- 
Salu2

Index: src/pmc/integer.pmc
===================================================================
--- src/pmc/integer.pmc	(revisión: 27253)
+++ src/pmc/integer.pmc	(copia de trabajo)
@@ -20,6 +20,7 @@
 */
 
 #include "parrot/parrot.h"
+#include "pmc_complex.h"
 
 /* RT#46619 create MMD headers to in Pmc2c.pm */
 extern INTVAL Parrot_BigInt_is_equal_BigInt(PARROT_INTERP, PMC*, PMC*);
@@ -596,8 +597,8 @@
                 return overflow(INTERP, SELF, b, dest, MMD_MULTIPLY);
         }
 MMD_Complex: {
-                real_exception(INTERP, NULL, E_NotImplementedError,
-                        "RT#46629 mul<Integer, Complex>");
+               return Parrot_Complex_multiply_int(INTERP, value,
+                    SELF.get_integer(), dest);
             }
 MMD_BigInt:     {
             return Parrot_BigInt_multiply_int(INTERP, value,
Index: t/pmc/complex.t
===================================================================
--- t/pmc/complex.t	(revisión: 27253)
+++ t/pmc/complex.t	(copia de trabajo)
@@ -320,6 +320,11 @@
     mul P1, P0, P3
     print P1
     print "\n"
+
+    mul P1, P3, P0
+    print P1
+    print "\n"
+
     end
 CODE
 -5+12i
@@ -331,6 +336,7 @@
 2-2i
 1-1i
 10+10i
+10+10i
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "divide" );