diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-17 03:39:07 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-17 03:39:07 +0000 |
| commit | d0674b55e5a9642fec04317f696851f696a91976 (patch) | |
| tree | 608cd57d626b54b93d02e8704a879953c81b1c91 | |
| parent | 9070c74a4a69265863bf0ed35e2f044c9ad5b133 (diff) | |
| download | perl-d0674b55e5a9642fec04317f696851f696a91976.tar.gz | |
export cv_undef() and cv_const_sv() (mod_perl uses them to
good advantage)
p4raw-id: //depot/perl@5774
| -rwxr-xr-x | embed.pl | 4 | ||||
| -rw-r--r-- | global.sym | 2 | ||||
| -rw-r--r-- | objXSUB.h | 8 | ||||
| -rw-r--r-- | perlapi.c | 14 |
4 files changed, 26 insertions, 2 deletions
@@ -1418,9 +1418,9 @@ Afnp |int |fprintf_nocontext|PerlIO* stream|const char* fmt|... #endif p |void |cv_ckproto |CV* cv|GV* gv|char* p p |CV* |cv_clone |CV* proto -p |SV* |cv_const_sv |CV* cv +Ap |SV* |cv_const_sv |CV* cv p |SV* |op_const_sv |OP* o|CV* cv -p |void |cv_undef |CV* cv +Ap |void |cv_undef |CV* cv Ap |void |cx_dump |PERL_CONTEXT* cs Ap |SV* |filter_add |filter_t funcp|SV* datasv Ap |void |filter_del |filter_t funcp diff --git a/global.sym b/global.sym index c9ecd97bad..7a97668caf 100644 --- a/global.sym +++ b/global.sym @@ -68,6 +68,8 @@ Perl_sv_setpvf_nocontext Perl_sv_catpvf_mg_nocontext Perl_sv_setpvf_mg_nocontext Perl_fprintf_nocontext +Perl_cv_const_sv +Perl_cv_undef Perl_cx_dump Perl_filter_add Perl_filter_del @@ -229,6 +229,14 @@ #undef fprintf_nocontext #define fprintf_nocontext Perl_fprintf_nocontext #endif +#undef Perl_cv_const_sv +#define Perl_cv_const_sv pPerl->Perl_cv_const_sv +#undef cv_const_sv +#define cv_const_sv Perl_cv_const_sv +#undef Perl_cv_undef +#define Perl_cv_undef pPerl->Perl_cv_undef +#undef cv_undef +#define cv_undef Perl_cv_undef #undef Perl_cx_dump #define Perl_cx_dump pPerl->Perl_cx_dump #undef cx_dump @@ -479,6 +479,20 @@ Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...) #undef Perl_fprintf_nocontext #endif +#undef Perl_cv_const_sv +SV* +Perl_cv_const_sv(pTHXo_ CV* cv) +{ + return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv); +} + +#undef Perl_cv_undef +void +Perl_cv_undef(pTHXo_ CV* cv) +{ + ((CPerlObj*)pPerl)->Perl_cv_undef(cv); +} + #undef Perl_cx_dump void Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs) |