"Fossies" - the Fresh Open Source Software Archive  

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

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

SetHash.pm6  (rakudo-2020.08.2):SetHash.pm6  (rakudo-2020.09)
skipping to change at line 274 skipping to change at line 274
nqp::stmts( nqp::stmts(
nqp::deletekey($!elems,$which), nqp::deletekey($!elems,$which),
1 1
), ),
0 0
) )
) )
} }
#--- convenience methods #--- convenience methods
method set(\to-set --> Nil) { method set(SetHash:D: \to-set --> Nil) {
nqp::bindattr( nqp::bindattr(
self,SetHash,'$!elems',nqp::create(Rakudo::Internals::IterationSet) self,SetHash,'$!elems',nqp::create(Rakudo::Internals::IterationSet)
) unless $!elems; ) unless $!elems;
Rakudo::QuantHash.ADD-ITERATOR-TO-SET( Rakudo::QuantHash.ADD-ITERATOR-TO-SET(
$!elems, to-set.iterator, self.keyof $!elems, to-set.iterator, self.keyof
); );
} }
method unset(\to-unset --> Nil) { method unset(SetHash:D: \to-unset --> Nil) {
my \iterator := to-unset.iterator; my \iterator := to-unset.iterator;
nqp::until( nqp::until(
nqp::eqaddr((my \pulled := iterator.pull-one),IterationEnd), nqp::eqaddr((my \pulled := iterator.pull-one),IterationEnd),
nqp::deletekey($!elems,pulled.WHICH) nqp::deletekey($!elems,pulled.WHICH)
) if $!elems ) if $!elems
} }
} }
# vim: expandtab shiftwidth=4 # vim: expandtab shiftwidth=4
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

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