Skip to content

Commit 1eb6e4c

Browse files
stscrgs
stsc
authored and
rgs
committed
Re: [PATCH] sv.c: consting
Message-ID: <[email protected]> p4raw-id: //depot/perl@33561
1 parent 523f125 commit 1eb6e4c

File tree

3 files changed

+28
-27
lines changed

3 files changed

+28
-27
lines changed

‎embed.fnc

Lines changed: 10 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1116,17 +1116,18 @@ Ap |void |re_dup_guts |NN const REGEXP *sstr|NN REGEXP *dstr \
11161116
Ap |PerlIO*|fp_dup |NULLOK PerlIO *const fp|const char type|NN CLONE_PARAMS *const param
11171117
ApR |DIR* |dirp_dup |NULLOK DIR *const dp
11181118
ApR |GP* |gp_dup |NULLOK GP *const gp|NN CLONE_PARAMS *const param
1119-
ApR |MAGIC* |mg_dup |NULLOK MAGIC *mg|NN CLONE_PARAMS *const param
1120-
ApR |SV* |sv_dup |NULLOK const SV* sstr|NN CLONE_PARAMS* param
1121-
Ap |void |rvpv_dup |NN SV* dstr|NN const SV *sstr|NN CLONE_PARAMS* param
1119+
ApR |MAGIC* |mg_dup |NULLOK MAGIC *const mg|NN CLONE_PARAMS *const param
1120+
ApR |SV* |sv_dup |NULLOK const SV *const sstr|NN CLONE_PARAMS *const param
1121+
Ap |void |rvpv_dup |NN SV *const dstr|NN const SV *const sstr|NN CLONE_PARAMS *const param
11221122
Ap |yy_parser*|parser_dup |NULLOK const yy_parser *const proto|NN CLONE_PARAMS *const param
11231123
#endif
11241124
Apa |PTR_TBL_t*|ptr_table_new
1125-
ApR |void* |ptr_table_fetch|NN PTR_TBL_t *tbl|NULLOK const void *sv
1126-
Ap |void |ptr_table_store|NN PTR_TBL_t *tbl|NULLOK const void *oldsv|NN void *newsv
1127-
Ap |void |ptr_table_split|NN PTR_TBL_t *tbl
1128-
Ap |void |ptr_table_clear|NULLOK PTR_TBL_t *tbl
1129-
Ap |void |ptr_table_free|NULLOK PTR_TBL_t *tbl
1125+
ApR |void* |ptr_table_fetch|NN PTR_TBL_t *const tbl|NULLOK const void *const sv
1126+
Ap |void |ptr_table_store|NN PTR_TBL_t *const tbl|NULLOK const void *const oldsv \
1127+
|NN void *const newsv
1128+
Ap |void |ptr_table_split|NN PTR_TBL_t *const tbl
1129+
Ap |void |ptr_table_clear|NULLOK PTR_TBL_t *const tbl
1130+
Ap |void |ptr_table_free|NULLOK PTR_TBL_t *const tbl
11301131
#if defined(USE_ITHREADS)
11311132
# if defined(HAVE_INTERP_INTERN)
11321133
Ap |void |sys_intern_dup |NN struct interp_intern* src|NN struct interp_intern* dst
@@ -1583,7 +1584,7 @@ s |bool |sv_2iuv_common |NN SV *const sv
15831584
s |void |glob_assign_glob|NN SV *const dstr|NN SV *const sstr \
15841585
|const int dtype
15851586
s |void |glob_assign_ref|NN SV *const dstr|NN SV *const sstr
1586-
sRn |PTR_TBL_ENT_t *|ptr_table_find|NN PTR_TBL_t *tbl|NULLOK const void *sv
1587+
sRn |PTR_TBL_ENT_t *|ptr_table_find|NN PTR_TBL_t *const tbl|NULLOK const void *const sv
15871588
#endif
15881589

15891590
#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)

