diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-02 15:04:47 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-14 11:14:58 -0700 |
| commit | 9927957a90b2fe6bdb0e2be889b2edcddadea174 (patch) | |
| tree | e265b03cc962927ef503bb225e5e78414349fcf8 /proto.h | |
| parent | e058c50ad847ead283c43829ad8b0b73f59ef9db (diff) | |
| download | perl-9927957a90b2fe6bdb0e2be889b2edcddadea174.tar.gz | |
Make core_prototype provide the op number as well
Since it has to calculate it, it might as well provide it, so callers
do not have to go through that while(i < MAXO) loop yet again.
(The &CORE::foo feature will use this.)
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -571,7 +571,7 @@ PERL_CALLCONV void Perl_cop_store_label(pTHX_ COP *const cop, const char *label, #define PERL_ARGS_ASSERT_COP_STORE_LABEL \ assert(cop); assert(label) -PERL_CALLCONV SV * Perl_core_prototype(pTHX_ SV *sv, const char *name, const STRLEN len, const bool croak) +PERL_CALLCONV SV * Perl_core_prototype(pTHX_ SV *sv, const char *name, const STRLEN len, int * const opnum, const bool croak) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_CORE_PROTOTYPE \ assert(name) |