perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r18936 - trunk/languages/perl6/src/builtins

Subject: [svn:parrot] r18936 - trunk/languages/perl6/src/builtins
From:
Date: Mon, 11 Jun 2007 16:39:25 -0700 PDT
Newsgroups: perl.cvs.parrot

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
 
 

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r18936 - trunk/languages/perl6/src/builtins, chromatic <=