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 /embed.fnc | |
| 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 'embed.fnc')
| -rw-r--r-- | embed.fnc | 14 |
1 files changed, 9 insertions, 5 deletions
@@ -1567,8 +1567,9 @@ s |void |sv_unglob |NN SV *const sv s |void |not_a_number |NN SV *const sv s |I32 |visit |NN SVFUNC_t f|const U32 flags|const U32 mask s |void |sv_del_backref |NN SV *const tsv|NN SV *const sv -sR |SV * |varname |NULLOK GV *gv|const char gvtype|PADOFFSET targ \ - |NULLOK SV *keyname|I32 aindex|int subscript_type +sR |SV * |varname |NULLOK const GV *const gv|const char gvtype \ + |PADOFFSET targ|NULLOK const SV *const keyname \ + |I32 aindex|int subscript_type # ifdef DEBUGGING s |void |del_sv |NN SV *p # endif @@ -1803,9 +1804,12 @@ Apo |void |hv_placeholders_set |NN HV *hv|I32 ph p |SV* |magic_scalarpack|NN HV *hv|NN MAGIC *mg #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) -s |SV * |find_hash_subscript|NULLOK HV *hv|NN SV *val -s |I32 |find_array_subscript|NULLOK AV *av|NN SV *val -sMd |SV* |find_uninit_var|NULLOK OP* obase|NULLOK SV* uninit_sv|bool top +s |SV * |find_hash_subscript|NULLOK const HV *const hv \ + |NN const SV *const val +s |I32 |find_array_subscript|NULLOK const AV *const av \ + |NN const SV *const val +sMd |SV* |find_uninit_var|NULLOK const OP *const obase \ + |NULLOK const SV *const uninit_sv|bool top #endif #ifdef PERL_NEED_MY_HTOLE16 |