Skip to content

Instantly share code, notes, and snippets.

use v6;
use nqp;
unit module Text::Diff::Sift4;
sub sift4(Str:D() $s1, Str:D() $s2, Int $maxOffset = 100, Int $maxDistance = 100 --> Int) is export {
my int $l1 = nqp::chars($s1);
my int $l2 = nqp::chars($s2);
return $l2 unless $l1;
(gdb) bt
#0 __tanh (x=1.7448538901687736e+18) at ../sysdeps/ieee754/dbl-64/s_tanh.c:56
#1 0x0000fffff795c9e8 in MVM_interp_run (tc=0xc, initial_invoke=0xfffff7eb6280 <LABELS.0>, initial_invoke@entry=0xfffff7a93120 <toplevel_initial_invoke>,
invoke_data=0x3752e48e200, outer_runloop=0x375341a012e, outer_runloop@entry=0x0) at src/core/interp.c:946
#2 0x0000fffff7a94628 in MVM_vm_run_file (instance=instance@entry=0x3752e010600, filename=<optimized out>) at src/moar.c:523
#3 0x0000aaaaaaaa1404 in main (argc=10, argv=0xffffffffe798) at src/main.c:287
(gdb) call MVM_dump_backtrace(instance->main_thread)
at src/Raku/ast/base.rakumod:102 (/home/dan/r/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:to-begin-time)
from src/Raku/Actions.nqp:110 (/home/dan/r/rakudo/blib/Raku/Actions.moarvm:attach)
from src/Raku/Actions.nqp:1701 (/home/dan/r/rakudo/blib/Raku/Actions.moarvm:infix:sym<cmp>)
diff --git lib/MoarVM/Profiler.rakumod lib/MoarVM/Profiler.rakumod
index 26913f4f1..334d6a301 100644
--- lib/MoarVM/Profiler.rakumod
+++ lib/MoarVM/Profiler.rakumod
@@ -499,7 +499,7 @@ class Thread does OnHash[<
}
# Main object returned by profile() and friends.
-class MoarVM::Profiler {
+class MoarVM::Profiler::App {
Unhandled exception: No exception handler located for warn
at SETTING::src/core.c/control.rakumod:267 (/home/dan/Source/raku/rakudo/blib/CORE.c.setting.moarvm:warn)
from SETTING::src/core.c/Mu.rakumod:815 (/home/dan/Source/raku/rakudo/blib/CORE.c.setting.moarvm:Str)
from SETTING::src/core.c/List.rakumod:1200 (/home/dan/Source/raku/rakudo/blib/CORE.c.setting.moarvm:join)
from SETTING::src/core.c/Exception.rakumod:1340 (/home/dan/Source/raku/rakudo/blib/CORE.c.setting.moarvm:)
from SETTING::src/core.c/Exception.rakumod:1340 (/home/dan/Source/raku/rakudo/blib/CORE.c.setting.moarvm:s)
from SETTING::src/core.c/Exception.rakumod:1376 (/home/dan/Source/raku/rakudo/blib/CORE.c.setting.moarvm:)
from SETTING::src/core.c/Exception.rakumod:1375 (/home/dan/Source/raku/rakudo/blib/CORE.c.setting.moarvm:)
from SETTING::src/core.c/Rakudo/Iterator.rakumod:5693 (/home/dan/Source/raku/rakudo/blib/CORE.c.setting.moarvm:sink-all)
from SETTING::src/core.c/Seq.rakumod:159 (/home/dan/Source/raku/rakudo/blib/CORE.
diff --git src/Raku/Grammar.nqp src/Raku/Grammar.nqp
index 015499038..d85ddee5d 100644
--- src/Raku/Grammar.nqp
+++ src/Raku/Grammar.nqp
@@ -3691,10 +3691,10 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
| $<sigil>=['$'] $<desigilname>=[<[/_!¢]>]
# $0
- | <sigil> $<index>=[\d+]
+ | <sigil> $<index>=[\d+] #[<?{ $*IN_DECL }> <.typed-panic: 'X::Syntax::Variable::Numeric'>]?
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/[email protected]/session.slice/dbus.service
Unit: [email protected]
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/[email protected]/session.slice/dbus.service
Unit: [email protected]
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);