Complex negation

git-svn-id: https://svn.parrot.org/parrot/trunk@7200 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Nov 29, 2004 · 4112caa · 4112caa
1 parent 452e2cd
commit 4112caa
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/classes/complex.pmc b/classes/complex.pmc
@@ -766,6 +766,23 @@ MMD_DEFAULT: {
         IM(dest) = IM(SELF) / value;
     }
 
+
+/*
+
+=item C<void neg(PMC *dest)>
+
+Set C<dest> to the negated value of C<SELF>.
+
+=cut
+
+*/
+
+    void neg (PMC* dest) {
+        VTABLE_morph(INTERP, dest, enum_class_Complex);
+        RE(dest) = - RE(SELF);
+        IM(dest) = - IM(SELF);
+    }
+
 /*
 
 =item C<INTVAL is_equal (PMC* value)>