Change 34944 by [EMAIL PROTECTED] on 2008/11/27 10:10:06
av_fake() isn't in the public API, and isn't used anywhere, so it can
go.
Affected files ...
... //depot/perl/embed.fnc#652 edit
... //depot/perl/embed.h#788 edit
... //depot/perl/mathoms.c#95 edit
... //depot/perl/proto.h#985 edit
Differences ...
==== //depot/perl/embed.fnc#652 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#651~34942~ 2008-11-26 15:50:06.000000000 -0800
+++ perl/embed.fnc 2008-11-27 02:10:06.000000000 -0800
@@ -112,7 +112,6 @@
Apd |SV* |av_delete |NN AV *av|I32 key|I32 flags
ApdR |bool |av_exists |NN AV *av|I32 key
Apd |void |av_extend |NN AV *av|I32 key
-pR |AV* |av_fake |I32 size|NN SV **strp
ApdR |SV** |av_fetch |NN AV *av|I32 key|I32 lval
Apd |void |av_fill |NN AV *av|I32 fill
ApdR |I32 |av_len |NN AV *av
==== //depot/perl/embed.h#788 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#787~34941~ 2008-11-26 15:35:59.000000000 -0800
+++ perl/embed.h 2008-11-27 02:10:06.000000000 -0800
@@ -56,9 +56,6 @@
#define av_delete Perl_av_delete
#define av_exists Perl_av_exists
#define av_extend Perl_av_extend
-#ifdef PERL_CORE
-#define av_fake Perl_av_fake
-#endif
#define av_fetch Perl_av_fetch
#define av_fill Perl_av_fill
#define av_len Perl_av_len
@@ -2416,9 +2413,6 @@
#define av_delete(a,b,c) Perl_av_delete(aTHX_ a,b,c)
#define av_exists(a,b) Perl_av_exists(aTHX_ a,b)
#define av_extend(a,b) Perl_av_extend(aTHX_ a,b)
-#ifdef PERL_CORE
-#define av_fake(a,b) Perl_av_fake(aTHX_ a,b)
-#endif
#define av_fetch(a,b,c) Perl_av_fetch(aTHX_ a,b,c)
#define av_fill(a,b) Perl_av_fill(aTHX_ a,b)
#define av_len(a) Perl_av_len(aTHX_ a)
==== //depot/perl/mathoms.c#95 (text) ====
Index: perl/mathoms.c
--- perl/mathoms.c#94~34937~ 2008-11-26 14:44:03.000000000 -0800
+++ perl/mathoms.c 2008-11-27 02:10:06.000000000 -0800
@@ -607,29 +607,6 @@
sv_magic(MUTABLE_SV(hv), MUTABLE_SV(gv), how, NULL, 0);
}
-AV *
-Perl_av_fake(pTHX_ register I32 size, register SV **strp)
-{
- register SV** ary;
- register AV * const av = MUTABLE_AV(newSV_type(SVt_PVAV));
-
- PERL_ARGS_ASSERT_AV_FAKE;
-
- Newx(ary,size+1,SV*);
- AvALLOC(av) = ary;
- Copy(strp,ary,size,SV*);
- AvREIFY_only(av);
- AvARRAY(av) = ary;
- AvFILLp(av) = size - 1;
- AvMAX(av) = size - 1;
- while (size--) {
- assert (*strp);
- SvTEMP_off(*strp);
- strp++;
- }
- return av;
-}
-
bool
Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw,
int rawmode, int rawperm, PerlIO *supplied_fp)
==== //depot/perl/proto.h#985 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#984~34941~ 2008-11-26 15:35:59.000000000 -0800
+++ perl/proto.h 2008-11-27 02:10:06.000000000 -0800
@@ -175,12 +175,6 @@
#define PERL_ARGS_ASSERT_AV_EXTEND \
assert(av)
-PERL_CALLCONV AV* Perl_av_fake(pTHX_ I32 size, SV **strp)
- __attribute__warn_unused_result__
- __attribute__nonnull__(pTHX_2);
-#define PERL_ARGS_ASSERT_AV_FAKE \
- assert(strp)
-
PERL_CALLCONV SV** Perl_av_fetch(pTHX_ AV *av, I32 key, I32 lval)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_1);
End of Patch.
