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 /embed.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 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -118,6 +118,7 @@ #define cv_ckproto Perl_cv_ckproto #define cv_clone Perl_cv_clone #endif +#define gv_const_sv Perl_gv_const_sv #define cv_const_sv Perl_cv_const_sv #ifdef PERL_CORE #define op_const_sv Perl_op_const_sv @@ -2167,6 +2168,7 @@ #define cv_ckproto(a,b,c) Perl_cv_ckproto(aTHX_ a,b,c) #define cv_clone(a) Perl_cv_clone(aTHX_ a) #endif +#define gv_const_sv(a) Perl_gv_const_sv(aTHX_ a) #define cv_const_sv(a) Perl_cv_const_sv(aTHX_ a) #ifdef PERL_CORE #define op_const_sv(a,b) Perl_op_const_sv(aTHX_ a,b) @@ -3420,7 +3422,7 @@ #define feature_is_enabled(a,b) S_feature_is_enabled(aTHX_ a,b) #define force_ident(a,b) S_force_ident(aTHX_ a,b) #define incline(a) S_incline(aTHX_ a) -#define intuit_method(a,b) S_intuit_method(aTHX_ a,b) +#define intuit_method(a,b,c) S_intuit_method(aTHX_ a,b,c) #define intuit_more(a) S_intuit_more(aTHX_ a) #define lop(a,b,c) S_lop(aTHX_ a,b,c) #define missingterm(a) S_missingterm(aTHX_ a) |