Changeset 6376 for perl5/PIL2JS/lib/PIL/Subs.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/Subs.pm (modified) (5 diffs)

perl5/PIL2JS/lib/PIL/Subs.pm

@@ -23 +23 @@
     $self->{pSubType} = bless [] => "PIL::$self->{pSubType}";  # minor hack
 
-    local $PIL::IN_SUBLIKE = $self->{pSubType}->as_constant;
+    local $PIL::IN_SUBLIKE  = $self->{pSubType}->as_constant;
+    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->{pSubType}->as_constant);
 
     return bless {
@@ -43 +44 @@
 
     local $PIL::IN_SUBLIKE  = $self->{pSubType}->as_constant;
+    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->{pSubType}->as_constant);
     local $PIL::CUR_SUBNAME = $self->{pSubName};
 
@@ -132 +134 @@
     $self->{pType} = bless [] => "PIL::$self->{pType}";  # minor hack
 
-    local $PIL::IN_SUBLIKE = $self->{pType}->as_constant;
+    local $PIL::IN_SUBLIKE  = $self->{pType}->as_constant;
+    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->{pType}->as_constant);
 
     # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
@@ -155 +158 @@
 
     local $PIL::IN_SUBLIKE  = $self->{pType}->as_constant;
+    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->{pType}->as_constant);
     local $PIL::CUR_SUBNAME = "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
 
@@ -201 +205 @@
     my $self = shift;
     local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
+    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
     local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";