diff options
| author | Robin Barker <RMBarker@cpan.org> | 2008-02-13 17:46:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-14 08:09:36 +0000 |
| commit | fe9845cc7694fe04f66831f3e3d7db0a47720cfc (patch) | |
| tree | 913526495508f34e0d4beab7ca984a060f46ac72 /proto.h | |
| parent | 9f4ee62979dc352c40be9112d4effb2365866c3a (diff) | |
| download | perl-fe9845cc7694fe04f66831f3e3d7db0a47720cfc.tar.gz | |
use svtype
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D093A35@exchsvr2.npl.ad.local>
p4raw-id: //depot/perl@33304
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -903,7 +903,7 @@ PERL_CALLCONV GV* Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name #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 @@ PERL_CALLCONV SV* Perl_newSVsv(pTHX_ SV* old) __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 @@ STATIC I32 S_do_trans_complex_utf8(pTHX_ SV * const sv) #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 @@ STATIC SV* S_refto(pTHX_ SV* sv) #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 @@ PERL_CALLCONV void Perl_my_swabn(void* ptr, int n) 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) |