Author: chromatic
Date: Mon Jun 11 16:39:24 2007
New Revision: 18936
Modified:
trunk/languages/perl6/src/builtins/op.pir
Log:
[Perl 6] Return a Perl6Bool PMC from 'prefix:?'; this makes the second ref
sanity test pass.
Modified: trunk/languages/perl6/src/builtins/op.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/op.pir (original)
+++ trunk/languages/perl6/src/builtins/op.pir Mon Jun 11 16:39:24 2007
@@ -88,8 +88,12 @@
.sub 'prefix:?'
.param pmc a
+
+ .local pmc bool
+ bool = new .Perl6Bool
$I0 = istrue a
- .return ($I0)
+ assign bool, $I0
+ .return (bool)
.end