‎proto.h

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -4055,19 +4055,19 @@ PERL_CALLCONV GP* Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
40554055
#define PERL_ARGS_ASSERT_GP_DUP \
40564056
assert(param)
40574057

4058-
PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
4058+
PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC *const mg, CLONE_PARAMS *const param)
40594059
__attribute__warn_unused_result__
40604060
__attribute__nonnull__(pTHX_2);
40614061
#define PERL_ARGS_ASSERT_MG_DUP \
40624062
assert(param)
40634063

4064-
PERL_CALLCONV SV* Perl_sv_dup(pTHX_ const SV* sstr, CLONE_PARAMS* param)
4064+
PERL_CALLCONV SV* Perl_sv_dup(pTHX_ const SV *const sstr, CLONE_PARAMS *const param)
40654065
__attribute__warn_unused_result__
40664066
__attribute__nonnull__(pTHX_2);
40674067
#define PERL_ARGS_ASSERT_SV_DUP \
40684068
assert(param)
40694069

4070-
PERL_CALLCONV void Perl_rvpv_dup(pTHX_ SV* dstr, const SV *sstr, CLONE_PARAMS* param)
4070+
PERL_CALLCONV void Perl_rvpv_dup(pTHX_ SV *const dstr, const SV *const sstr, CLONE_PARAMS *const param)
40714071
__attribute__nonnull__(pTHX_1)
40724072
__attribute__nonnull__(pTHX_2)
40734073
__attribute__nonnull__(pTHX_3);
@@ -4084,25 +4084,25 @@ PERL_CALLCONV PTR_TBL_t* Perl_ptr_table_new(pTHX)
40844084
__attribute__malloc__
40854085
__attribute__warn_unused_result__;
40864086

4087-
PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, const void *sv)
4087+
PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *const tbl, const void *const sv)
40884088
__attribute__warn_unused_result__
40894089
__attribute__nonnull__(pTHX_1);
40904090
#define PERL_ARGS_ASSERT_PTR_TABLE_FETCH \
40914091
assert(tbl)
40924092

4093-
PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, const void *oldsv, void *newsv)
4093+
PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *const tbl, const void *const oldsv, void *const newsv)
40944094
__attribute__nonnull__(pTHX_1)
40954095
__attribute__nonnull__(pTHX_3);
40964096
#define PERL_ARGS_ASSERT_PTR_TABLE_STORE \
40974097
assert(tbl); assert(newsv)
40984098

4099-
PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl)
4099+
PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *const tbl)
41004100
__attribute__nonnull__(pTHX_1);
41014101
#define PERL_ARGS_ASSERT_PTR_TABLE_SPLIT \
41024102
assert(tbl)
41034103

4104-
PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl);
4105-
PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl);
4104+
PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *const tbl);
4105+
PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *const tbl);
41064106
#if defined(USE_ITHREADS)
41074107
# if defined(HAVE_INTERP_INTERN)
41084108
PERL_CALLCONV void Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst)
@@ -5615,7 +5615,7 @@ STATIC void S_glob_assign_ref(pTHX_ SV *const dstr, SV *const sstr)
56155615
#define PERL_ARGS_ASSERT_GLOB_ASSIGN_REF \
56165616
assert(dstr); assert(sstr)
56175617

5618-
STATIC PTR_TBL_ENT_t * S_ptr_table_find(PTR_TBL_t *tbl, const void *sv)
5618+
STATIC PTR_TBL_ENT_t * S_ptr_table_find(PTR_TBL_t *const tbl, const void *const sv)
56195619
__attribute__warn_unused_result__
56205620
__attribute__nonnull__(1);
56215621
#define PERL_ARGS_ASSERT_PTR_TABLE_FIND \

‎sv.c

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -10189,7 +10189,7 @@ Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
1018910189
/* duplicate a chain of magic */
1019010190

