"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/core.c/Compiler.pm6" between
rakudo-2020.07.tar.gz and rakudo-2020.08.tar.gz

About: Rakudo is a compiler for the Perl 6 programming language.

Compiler.pm6  (rakudo-2020.07):Compiler.pm6  (rakudo-2020.08)
class Compiler does Systemic { class Compiler does Systemic {
my constant $id = nqp::p6box_s(nqp::sha1( my constant $id = nqp::p6box_s(nqp::sha1(
$*W.handle.Str $*W.handle.Str
~ nqp::atkey(nqp::getcurhllsym('$COMPILER_CONFIG'), 'source-digest') ~ nqp::atkey(nqp::gethllsym(
'default', 'SysConfig').rakudo-build-config(), 'source-digest')
)); ));
my Mu $compiler := nqp::getcurhllsym('$COMPILER_CONFIG');
my Mu $compiler := nqp::gethllsym('default', 'SysConfig')
.rakudo-build-config();
# XXX Various issues with this stuff on JVM # XXX Various issues with this stuff on JVM
has $.id is built(:bind) = nqp::ifnull(nqp::atkey($compiler,'id'),$id); has $.id is built(:bind) = nqp::ifnull(nqp::atkey($compiler,'id'),$id);
has $.release is built(:bind) = nqp::atkey($compiler,'release-number'); has $.release is built(:bind) = nqp::atkey($compiler,'release-number');
has $.codename is built(:bind) = nqp::atkey($compiler, 'codename'); has $.codename is built(:bind) = nqp::atkey($compiler, 'codename');
submethod TWEAK(--> Nil) { submethod TWEAK(--> Nil) {
# https://github.com/rakudo/rakudo/issues/3436 # https://github.com/rakudo/rakudo/issues/3436
nqp::bind($!name,'rakudo'); nqp::bind($!name,'rakudo');
nqp::bind($!auth,'The Perl Foundation'); nqp::bind($!auth,'The Perl Foundation');
 End of changes. 2 change blocks. 
2 lines changed or deleted 5 lines changed or added

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