diff options
| author | Steven Schubiger <schubiger@cpan.org> | 2008-02-08 15:13:50 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-29 13:06:20 +0000 |
| commit | 7bc54ceabb946519c8e8183aeaf67cb19ae981c1 (patch) | |
| tree | a432d39dd7c272154d61ebb6261f1394375fe4ef /proto.h | |
| parent | df029878ce10ba115451deaf98191420c0c2f438 (diff) | |
| download | perl-7bc54ceabb946519c8e8183aeaf67cb19ae981c1.tar.gz | |
Re: [PATCH] sv.c: consting
Message-ID: <20080208131350.GB22321@refcnt.homeunix.org>
Date: Fri, 8 Feb 2008 14:13:50 +0100
p4raw-id: //depot/perl@33400
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -2972,7 +2972,7 @@ PERL_CALLCONV void Perl_sub_crush_depth(pTHX_ CV* cv) #define PERL_ARGS_ASSERT_SUB_CRUSH_DEPTH \ assert(cv) -PERL_CALLCONV bool Perl_sv_2bool(pTHX_ SV* sv) +PERL_CALLCONV bool Perl_sv_2bool(pTHX_ SV *const sv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_2BOOL \ assert(sv) @@ -3011,7 +3011,7 @@ PERL_CALLCONV SV* Perl_sv_2num(pTHX_ SV *const sv) /* PERL_CALLCONV char* Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp); */ PERL_CALLCONV char* Perl_sv_2pv_flags(pTHX_ SV *const sv, STRLEN *const lp, const I32 flags); -PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV* sv, STRLEN* lp) +PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV *const sv, STRLEN *const lp) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_2PVUTF8 \ assert(sv) @@ -3818,7 +3818,7 @@ PERL_CALLCONV void Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len) #define PERL_ARGS_ASSERT_SV_SETPVN_MG \ assert(sv); assert(ptr) -PERL_CALLCONV void Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr) +PERL_CALLCONV void Perl_sv_setsv_mg(pTHX_ SV *const dstr, SV *const sstr) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_SETSV_MG \ assert(dstr) @@ -3944,17 +3944,17 @@ PERL_CALLCONV void Perl_reginitcolors(pTHX); #define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE \ assert(sv) -PERL_CALLCONV bool Perl_sv_utf8_downgrade(pTHX_ SV *sv, bool fail_ok) +PERL_CALLCONV bool Perl_sv_utf8_downgrade(pTHX_ SV *const sv, const bool fail_ok) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_UTF8_DOWNGRADE \ assert(sv) -PERL_CALLCONV void Perl_sv_utf8_encode(pTHX_ SV *sv) +PERL_CALLCONV void Perl_sv_utf8_encode(pTHX_ SV *const sv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_UTF8_ENCODE \ assert(sv) -PERL_CALLCONV bool Perl_sv_utf8_decode(pTHX_ SV *sv) +PERL_CALLCONV bool Perl_sv_utf8_decode(pTHX_ SV *const sv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_UTF8_DECODE \ assert(sv) @@ -5606,13 +5606,13 @@ STATIC bool S_sv_2iuv_common(pTHX_ SV *const sv) #define PERL_ARGS_ASSERT_SV_2IUV_COMMON \ assert(sv) -STATIC void S_glob_assign_glob(pTHX_ SV *dstr, SV *sstr, const int dtype) +STATIC void S_glob_assign_glob(pTHX_ SV *const dstr, SV *const sstr, const int dtype) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_GLOB_ASSIGN_GLOB \ assert(dstr); assert(sstr) -STATIC void S_glob_assign_ref(pTHX_ SV *dstr, SV *sstr) +STATIC void S_glob_assign_ref(pTHX_ SV *const dstr, SV *const sstr) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_GLOB_ASSIGN_REF \ @@ -5884,7 +5884,7 @@ STATIC SV* S_swash_get(pTHX_ SV* swash, UV start, UV span) START_EXTERN_C -PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV *dstr, SV *sstr, I32 flags) +PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV *dstr, SV *sstr, const I32 flags) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_SETSV_FLAGS \ assert(dstr) @@ -5900,7 +5900,7 @@ PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags) #define PERL_ARGS_ASSERT_SV_CATSV_FLAGS \ assert(dsv) -PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags(pTHX_ SV *sv, I32 flags) +PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags(pTHX_ SV *const sv, const I32 flags) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE_FLAGS \ assert(sv) |