From @masak

<masak> rakudo​: sub foo($n) { say $n; if $n { callsame($n-1) } }; foo(1)
<p6eval> rakudo 0eaf62​: OUTPUT«1â�¤Null PMC access in clone()â�¤in sub foo [...]
* masak submits rakudobug

Hm, maybe I should have used 'callwith' in that piece of code?

Anyway, the bug manifests itself for <call next> X~ <same with>.

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S06-advanced_subroutine_features/callsame.t

commit d19774bc271975862491aee6427f9e8d59532716
Author​: radus <radus@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Sun Jun 27 08​:03​:52 2010 +0000

  [t/spec] Added test for RT69314 - Null PMC access when calling 'callsame' directly from a sub in Rakudo.
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;31473 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-advanced_subroutine_features/callsame.t b/t/spec/S06-advanced_subroutine_features/callsame.t
index d9062ca..65b6108 100644
--- a/t/spec/S06-advanced_subroutine_features/callsame.t
+++ b/t/spec/S06-advanced_subroutine_features/callsame.t
@@ -16,6 +16,20 @@ plan *;
     is @called, <Int Num>, 'multi with "callsame" worked';
 }
 
+# RT 69314
+
+{
+    sub rt69314($n) { 
+        if $n { 
+            callsame($n-1);
+        }
+    }; 
+    
+    #?rakudo todo 'Calling callsame directly from a sub'
+    lives_ok {rt69314(1)}, 'Calling callsame directly from a sub works';
+
+}
+
 done_testing;
 
 # vim: ft=perl6

The RT System itself - Status changed from 'new' to 'open'

From @jnthn

On Wed Sep 23 03​:16​:28 2009, masak wrote​:

<masak> rakudo​: sub foo($n) { say $n; if $n { callsame($n-1) } }; foo(1)
<p6eval> rakudo 0eaf62​: OUTPUT«1â�¤Null PMC access in clone()â�¤in sub foo
[...]
* masak submits rakudobug

Hm, maybe I should have used 'callwith' in that piece of code?

Anyway, the bug manifests itself for <call next> X~ <same with>.

Now​:

sub foo($n) { say $n; if $n { callsame($n-1) } }; foo(1)
1
Too many positional parameters passed; got 1 but expected 0

Which is right - callsame takes no arguments. And if you just do
callsame()...

sub foo($n) { say $n; if $n { callsame() } }; foo(1)
1
No dispatcher in scope

Which I think is also right. Tagging testneeded.

/jnthn

From @tadzik

Test fixed in
Raku/roast@328f005ffe, closable.

@jnthn - Status changed from 'open' to 'resolved'