Change 33304 by [EMAIL PROTECTED] on 2008/02/14 08:09:36
Subject: [PATCH] use svtype
From: "Robin Barker" <[EMAIL PROTECTED]>
Date: Wed, 13 Feb 2008 17:46:02 -0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/embed.fnc#587 edit
... //depot/perl/gv.c#389 edit
... //depot/perl/pod/perlapi.pod#320 edit
... //depot/perl/pp.c#623 edit
... //depot/perl/proto.h#922 edit
... //depot/perl/sv.c#1506 edit
Differences ...
==== //depot/perl/embed.fnc#587 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#586~33300~ 2008-02-13 04:27:56.000000000 -0800
+++ perl/embed.fnc 2008-02-14 00:09:36.000000000 -0800
@@ -298,7 +298,7 @@
Apd |GV* |gv_fetchmeth_autoload |NULLOK HV* stash|NN const char*
name|STRLEN len|I32 level
Apdmb |GV* |gv_fetchmethod |NULLOK HV* stash|NN const char* name
Apd |GV* |gv_fetchmethod_autoload|NULLOK HV* stash|NN const char*
name|I32 autoload
-Ap |GV* |gv_fetchpv |NN const char *nambeg|I32 add|I32 sv_type
+Ap |GV* |gv_fetchpv |NN const char *nambeg|I32 add|const svtype
sv_type
Ap |void |gv_fullname |NN SV* sv|NN const GV* gv
Apmb |void |gv_fullname3 |NN SV* sv|NN const GV* gv|NULLOK const char*
prefix
Ap |void |gv_fullname4 |NN SV* sv|NN const GV* gv|NULLOK const char*
prefix|bool keepmain
@@ -611,7 +611,7 @@
Apa |SV* |vnewSVpvf |NN const char* pat|NULLOK va_list* args
Apd |SV* |newSVrv |NN SV* rv|NULLOK const char* classname
Apda |SV* |newSVsv |NULLOK SV* old
-Apda |SV* |newSV_type |svtype type
+Apda |SV* |newSV_type |const svtype type
Apa |OP* |newUNOP |I32 type|I32 flags|NULLOK OP* first
Apa |OP* |newWHENOP |NULLOK OP* cond|NN OP* block
Apa |OP* |newWHILEOP |I32 flags|I32 debuggable|NULLOK LOOP* loop \
@@ -1154,7 +1154,7 @@
#endif
#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
-s |void |gv_init_sv |NN GV *gv|I32 sv_type
+s |void |gv_init_sv |NN GV *gv|const svtype sv_type
s |HV* |gv_get_super_pkg|NN const char* name|I32 namelen
s |HV* |require_tie_mod|NN GV *gv|NN const char *varpv|NN SV* namesv \
|NN const char *methpv|const U32 flags
@@ -1326,7 +1326,7 @@
#endif
#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) ||
defined(PERL_DECL_PROT)
pRxo |GV* |softref2xv |NN SV *const sv|NN const char *const what \
- |const U32 type|NN SV ***spp
+ |const svtype type|NN SV ***spp
#endif
#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
@@ -1850,8 +1850,8 @@
np |void |my_swabn |NN void* ptr|int n
-Ap |GV* |gv_fetchpvn_flags|NN const char* name|STRLEN len|I32 flags|I32
sv_type
-Ap |GV* |gv_fetchsv|NN SV *name|I32 flags|I32 sv_type
+Ap |GV* |gv_fetchpvn_flags|NN const char* name|STRLEN len|I32
flags|const svtype sv_type
+Ap |GV* |gv_fetchsv|NN SV *name|I32 flags|const svtype sv_type
dpR |bool |is_gv_magical_sv|NN SV *name|U32 flags
ApR |bool |stashpv_hvname_match|NN const COP *c|NN const HV *hv
==== //depot/perl/gv.c#389 (text) ====
Index: perl/gv.c
--- perl/gv.c#388~33291~ 2008-02-12 05:15:20.000000000 -0800
+++ perl/gv.c 2008-02-14 00:09:36.000000000 -0800
@@ -304,7 +304,7 @@
}
STATIC void
-S_gv_init_sv(pTHX_ GV *gv, I32 sv_type)
+S_gv_init_sv(pTHX_ GV *gv, const svtype sv_type)
{
PERL_ARGS_ASSERT_GV_INIT_SV;
@@ -895,13 +895,13 @@
GV *
-Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) {
+Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, const svtype sv_type) {
PERL_ARGS_ASSERT_GV_FETCHPV;
return gv_fetchpvn_flags(nambeg, strlen(nambeg), add, sv_type);
}
GV *
-Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, I32 sv_type) {
+Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_type) {
STRLEN len;
const char * const nambeg = SvPV_const(name, len);
PERL_ARGS_ASSERT_GV_FETCHSV;
@@ -910,7 +910,7 @@
GV *
Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
- I32 sv_type)
+ const svtype sv_type)
{
dVAR;
register const char *name = nambeg;
==== //depot/perl/pod/perlapi.pod#320 (text+w) ====
Index: perl/pod/perlapi.pod
--- perl/pod/perlapi.pod#319~33289~ 2008-02-12 04:16:23.000000000 -0800
+++ perl/pod/perlapi.pod 2008-02-14 00:09:36.000000000 -0800
@@ -5311,7 +5311,7 @@
Creates a new SV, of the type specified. The reference count for the new SV
is set to 1.
- SV* newSV_type(svtype type)
+ SV* newSV_type(const svtype type)
=for hackers
Found in file sv.c
==== //depot/perl/pp.c#623 (text) ====
Index: perl/pp.c
--- perl/pp.c#622~33291~ 2008-02-12 05:15:20.000000000 -0800
+++ perl/pp.c 2008-02-14 00:09:36.000000000 -0800
@@ -218,8 +218,8 @@
/* Helper function for pp_rv2sv and pp_rv2av */
GV *
-Perl_softref2xv(pTHX_ SV *const sv, const char *const what, const U32 type,
- SV ***spp)
+Perl_softref2xv(pTHX_ SV *const sv, const char *const what,
+ const svtype type, SV ***spp)
{
dVAR;
GV *gv;
==== //depot/perl/proto.h#922 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#921~33300~ 2008-02-13 04:27:56.000000000 -0800
+++ perl/proto.h 2008-02-14 00:09:36.000000000 -0800
@@ -903,7 +903,7 @@
#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_AUTOLOAD \
assert(name)
-PERL_CALLCONV GV* Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32
sv_type)
+PERL_CALLCONV GV* Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add,
const svtype sv_type)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_GV_FETCHPV \
assert(nambeg)
@@ -2230,7 +2230,7 @@
__attribute__malloc__
__attribute__warn_unused_result__;
-PERL_CALLCONV SV* Perl_newSV_type(pTHX_ svtype type)
+PERL_CALLCONV SV* Perl_newSV_type(pTHX_ const svtype type)
__attribute__malloc__
__attribute__warn_unused_result__;
@@ -4183,7 +4183,7 @@
#endif
#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
-STATIC void S_gv_init_sv(pTHX_ GV *gv, I32 sv_type)
+STATIC void S_gv_init_sv(pTHX_ GV *gv, const svtype sv_type)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_GV_INIT_SV \
assert(gv)
@@ -4804,7 +4804,7 @@
#endif
#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) ||
defined(PERL_DECL_PROT)
-PERL_CALLCONV GV* Perl_softref2xv(pTHX_ SV *const sv, const char *const
what, const U32 type, SV ***spp)
+PERL_CALLCONV GV* Perl_softref2xv(pTHX_ SV *const sv, const char *const
what, const svtype type, SV ***spp)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_2)
@@ -6262,12 +6262,12 @@
assert(ptr)
-PERL_CALLCONV GV* Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN
len, I32 flags, I32 sv_type)
+PERL_CALLCONV GV* Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN
len, I32 flags, const svtype sv_type)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_GV_FETCHPVN_FLAGS \
assert(name)
-PERL_CALLCONV GV* Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, I32 sv_type)
+PERL_CALLCONV GV* Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype
sv_type)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_GV_FETCHSV \
assert(name)
==== //depot/perl/sv.c#1506 (text) ====
Index: perl/sv.c
--- perl/sv.c#1505~33291~ 2008-02-12 05:15:20.000000000 -0800
+++ perl/sv.c 2008-02-14 00:09:36.000000000 -0800
@@ -7581,7 +7581,7 @@
*/
SV *
-Perl_newSV_type(pTHX_ svtype type)
+Perl_newSV_type(pTHX_ const svtype type)
{
register SV *sv;
End of Patch.
