Author: chromatic
Date: Wed Nov 26 23:33:15 2008
New Revision: 33258
Modified:
trunk/languages/perl6/src/pmc/perl6multisub.pmc
Log:
[Rakudo] Added vtable delegate for get_pmc_keyed_int to Perl6MultiSub, as
r33253 now allows subclasses of MultiSub to store multis in a NameSpace PMC.
Bacek reported that this broke t/spec/S03-operators/assign-is-not-binding.t.
Modified: trunk/languages/perl6/src/pmc/perl6multisub.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6multisub.pmc (original)
+++ trunk/languages/perl6/src/pmc/perl6multisub.pmc Wed Nov 26 23:33:15 2008
@@ -4,7 +4,7 @@
=head1 NAME
-src/pmc/perl6multiub.pmc - Perl 6 MultiSub PMC
+src/pmc/perl6multisub.pmc - Perl 6 MultiSub PMC
=head1 DESCRIPTION
@@ -680,6 +680,12 @@
PMC_data(SELF) = NULL;
}
+ VTABLE PMC* get_pmc_keyed_int(INTVAL value) {
+ PMC *candidates;
+ GETATTR_Perl6MultiSub_candidates(interp, SELF, candidates);
+ return VTABLE_get_pmc_keyed_int(interp, candidates, value);
+ }
+
/*
=item VTABLE opcode_t invoke()
