Change 34922 by [EMAIL PROTECTED] on 2008/11/26 18:21:52
Perl_cv_ckproto() is not part of the public API, and not used anywhere
in the core. So it can go.
Affected files ...
... //depot/perl/embed.fnc#636 edit
... //depot/perl/embed.h#773 edit
... //depot/perl/global.sym#359 edit
... //depot/perl/mathoms.c#93 edit
... //depot/perl/proto.h#970 edit
Differences ...
==== //depot/perl/embed.fnc#636 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#635~34920~ 2008-11-26 08:24:07.000000000 -0800
+++ perl/embed.fnc 2008-11-26 10:21:52.000000000 -0800
@@ -168,8 +168,6 @@
Afnp |int |fprintf_nocontext|NN PerlIO *stream|NN const char *format|...
Afnp |int |printf_nocontext|NN const char *format|...
#endif
-bp |void |cv_ckproto |NN const CV* cv|NULLOK const GV* gv\
- |NULLOK const char* p
p |void |cv_ckproto_len |NN const CV* cv|NULLOK const GV* gv\
|NULLOK const char* p|const STRLEN len
pd |CV* |cv_clone |NN CV* proto
==== //depot/perl/embed.h#773 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#772~34920~ 2008-11-26 08:24:07.000000000 -0800
+++ perl/embed.h 2008-11-26 10:21:52.000000000 -0800
@@ -123,7 +123,6 @@
#define printf_nocontext Perl_printf_nocontext
#endif
#ifdef PERL_CORE
-#define cv_ckproto Perl_cv_ckproto
#define cv_ckproto_len Perl_cv_ckproto_len
#define cv_clone Perl_cv_clone
#endif
@@ -2437,7 +2436,6 @@
#if defined(PERL_IMPLICIT_CONTEXT)
#endif
#ifdef PERL_CORE
-#define cv_ckproto(a,b,c) Perl_cv_ckproto(aTHX_ a,b,c)
#define cv_ckproto_len(a,b,c,d) Perl_cv_ckproto_len(aTHX_ a,b,c,d)
#define cv_clone(a) Perl_cv_clone(aTHX_ a)
#endif
==== //depot/perl/global.sym#359 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#358~34829~ 2008-11-12 21:47:34.000000000 -0800
+++ perl/global.sym 2008-11-26 10:21:52.000000000 -0800
@@ -77,7 +77,6 @@
Perl_sv_setpvf_mg_nocontext
Perl_fprintf_nocontext
Perl_printf_nocontext
-Perl_cv_ckproto
Perl_gv_const_sv
Perl_cv_const_sv
Perl_cv_undef
==== //depot/perl/mathoms.c#93 (text) ====
Index: perl/mathoms.c
--- perl/mathoms.c#92~34698~ 2008-11-02 13:12:59.000000000 -0800
+++ perl/mathoms.c 2008-11-26 10:21:52.000000000 -0800
@@ -1276,14 +1276,6 @@
sv_usepvn_flags(sv,ptr,len, 0);
}
-void
-Perl_cv_ckproto(pTHX_ const CV *cv, const GV *gv, const char *p)
-{
- PERL_ARGS_ASSERT_CV_CKPROTO;
-
- cv_ckproto_len(cv, gv, p, p ? strlen(p) : 0);
-}
-
/*
=for apidoc unpack_str
==== //depot/perl/proto.h#970 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#969~34920~ 2008-11-26 08:24:07.000000000 -0800
+++ perl/proto.h 2008-11-26 10:21:52.000000000 -0800
@@ -429,11 +429,6 @@
assert(format)
#endif
-PERL_CALLCONV void Perl_cv_ckproto(pTHX_ const CV* cv, const GV* gv, const
char* p)
- __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CV_CKPROTO \
- assert(cv)
-
PERL_CALLCONV void Perl_cv_ckproto_len(pTHX_ const CV* cv, const GV* gv,
const char* p, const STRLEN len)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_CV_CKPROTO_LEN \
End of Patch.
