[svn:parrot] r8770 - trunk/dynclasses

[rubys]

Author: rubys
Date: Tue Aug  2 21:30:20 2005
New Revision: 8770

Modified:
   trunk/dynclasses/pyboolean.pmc
   trunk/dynclasses/pystring.pmc
Log:
Get some python tests passing again


Modified: trunk/dynclasses/pyboolean.pmc
==============================================================================
--- trunk/dynclasses/pyboolean.pmc      (original)
+++ trunk/dynclasses/pyboolean.pmc      Tue Aug  2 21:30:20 2005
@@ -159,6 +159,18 @@ Returns the negated value of the boolean
 
 /*
 
+=item C<void set_bool (INTVAL value)>
+
+=cut
+
+*/
+
+    void set_bool (INTVAL value) {
+        PMC_int_val(SELF) = (value != 0);
+    }
+
+/*
+
 =item C<void set_integer_native (INTVAL value)>
 
 =cut

Modified: trunk/dynclasses/pystring.pmc
==============================================================================
--- trunk/dynclasses/pystring.pmc       (original)
+++ trunk/dynclasses/pystring.pmc       Tue Aug  2 21:30:20 2005
@@ -304,7 +304,7 @@ Returns pythons string repr (w/o any esc
             i_q = -1;
         }
 
-        if (PObj_get_FLAGS(s) & PObj_private7_FLAG)
+        if (s->charset == Parrot_binary_charset_ptr)
             repr = string_copy(INTERP, const_string(INTERP, "u'"));
         else
             repr = string_copy(INTERP, q);