Changeset 6376 for perl5/PIL2JS/lib/PIL/PVar.pm

Timestamp:

08/20/05 15:47:35 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

8581

Message:

* Usual svn props.
* PIL2JS: &?CALLER_CONTINUATION.

• t/unspecced/cont.t: Added some type annotations and a new test. PIL2JS passes 14/14 with 6 unexpected succeedings. :)
• PIL, PIL2JS.js: PIL2JS.cps2normal now works correctly with functions which reach the end of the program (this can happen, for example, with continuations :)). Previously, the program flow was restarted after the call to PIL2JS.cps2normal, resulting in certain regions running twice.
• PIL, PIL::PVar, PIL::Subs: sub foo { {return}() } didn't compile, because PIL2JS only kept track of the current subtype, not of all subs it's currently in. Fixed.

* PIL2JS: PIL, PIL2JS.js, README: Context objects are now unboxed -- boxing was

never needed. Should give a small speedup.

Files:

• perl5/PIL2JS/lib/PIL/PVar.pm (modified) (1 diff)

perl5/PIL2JS/lib/PIL/PVar.pm

@@ -7 +7 @@
   die unless keys %{ $_[0] } == 1;
   die if     ref(my $name = $_[0]->{pVarName});
+  local $_;
 
   if($name eq "&return") {
     PIL::fail("Can't return outside a subroutine!")
-      unless $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
+      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
+    # XXX hack?
+    return bless {
+      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)")
+    } => "PIL::PVar";
+  } elsif($name eq "&?CALLER_CONTINUATION") {
+    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
+      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
     # XXX hack?
     return bless {