[svn:parrot] rev 7993 - trunk/classes

[leo]

Author: leo
Date: Fri May  6 09:50:24 2005
New Revision: 7993

Modified:
   trunk/classes/boolean.pmc
Log:
Bug in Boolean pmc
Hi, the following test fails because boolean.pmc actually registers the
global True as a false boolean, and no boolean for False.  It is fixed with
the patch below.

Courtesy of John Lenz <[EMAIL PROTECTED]>


Modified: trunk/classes/boolean.pmc
==============================================================================
--- trunk/classes/boolean.pmc   (original)
+++ trunk/classes/boolean.pmc   Fri May  6 09:50:24 2005
@@ -42,11 +42,13 @@
         if (pass) {
             PMC *t;
             STRING *s;
+
             t = pmc_new(INTERP, enum_class_Boolean);
             PMC_int_val(t)  = 1;
             s = CONST_STRING(INTERP, "True");
             Parrot_store_global(INTERP, NULL, s, t);
             t = pmc_new(INTERP, enum_class_Boolean);
+            s = CONST_STRING(INTERP, "False");
             Parrot_store_global(INTERP, NULL, s, t);
         }
     }