"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/core.c/core_epilogue.pm6" between
rakudo-2020.09.tar.gz and rakudo-2020.10.tar.gz

About: Rakudo is a compiler for the Raku Pogramming Language (formerly known as Perl 6).

core_epilogue.pm6  (rakudo-2020.09):core_epilogue.pm6  (rakudo-2020.10)
skipping to change at line 64 skipping to change at line 64
# XXX TODO: https://github.com/rakudo/rakudo/issues/2433 # XXX TODO: https://github.com/rakudo/rakudo/issues/2433
# my $perl := BEGIN Perl.new; # my $perl := BEGIN Perl.new;
Rakudo::Internals.REGISTER-DYNAMIC: '$*PERL', { Rakudo::Internals.REGISTER-DYNAMIC: '$*PERL', {
PROCESS::<$PERL> := Raku.new; PROCESS::<$PERL> := Raku.new;
} }
Rakudo::Internals.REGISTER-DYNAMIC: '$*RAKU', { Rakudo::Internals.REGISTER-DYNAMIC: '$*RAKU', {
PROCESS::<$RAKU> := Raku.new; PROCESS::<$RAKU> := Raku.new;
} }
} }
#?if moar
# Cannot be added in the Uni class, as we don't have native arrays
# then yet, so it must be done here as an augment.
augment class Uni {
multi method new(Uni: array[uint32] \codepoints) {
my $uni := nqp::create(self);
my int $elems = nqp::elems(codepoints);
my int $i = -1;
nqp::while(
nqp::islt_i(($i = nqp::add_i($i,1)),$elems),
nqp::push_i($uni,nqp::atpos_i(codepoints,$i))
);
$uni
}
}
#?endif
BEGIN Metamodel::ClassHOW.exclude_parent(Mu); BEGIN Metamodel::ClassHOW.exclude_parent(Mu);
{YOU_ARE_HERE} {YOU_ARE_HERE}
# vim: expandtab shiftwidth=4 # vim: expandtab shiftwidth=4
 End of changes. 1 change blocks. 
0 lines changed or deleted 19 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)