Rakudo slowness bisect

benchmark-results.txt

Albany-48-g540c014 (before any fix): 62m36.194s
Albany-49-g2696aab (after FROGGS' fix): 63m10.034s
with pmichaud's patch: 3m51.940s

bisect-data

Bisect for Rakudo to find slowness:

Albany-25-g639d7f8    (2013-05-02)     64m24.082s   BAD
MadMongers            (2012-05-17)     3m19.349s    GOOD
Perl-10-g80f73bb      (2012-09-22)     5m21.989s    GOOD
Sonoma-4-gd8cc616     (2013-01-18)     4m50.745s    GOOD
2013.02.1-76-gaf61c17 (2013-03-11)     42m57.209s   BAD
Sonoma-115-g5a12919   (2013-02-13)     4m34.536s    GOOD
2013.02.1-20-g6f5cfc1 (2013-03-02)     40m51.410s   BAD
Sonoma-143-ga763a18   (2013-02-22)     5m12.735s    GOOD
2013.02.1-7-gb205e66  (2013-02-24)     42m2.330s    BAD
drinkers-2-gc255f1d   (2013-02-23)     43m44.975s   BAD
Sonoma-146-g78d2a2a   (2013-02-22)     5m15.766s    GOOD
drinkers              (2013-02-22)     4m52.376s    GOOD
drinkers-1-g483ce86   (2013-02-22)     4m59.355s    GOOD

c255f1d91a58d0e4a76d2fa99f43741213a10dfa is the first bad commit
commit c255f1d91a58d0e4a76d2fa99f43741213a10dfa
Author: Tobias Leich <email@froggs.de>
Date:   Sat Feb 23 14:51:14 2013 +0100

    interpolation of e.g. regexes in arrays in regexes

:040000 040000 e677d13b9a2f00694aa891de582b140d2e7f6dba 6cdbf6b12c984c6046e78d98e1d82a79f1de08b5 M	src

spectest-results.txt

Test Summary Report
-------------------
t/spec/S05-metasyntax/litvar.t                          (Wstat: 0 Tests: 21 Failed: 1)
  Failed test:  4
t/spec/S32-str/substr.rakudo                            (Wstat: 256 Tests: 24 Failed: 0)
  Non-zero exit status: 1
  Parse errors: Bad plan.  You planned 92 tests but ran 24.
Files=708, Tests=23415, 2276 wallclock secs ( 6.18 usr  1.53 sys + 1853.25 cusr 168.16 csys = 2029.12 CPU)
Result: FAIL

btw, I reverted a change from that commit, maybe you want to benchmark it?

diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index 058c661..0a4d607 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -6046,7 +6046,7 @@ class Perl6::RegexActions is QRegex::P6Regex::Actions does STDActions {
         }
         else {
             make QAST::Regex.new( QAST::Node.new(
-                                        QAST::SVal.new( :value('INTERPOLATE') ),
+                                        QAST::SVal.new( :value('!LITERAL') ),
                                         $quote,
                                         QAST::IVal.new( :value(%*RX<i> ?? 1 !! 0) ) ),
                                 :rxtype<subrule>, :subtype<method>, :node($/));

There is no failing spectest from it :/