develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35230 - branches/rvar2/languages/perl6/src/builtins

From:
jonathan
Date:
January 8, 2009 15:12
Subject:
[svn:parrot] r35230 - branches/rvar2/languages/perl6/src/builtins
Message ID:
20090108231242.43F96CB9F9@x12.develooper.com
Author: jonathan
Date: Thu Jan  8 15:12:41 2009
New Revision: 35230

Modified:
   branches/rvar2/languages/perl6/src/builtins/assign.pir

Log:
[rakudo] Disable type checking in the case that we have captured a type before it's been full defined. We'll have to come back and re-visit this later, this this gets us through another test.

Modified: branches/rvar2/languages/perl6/src/builtins/assign.pir
==============================================================================
--- branches/rvar2/languages/perl6/src/builtins/assign.pir	(original)
+++ branches/rvar2/languages/perl6/src/builtins/assign.pir	Thu Jan  8 15:12:41 2009
@@ -27,6 +27,9 @@
     unless $I0 goto do_assign
     getprop type, 'type', cont
     if null type goto do_assign
+    # XXX FIXME We should instead translate this to a proto.
+    $I0 = isa type, 'NameSpace'
+    if $I0 goto do_assign
     $I0 = type.'ACCEPTS'(source)
     if $I0 goto do_assign
     'die'("Type mismatch in assignment.")



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About