Skip to content

Instantly share code, notes, and snippets.

Test Summary Report
-------------------
t/spec/6.c/S04-declarations/my-6c.rakudo.moar (Wstat: 0 Tests: 112 Failed: 0)
TODO passed: 61
t/spec/APPENDICES/A02-some-day-maybe/misc.rakudo.moar (Wstat: 0 Tests: 6 Failed: 0)
TODO passed: 1
t/spec/S02-literals/adverbs.rakudo.moar (Wstat: 0 Tests: 35 Failed: 0)
TODO passed: 27-28
t/spec/S02-literals/pairs.rakudo.moar (Wstat: 0 Tests: 84 Failed: 0)
diff --git 6.c/S04-declarations/my-6c.t 6.c/S04-declarations/my-6c.t
index 301c7f9d8..e13fc0108 100644
--- 6.c/S04-declarations/my-6c.t
+++ 6.c/S04-declarations/my-6c.t
@@ -285,7 +285,7 @@ throws-like 'my $z = $z', X::Syntax::Variable::Initializer, name => '$z';
eval-lives-ok 'my (%h?) #OK', 'my (%h?) lives';
# https://github.com/Raku/old-issue-tracker/issues/734
-eval-lives-ok 'my $x = 3; class A { has $.y = $x; }; A.new.y.gist',
+eval-lives-ok 'my $x = 3; class A734 { has $.y = $x; }.new.y.gist',
diff --git src/Raku/ast/package.rakumod src/Raku/ast/package.rakumod
index 610fdf7b0..5a86a3937 100644
--- src/Raku/ast/package.rakumod
+++ src/Raku/ast/package.rakumod
@@ -267,7 +267,7 @@ method install-extra-declarations(RakuAST::Resolver $resolver) {
# Need to install the package somewhere
method install-in-scope(RakuAST::Resolver $resolver, str $scope, RakuAST::Name $name, RakuAST::Name $full-name) {
self.IMPL-INSTALL-PACKAGE(
- $resolver, $scope, $name, $resolver.current-package, :meta-object(Mu)
+ $resolver, $scope, $full-name, $resolver.current-package, :meta-object(Mu)
diff --git src/Raku/ast/package.rakumod src/Raku/ast/package.rakumod
index ab16d21d4..2baf0a6a7 100644
--- src/Raku/ast/package.rakumod
+++ src/Raku/ast/package.rakumod
@@ -267,7 +267,7 @@ method install-extra-declarations(RakuAST::Resolver $resolver) {
# Need to install the package somewhere
method install-in-scope(RakuAST::Resolver $resolver, str $scope, RakuAST::Name $name, RakuAST::Name $full-name) {
self.IMPL-INSTALL-PACKAGE(
- $resolver, $scope, $name, $resolver.current-package, :meta-object(Mu)
+ $resolver, $scope, $full-name, $resolver.current-package, :meta-object(Mu)
dan@athena:~/Source/raku/rakudo$ RAKUDO_RAKUAST=1 ./rakudo-m -e 'class A { has $.b is built(True) }'
callee.is-resolved = True nqp::istype(callee.resolution, RakuAST::CompileTimeValue) = 1 args.IMPL-CAN-INTERPRET = False
callee: Var::Lexical::Constant 【&trait_mod:<is>】
callee origin:
args: ArgList
Declaration::ResolvedConstant
ColonPair::Value
Circumfix::Parentheses ⎡(True)⎤
SemiList ⎡True⎤
diff --git lib/Test.rakumod lib/Test.rakumod
index 23520d83c..fd62c3983 100644
--- lib/Test.rakumod
+++ lib/Test.rakumod
@@ -1,5 +1,12 @@
use MONKEY-GUTS; # Allow NQP ops.
+sub eval_exception($code) {
+ try {
+ EVAL ($code);
dan@athena:~/Source/raku/rakudo$ sudo gdb -p 188744
[sudo] password for dan:
GNU gdb (Ubuntu 15.1-1ubuntu2) 15.1
Copyright (C) 2024 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
Type "show copying" and "show warranty" for details.
This GDB was configured as "aarch64-linux-gnu".
Type "show configuration" for configuration details.
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 {