1019110191
MAGIC *
10192-
Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
10192+
Perl_mg_dup(pTHX_ MAGIC *const mg, CLONE_PARAMS *const param)
1019310193
{
1019410194
MAGIC *mgprev = (MAGIC*)NULL;
1019510195
MAGIC *mgret;
@@ -10288,7 +10288,7 @@ Perl_ptr_table_new(pTHX)
1028810288
/* map an existing pointer using a table */
1028910289

1029010290
STATIC PTR_TBL_ENT_t *
10291-
S_ptr_table_find(PTR_TBL_t *tbl, const void *sv)
10291+
S_ptr_table_find(PTR_TBL_t *const tbl, const void *const sv)
1029210292
{
1029310293
PTR_TBL_ENT_t *tblent;
1029410294
const UV hash = PTR_TABLE_HASH(sv);
@@ -10304,7 +10304,7 @@ S_ptr_table_find(PTR_TBL_t *tbl, const void *sv)
1030410304
}
1030510305

1030610306
void *
10307-
Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, const void *sv)
10307+
Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *const tbl, const void *const sv)
1030810308
{
1030910309
PTR_TBL_ENT_t const *const tblent = ptr_table_find(tbl, sv);
1031010310

@@ -10317,7 +10317,7 @@ Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, const void *sv)
1031710317
/* add a new entry to a pointer-mapping table */
1031810318

1031910319
void
10320-
Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, const void *oldsv, void *newsv)
10320+
Perl_ptr_table_store(pTHX_ PTR_TBL_t *const tbl, const void *const oldsv, void *const newsv)
1032110321
{
1032210322
PTR_TBL_ENT_t *tblent = ptr_table_find(tbl, oldsv);
1032310323

@@ -10344,7 +10344,7 @@ Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, const void *oldsv, void *newsv)
1034410344
/* double the hash bucket size of an existing ptr table */
1034510345

1034610346
void
10347-
Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl)
10347+
Perl_ptr_table_split(pTHX_ PTR_TBL_t *const tbl)
1034810348
{
1034910349
PTR_TBL_ENT_t **ary = tbl->tbl_ary;
1035010350
const UV oldsize = tbl->tbl_max + 1;
@@ -10379,7 +10379,7 @@ Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl)
1037910379
/* remove all the entries from a ptr table */
1038010380

1038110381
void
10382-
Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl)
10382+
Perl_ptr_table_clear(pTHX_ PTR_TBL_t *const tbl)
1038310383
{
1038410384
if (tbl && tbl->tbl_items) {
1038510385
register PTR_TBL_ENT_t * const * const array = tbl->tbl_ary;
@@ -10402,7 +10402,7 @@ Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl)
1040210402
/* clear and free a ptr table */
1040310403

1040410404
void
10405-
Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl)
10405+
Perl_ptr_table_free(pTHX_ PTR_TBL_t *const tbl)
1040610406
{
1040710407
if (!tbl) {
1040810408
return;
@@ -10415,7 +10415,7 @@ Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl)
1041510415
#if defined(USE_ITHREADS)
1041610416

1041710417
void
10418-
Perl_rvpv_dup(pTHX_ SV *dstr, const SV *sstr, CLONE_PARAMS* param)
10418+
Perl_rvpv_dup(pTHX_ SV *const dstr, const SV *const sstr, CLONE_PARAMS *const param)
1041910419
{
1042010420
PERL_ARGS_ASSERT_RVPV_DUP;
1042110421

@@ -10463,7 +10463,7 @@ Perl_rvpv_dup(pTHX_ SV *dstr, const SV *sstr, CLONE_PARAMS* param)
1046310463
/* duplicate an SV of any type (including AV, HV etc) */
1046410464

1046510465
SV *
10466-
Perl_sv_dup(pTHX_ const SV *sstr, CLONE_PARAMS* param)
10466+
Perl_sv_dup(pTHX_ const SV *const sstr, CLONE_PARAMS *const param)
1046710467
{
1046810468
dVAR;
1046910469
SV *dstr;

0 commit comments

Comments
 (0)