Author: leo
Date: Sun Mar 12 06:42:18 2006
New Revision: 11875
Modified:
trunk/languages/pugs/pmc/pugsundef.pmc
trunk/languages/pugs/t/pmc/undef.t
Log:
untodo test; work around PugsUndef creation
Modified: trunk/languages/pugs/pmc/pugsundef.pmc
==============================================================================
--- trunk/languages/pugs/pmc/pugsundef.pmc (original)
+++ trunk/languages/pugs/pmc/pugsundef.pmc Sun Mar 12 06:42:18 2006
@@ -32,7 +32,12 @@
hll Perl6
maps Exception
{
- /* zero lines of code! whee! */
+ /* the PMC compiler doesn't know, that Exception inherits
+ * this from SArray
+ */
+ void set_integer_native(INTVAL v) {
+ Parrot_SArray_set_integer_native(INTERP, SELF, v);
+ }
}
/*
Modified: trunk/languages/pugs/t/pmc/undef.t
==============================================================================
--- trunk/languages/pugs/t/pmc/undef.t (original)
+++ trunk/languages/pugs/t/pmc/undef.t Sun Mar 12 06:42:18 2006
@@ -2,6 +2,4 @@
# Copyright: 2005-2006 The Perl Foundation. All Rights Reserved.
# $Id: /mirror/trunk/languages/lua/t/pmc/boolean.t 11586
2006-02-16T17:44:54.559622Z fperrad $
-BEGIN { print "1..0 # Skip undef creation currently fails on morph()\n"; exit;
}
-
use t::pmc;
