[svn:parrot] r48968 - in trunk: src/pmc t/pmc

[Paul at osuosl.org]

Author: Paul C. Anagnostopoulos
Date: Sun Sep 12 21:44:22 2010
New Revision: 48968
URL: https://trac.parrot.org/parrot/changeset/48968

Log:
Correct boolean test, remove obsolete code

Modified:
   trunk/src/pmc/boolean.pmc
   trunk/t/pmc/boolean.t

Modified: trunk/src/pmc/boolean.pmc
==============================================================================
--- trunk/src/pmc/boolean.pmc	Sun Sep 12 17:33:33 2010	(r48967)
+++ trunk/src/pmc/boolean.pmc	Sun Sep 12 21:44:22 2010	(r48968)
@@ -150,16 +150,6 @@
         SELF.set_bool(Parrot_str_boolean(INTERP, value));
     }
 
-/**    VTABLE PMC *neg(PMC *dest) {
-        dest = Parrot_pmc_new_init_int(INTERP, VTABLE_type(INTERP, SELF),
-                                       SELF.get_bool());
-        return dest;
-    }
-
-    VTABLE void i_neg() {
-        /* Nothing to do for an in-place negate.
-    }**/
-
     /* No POD documentation, since the reader should see Scalar. */
 
     VTABLE void i_logical_not() {

Modified: trunk/t/pmc/boolean.t
==============================================================================
--- trunk/t/pmc/boolean.t	Sun Sep 12 17:33:33 2010	(r48967)
+++ trunk/t/pmc/boolean.t	Sun Sep 12 21:44:22 2010	(r48968)
@@ -116,9 +116,9 @@
     set $I0, $P1
     is($I0, 1, "cloned Boolean is not a reference")
 
-    set $P1, 1
+    set $P1, 0
     set $I0, $P1
-    is($I0, 1, "cloned Boolean can change value")
+    is($I0, 0, "cloned Boolean can change value")
 .end
 
 .sub boolean_as_conditional