diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-28 21:12:09 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-28 21:12:09 +0000 |
| commit | 6c1b357c76ac52676d3f7e25a341465e3178a2d4 (patch) | |
| tree | a430e9d304a72b171047e7856af20fe11f05a340 /proto.h | |
| parent | 1d1936752b08f97898c1aed5d2c9f75d1560ff60 (diff) | |
| download | perl-6c1b357c76ac52676d3f7e25a341465e3178a2d4.tar.gz | |
Consting in S_find_uninit_var() and the routines that it calls.
p4raw-id: //depot/perl@34627
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -5552,7 +5552,7 @@ STATIC void S_sv_del_backref(pTHX_ SV *const tsv, SV *const sv) #define PERL_ARGS_ASSERT_SV_DEL_BACKREF \ assert(tsv); assert(sv) -STATIC SV * S_varname(pTHX_ GV *gv, const char gvtype, PADOFFSET targ, SV *keyname, I32 aindex, int subscript_type) +STATIC SV * S_varname(pTHX_ const GV *const gv, const char gvtype, PADOFFSET targ, const SV *const keyname, I32 aindex, int subscript_type) __attribute__warn_unused_result__; # ifdef DEBUGGING @@ -6209,17 +6209,17 @@ PERL_CALLCONV SV* Perl_magic_scalarpack(pTHX_ HV *hv, MAGIC *mg) #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) -STATIC SV * S_find_hash_subscript(pTHX_ HV *hv, SV *val) +STATIC SV * S_find_hash_subscript(pTHX_ const HV *const hv, const SV *const val) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_FIND_HASH_SUBSCRIPT \ assert(val) -STATIC I32 S_find_array_subscript(pTHX_ AV *av, SV *val) +STATIC I32 S_find_array_subscript(pTHX_ const AV *const av, const SV *const val) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_FIND_ARRAY_SUBSCRIPT \ assert(val) -STATIC SV* S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool top); +STATIC SV* S_find_uninit_var(pTHX_ const OP *const obase, const SV *const uninit_sv, bool top); #endif #ifdef PERL_NEED_MY_HTOLE16 |