[perl #127330] [SLOW] 10_000 lines with ｢say ‘a’;｣ take 16 seconds to run

[Aleks-Daniel Jakimenko-Aleksejev via RT]

FWIW it went from 4.1724 to 3.3393 (2015.12→HEAD(a72214c)) for 5k of says.
On 2016-01-24 06:28:38, n...@detonation.org wrote:
> I don't think it's related to subs. It's compilation in general that's
> rather slow, most of all parsing.
>
> nine@sphinx:~> for x in {1..10000}; do echo 'say ‘a’;' >> print.p6;
> done
> nine@sphinx:~> time perl6 --stagestats print.p6 > /dev/null
> Stage start : 0.000
> Stage parse : 5.442
> Stage syntaxcheck: 0.000
> Stage ast : 0.000
> Stage optimize : 0.503
> Stage mast : 1.035
> Stage mbc : 0.102
> Stage moar : 0.000
>
> real 0m7.232s
> user 0m7.152s
> sys 0m0.076s
>
> nine@sphinx:~> for x in {1..10000}; do echo "my \$a$x = ‘a’;" >>
> str.p6; done
> nine@sphinx:~> time perl6 --stagestats str.p6 > /dev/null
> Stage start : 0.000
> Stage parse : 8.204
> Stage syntaxcheck: 0.000
> Stage ast : 0.000
> Stage optimize : 0.351
> Stage mast : 0.885
> Stage mbc : 0.014
> Stage moar : 0.000
>
> real 0m9.543s
> user 0m9.480s
> sys 0m0.060s
>
> I'm closing this ticket, as compiling these examples will most
> probably be sped up by general improvements to the compiler and
> optimization infrastructure and not something that's specifically
> targeted at the examples. For a core developer it's kinda hard to
> forget about parsing being slow anyway :)