Skip to content

Instantly share code, notes, and snippets.

diff --git src/Raku/Grammar.nqp src/Raku/Grammar.nqp
index 6ac245eb1..821864dd8 100644
--- src/Raku/Grammar.nqp
+++ src/Raku/Grammar.nqp
@@ -3945,25 +3945,29 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
self.typed-sorry('X::Syntax::Reserved', |%args);
}
+ token var-dec {
+ [
PID: 404113 (moar)
UID: 1000 (dan)
GID: 1000 (dan)
Signal: 11 (SEGV)
Timestamp: Sat 2025-03-08 10:05:33 EST (3min 42s ago)
Command Line: /home/dan/r/install/bin/moar --execname=/home/dan/Source/raku/rakudo/rakudo-m --libpath=/home/dan/Source/raku/rakudo --libpath=/home/dan/Source/raku/rakudo/blib --libpath=/home/dan/r/install/share/nqp/lib /home/dan/Source/raku/rakudo/rakudo.moarvm t/spec/S06-currying/positional.t
Executable: /home/dan/Source/raku/install/bin/moar
Control Group: /user.slice/user-1000.slice/user@1000.service/session.slice/dbus.service
Unit: user@1000.service
User Unit: dbus.service
PID: 304536 (moar)
UID: 1000 (dan)
GID: 1000 (dan)
Signal: 6 (ABRT)
Timestamp: Sat 2025-03-08 09:02:06 EST (7min ago)
Command Line: /home/dan/r/install/bin/moar --execname=/home/dan/Source/raku/rakudo/rakudo-m --libpath=/home/dan/Source/raku/rakudo --libpath=/home/dan/Source/raku/rakudo/blib --libpath=/home/dan/r/install/share/nqp/lib /home/dan/Source/raku/rakudo/rakudo.moarvm t/spec/6.c/MISC/bug-coverage.t
Executable: /home/dan/Source/raku/install/bin/moar
Control Group: /user.slice/user-1000.slice/user@1000.service/session.slice/dbus.service
Unit: user@1000.service
User Unit: dbus.service
PID: 3994767 (moar)
UID: 1000 (dan)
GID: 100 (users)
Signal: 6 (ABRT)
Timestamp: Sat 2025-03-08 08:54:14 EST (3min 53s ago)
Command Line: /home/dan/Source/perl6/install/bin/moar --execname=/home/dan/Source/perl6/rakudo/rakudo-m --libpath=/home/dan/Source/perl6/rakudo --libpath=/home/dan/Source/perl6/rakudo/blib --libpath=/home/dan/Source/perl6/install/share/nqp/lib /home/dan/Source/perl6/rakudo/rakudo.moarvm t/spec/S02-types/subset-6e.t
Executable: /home/dan/Source/perl6/install/bin/moar
Control Group: /user.slice/user-1000.slice/session-63.scope
Unit: session-63.scope
Slice: user-1000.slice
diff --git src/6model/reprconv.c src/6model/reprconv.c
index f3e04bad7..2b8810eb4 100644
--- src/6model/reprconv.c
+++ src/6model/reprconv.c
@@ -95,8 +95,8 @@ MVM_PUBLIC MVMint64 MVM_repr_exists_pos(MVMThreadContext *tc, MVMObject *obj, MV
MVMint64 MVM_repr_at_pos_i(MVMThreadContext *tc, MVMObject *obj, MVMint64 idx) {
MVMRegister value;
if (REPR(obj)->ID == MVM_REPR_ID_VMArray) {
- MVM_VMArray_at_pos(tc, STABLE(obj), obj, OBJECT_BODY(obj),
- idx, &value, MVM_reg_int64);
diff --git src/HLL/Grammar.nqp src/HLL/Grammar.nqp
index 0365c5536..b2207cc64 100644
--- src/HLL/Grammar.nqp
+++ src/HLL/Grammar.nqp
@@ -635,12 +635,13 @@ An operator precedence parser.
}
method MARKED(str $markname) {
+ my $shared := nqp::getattr(self, NQPMatch, '$!shared');
my %markhash := nqp::getattr(
This file has been truncated, but you can view the full file.
1 Archetypes.$!nominal at NQP::src/how/Archetypes.nqp:74 (/home/dan/Source/raku/install/share/nqp/lib/nqpmo.moarvm:nominal)
1 Archetypes.$!nominalizable at NQP::src/how/Archetypes.nqp:75 (/home/dan/Source/raku/install/share/nqp/lib/nqpmo.moarvm:nominalizable)
1 Archetypes.$!parametric at NQP::src/how/Archetypes.nqp:81 (/home/dan/Source/raku/install/share/nqp/lib/nqpmo.moarvm:parametric)
1 Array.$!descriptor at SETTING::src/core.c/Array.rakumod:302 (<ephemeral file>:STORE)
1 Array.$!descriptor at SETTING::src/core.c/Array.rakumod:317 (<ephemeral file>:STORE)
1 Array[CompUnit::PrecompilationDependency::File].$!descriptor at src/Perl6/Optimizer.nqp:765 (/home/dan/Source/raku/rakudo/blib/Perl6/Optimizer.moarvm:lexical_vars_to_locals)
1 Array[CompUnit::PrecompilationStore].$!descriptor at src/Perl6/Optimizer.nqp:765 (/home/dan/Source/raku/rakudo/blib/Perl6/Optimizer.moarvm:lexical_vars_to_locals)
1 Array[Int].$!descriptor at src/Perl6/Optimizer
1 at NQP::/home/dan/r/install/share/nqp/lib/MAST/Nodes.nqp:305 (/home/dan/Source/raku/install/share/nqp/lib/MASTNodes.moarvm:add_strings)
1 at NQP::src/core/IO.nqp:151 (/home/dan/Source/raku/install/share/nqp/lib/NQPCORE.setting.moarvm:slurp)
1 at NQP::src/core/IO.nqp:155 (/home/dan/Source/raku/install/share/nqp/lib/NQPCORE.setting.moarvm:slurp)
1 at NQP::src/core/IO.nqp:224 (/home/dan/Source/raku/install/share/nqp/lib/NQPCORE.setting.moarvm:close)
1 at NQP::src/HLL/CommandLine.nqp:102 (/home/dan/Source/raku/install/share/nqp/lib/NQPHLL.moarvm:add-argument)
1 at NQP::src/HLL/CommandLine.nqp:140 (/home/dan/Source/raku/install/share/nqp/lib/NQPHLL.moarvm:BUILD)
1 at NQP::src/HLL/CommandLine.nqp:147 (/home/dan/Source/raku/install/share/nqp/lib/NQPHLL.moarvm:add-stopper)
1 at NQP::src/HLL/CommandLine.nqp:183 (/home/dan/Source/raku/install/share/nqp/lib/NQPHLL.moarvm:optional-value)
1 at NQP::src/HLL/CommandLine.nqp:277 (/hom
sub sieve($n) {
my @composite;
my $t;
loop ($t = 3; $t*$t <= $n; $t += 2) {
if (!@composite[$t]) {
loop (my $s = $t*$t; $s <= $n; $s += $t*2)
{ @composite[$s]++ }
}
}
my @primes = (2);
diff --git src/core.c/Rakudo/Iterator.pm6 src/core.c/Rakudo/Iterator.pm6
index b3efa43d7..928b69467 100644
--- src/core.c/Rakudo/Iterator.pm6
+++ src/core.c/Rakudo/Iterator.pm6
@@ -828,14 +828,14 @@ method new(\n,\k,\b)
method pull-one() {
my int $n = $!n; # lexicals faster
my int $k = $!k;
- my int $running = 1;
my $combination := $!combination;