diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-12-20 20:13:12 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-12-20 20:13:12 +0000 |
| commit | 62d55b227f6b1e95d65e7faf12ed22fd467e4c0e (patch) | |
| tree | 878ebaec9c22b6cea9c0ddb9e303b2ea782dc6f4 /proto.h | |
| parent | b204bbd55f0b19ee3a808931bc9154c7a5183948 (diff) | |
| download | perl-62d55b227f6b1e95d65e7faf12ed22fd467e4c0e.tar.gz | |
Take care in toke.c not to convert constant subroutine reference
proxies into full blown PVGVs with PVCVs, and recognise them and inline
their values. Adds a new function gv_const_sv(gv) to return the value
of the constant subroutine from a GV, and adds a cv parameter to
S_intuit_method.
p4raw-id: //depot/perl@26427
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -290,6 +290,10 @@ PERL_CALLCONV void Perl_cv_ckproto(pTHX_ const CV* cv, const GV* gv, const char* PERL_CALLCONV CV* Perl_cv_clone(pTHX_ CV* proto) __attribute__nonnull__(pTHX_1); +PERL_CALLCONV SV* Perl_gv_const_sv(pTHX_ GV* gv) + __attribute__warn_unused_result__ + __attribute__nonnull__(pTHX_1); + PERL_CALLCONV SV* Perl_cv_const_sv(pTHX_ CV* cv) __attribute__warn_unused_result__; @@ -3772,7 +3776,7 @@ STATIC void S_force_ident(pTHX_ const char *s, int kind) STATIC void S_incline(pTHX_ char *s) __attribute__nonnull__(pTHX_1); -STATIC int S_intuit_method(pTHX_ char *s, GV *gv) +STATIC int S_intuit_method(pTHX_ char *s, GV *gv, CV *cv) __attribute__nonnull__(pTHX_1); STATIC int S_intuit_more(pTHX_ char *s) |