jnthn

     A
     |
     B  C  D
     \ /  /
      E -/
      |
      F

Canonical = whatever C3 says

jnthn

diff --git a/t/harness b/t/harness
index dc68e9a..b67d164 100644
--- a/t/harness
+++ b/t/harness
@@ -12,7 +12,8 @@ use FindBin;
 use File::Spec;
 use Getopt::Long qw(:config pass_through);

-$ENV{'HARNESS_PERL'} = './perl6';
+my $slash = $^O eq 'MSWin32' ? '\\' : '/';

jnthn

role handler {
}

module LolDispatch {
    my @routes;

    multi trait_auxiliary:<is>(handler $trait, Block $block, $arg) is export {
        @routes.push({:route($arg[0]), :block($block)});
    }

jnthn

use Time::HiRes qw( gettimeofday tv_interval );

my %benchmarks = (
# The Hello World benchmark mostly exists to benchmark our start-up time.
"01 - hello world" => q{;
    "Hello, world!"; # don't say, don't want output from benchmarks
},

# This one tests our performance at calling a single-dispatch sub (and the
# cost of signature binding somewhat). Note loop of 5,000 and 2 calls so it

jnthn

class A {
    method b {
        die "OH NOES I HAS A FAIL"
    }
}

sub bar {
    A.new.b;
}

jnthn

Index: src/exceptions.c
===================================================================
--- src/exceptions.c	(revision 38911)
+++ src/exceptions.c	(working copy)
@@ -372,6 +372,10 @@
         PDB_backtrace(interp);
     }
 
+    /* Note the thrower.
+     * XXX TT#596 - pass in current context instead when we have context PMCs. */

jnthn

Failed Test                               Stat Wstat Total Fail  List of Failed
-------------------------------------------------------------------------------
t\spec\S02-builtin_data_types\whatever.ra                7    3  5-7
t\spec\S03-junctions\autothreading.rakudo               78   33  46-78
t\spec\S03-operators\arith.rakudo                      199   20  170 181-199
t\spec\S09-subscript_slice\slice.rakudo                 27    6  22-27
t\spec\S11-modules\nested.t                              4    1  4
t\spec\S12-attributes\delegation.rakudo                 61   29  33-61
t\spec\S12-construction\autopairs.t          5  1280     4    2  3-4
t\spec\S12-enums\basic.rakudo                           30    1  30

jnthn

Failed Test                               Stat Wstat Total Fail  List of Failed
-------------------------------------------------------------------------------
t\spec\S03-operators\arith.rakudo            5  1280   199   39  170 181-199
t\spec\S03-operators\misc.rakudo             5  1280    52    2  52
t\spec\S03-operators\smartmatch.rakudo       5  1280   101  100  52-101
t\spec\S06-advanced_subroutine_features\l    5  1280     7    0  ??
t\spec\S09-subscript_slice\slice.rakudo                 27    6  22-27
t\spec\S10-packages\basic.rakudo             5  1280    22    0  ??
t\spec\S11-modules\nested.t                              4    1  4
t\spec\S12-enums\basic.rakudo                           30    2  17 30

jnthn

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
index 2afeeda..12523d4 100644
--- a/src/parser/actions.pm
+++ b/src/parser/actions.pm
@@ -758,10 +758,13 @@ method routine_declarator($/, $key) {
     else {
         $past[1].push( PAST::Op.new( :name('list') ) );
     }
-    ##  Add a call to !SIGNATURE_BIND to fixup params and do typechecks.
+    ##  Add a call to !SIGNATURE_BIND to fixup params and do typechecks, and

jnthn

glug
glug
A very important activity