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.fnc | |
| 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.fnc')
| -rw-r--r-- | embed.fnc | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -150,6 +150,7 @@ Afnp |int |printf_nocontext|NN const char* fmt|... #endif p |void |cv_ckproto |NN const CV* cv|NULLOK const GV* gv|NULLOK const char* p pd |CV* |cv_clone |NN CV* proto +ApdR |SV* |gv_const_sv |NN GV* gv ApdR |SV* |cv_const_sv |NULLOK CV* cv pR |SV* |op_const_sv |NULLOK const OP* o|NULLOK CV* cv Apd |void |cv_undef |NN CV* cv @@ -1356,7 +1357,7 @@ s |void |checkcomma |NN char *s|NN const char *name|NN const char *what s |bool |feature_is_enabled|NN char* name|STRLEN namelen s |void |force_ident |NN const char *s|int kind s |void |incline |NN char *s -s |int |intuit_method |NN char *s|NULLOK GV *gv +s |int |intuit_method |NN char *s|NULLOK GV *gv|NULLOK CV *cv s |int |intuit_more |NN char *s s |I32 |lop |I32 f|int x|NN char *s rs |void |missingterm |NULLOK char *s |