Toss dead code.

rakudo · Mar 2, 2013 · ec1c81a · ec1c81a
1 parent 40069f9
commit ec1c81a
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 17 deletions.
diff --git a/src/Perl6/Ops.pm b/src/Perl6/Ops.pm
@@ -11,7 +11,6 @@ $ops.add_hll_pirop_mapping('perl6', 'p6list', 'perl6_list_from_rpa', 'PPPP', :in
 $ops.add_hll_pirop_mapping('perl6', 'p6listitems', 'perl6_listitems', 'PP', :inlinable(1));
 $ops.add_hll_pirop_mapping('perl6', 'p6decont', 'perl6_decontainerize', 'PP', :inlinable(1));
 $ops.add_hll_pirop_mapping('perl6', 'p6recont_ro', 'perl6_recontainerize_to_ro', 'PP', :inlinable(1));
-$ops.add_hll_pirop_mapping('perl6', 'callerid', 'perl6_callerid', 'I');
 $ops.add_hll_pirop_mapping('perl6', 'ishash', 'perl6_is_hash', 'IP', :inlinable(1));
 $ops.add_hll_pirop_mapping('perl6', 'p6store', 'perl6_container_store', '0PP', :inlinable(1));
 $ops.add_hll_pirop_mapping('perl6', 'p6type', 'perl6ize_type', 'PP', :inlinable(1));

diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
@@ -1855,22 +1855,6 @@ inline op perl6_shiftpush(inout PMC, in PMC, in INT) :base_core {
 }
 
 
-/*
-
-=item perl6_caller_location(out INT)
-
-Gets a unique ID representing the place the current routine was
-called from. Used for implementing flip-flops.
-
-=cut
-
-*/
-inline op perl6_callerid(out INT) :base_core {
-    PMC *cur_ctx    = CURRENT_CONTEXT(interp);
-    PMC *caller_ctx = Parrot_pcc_get_caller_ctx(interp, cur_ctx);
-    $1              = (INTVAL) Parrot_pcc_get_pc(interp, caller_ctx);
-}
-
 /*
 
 =item capture_all_outers(in PMC)