diff options
| author | Steven Schubiger <schubiger@cpan.org> | 2008-02-29 22:29:39 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-03-01 12:54:59 +0000 |
| commit | 2e000ff2937b88268058c207fe83724808b808a8 (patch) | |
| tree | 09ca6fb7bb3de8846bf298104b7b702aef7693e6 /proto.h | |
| parent | 566cc23fa35cd77b9dcde1043e96dcaff3d7a108 (diff) | |
| download | perl-2e000ff2937b88268058c207fe83724808b808a8.tar.gz | |
Re: [PATCH] sv.c: consting
Message-ID: <20080229202939.GA16742@refcnt.homeunix.org>
Date: Fri, 29 Feb 2008 21:29:39 +0100
p4raw-id: //depot/perl@33403
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -3107,7 +3107,7 @@ PERL_CALLCONV void Perl_sv_catpv(pTHX_ SV* sv, const char* ptr) #define PERL_ARGS_ASSERT_SV_CATSV \ assert(dstr) -PERL_CALLCONV void Perl_sv_chop(pTHX_ SV* sv, const char* ptr) +PERL_CALLCONV void Perl_sv_chop(pTHX_ SV *const sv, const char *const ptr) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_CHOP \ assert(sv) @@ -3332,12 +3332,12 @@ PERL_CALLCONV SV* Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, const #define PERL_ARGS_ASSERT_SV_SETREF_PVN \ assert(rv); assert(pv) -PERL_CALLCONV void Perl_sv_setpv(pTHX_ SV* sv, const char* ptr) +PERL_CALLCONV void Perl_sv_setpv(pTHX_ SV *const sv, const char *const ptr) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_SETPV \ assert(sv) -PERL_CALLCONV void Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len) +PERL_CALLCONV void Perl_sv_setpvn(pTHX_ SV *const sv, const char *const ptr, const STRLEN len) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_SETPVN \ assert(sv) @@ -3388,7 +3388,7 @@ PERL_CALLCONV void Perl_sv_upgrade(pTHX_ SV *const sv, svtype new_type) #define PERL_ARGS_ASSERT_SV_USEPVN \ assert(sv) -PERL_CALLCONV void Perl_sv_usepvn_flags(pTHX_ SV* sv, char* ptr, STRLEN len, U32 flags) +PERL_CALLCONV void Perl_sv_usepvn_flags(pTHX_ SV *const sv, char* ptr, const STRLEN len, const U32 flags) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_USEPVN_FLAGS \ assert(sv) @@ -3807,12 +3807,12 @@ PERL_CALLCONV void Perl_sv_setnv_mg(pTHX_ SV *const sv, const NV num) #define PERL_ARGS_ASSERT_SV_SETNV_MG \ assert(sv) -PERL_CALLCONV void Perl_sv_setpv_mg(pTHX_ SV *sv, const char *ptr) +PERL_CALLCONV void Perl_sv_setpv_mg(pTHX_ SV *const sv, const char *const ptr) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_SETPV_MG \ assert(sv) -PERL_CALLCONV void Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len) +PERL_CALLCONV void Perl_sv_setpvn_mg(pTHX_ SV *const sv, const char *const ptr, const STRLEN len) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_SV_SETPVN_MG \ @@ -3964,7 +3964,7 @@ PERL_CALLCONV bool Perl_sv_utf8_decode(pTHX_ SV *const sv) #define PERL_ARGS_ASSERT_SV_FORCE_NORMAL \ assert(sv) -PERL_CALLCONV void Perl_sv_force_normal_flags(pTHX_ SV *sv, U32 flags) +PERL_CALLCONV void Perl_sv_force_normal_flags(pTHX_ SV *const sv, const U32 flags) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_FORCE_NORMAL_FLAGS \ assert(sv) @@ -5889,13 +5889,13 @@ PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV *dstr, SV *sstr, const I32 flags #define PERL_ARGS_ASSERT_SV_SETSV_FLAGS \ assert(dstr) -PERL_CALLCONV void Perl_sv_catpvn_flags(pTHX_ SV *dstr, const char *sstr, STRLEN len, I32 flags) +PERL_CALLCONV void Perl_sv_catpvn_flags(pTHX_ SV *const dstr, const char *sstr, const STRLEN len, const I32 flags) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_SV_CATPVN_FLAGS \ assert(dstr); assert(sstr) -PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags) +PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV *const dsv, SV *const ssv, const I32 flags) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_CATSV_FLAGS \ assert(dsv) |