"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

---