diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-11-24 21:06:36 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-11-24 21:45:22 -0700 |
commit | 5aaab254c02795622bdf42e348ad8473aa1fc643 (patch) | |
tree | 341c84b4a4867c96c3bcd4a63d34c244356054ce /av.c | |
parent | a8bd0d47f960000fee81e97d55dd5e8bac15e034 (diff) | |
download | perl-5aaab254c02795622bdf42e348ad8473aa1fc643.tar.gz |
Remove "register" declarations
This finishes the removal of register declarations started by
eb578fdb5569b91c28466a4d1939e381ff6ceaf4. It neglected the ones in
function parameter declarations, and didn't include things in dist, ext,
and lib, which this does include
Diffstat (limited to 'av.c')
-rw-r--r-- | av.c | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -237,7 +237,7 @@ S_adjust_index(pTHX_ AV *av, const MAGIC *mg, I32 *keyp) } SV** -Perl_av_fetch(pTHX_ register AV *av, I32 key, I32 lval) +Perl_av_fetch(pTHX_ AV *av, I32 key, I32 lval) { dVAR; @@ -308,7 +308,7 @@ more information on how to use this function on tied arrays. */ SV** -Perl_av_store(pTHX_ register AV *av, I32 key, SV *val) +Perl_av_store(pTHX_ AV *av, I32 key, SV *val) { dVAR; SV** ary; @@ -397,7 +397,7 @@ Perl equivalent: C<my @new_array = ($scalar1, $scalar2, $scalar3...);> */ AV * -Perl_av_make(pTHX_ register I32 size, register SV **strp) +Perl_av_make(pTHX_ I32 size, SV **strp) { AV * const av = MUTABLE_AV(newSV_type(SVt_PVAV)); /* sv_upgrade does AvREAL_only() */ @@ -447,7 +447,7 @@ Perl equivalent: C<@myarray = ();>. */ void -Perl_av_clear(pTHX_ register AV *av) +Perl_av_clear(pTHX_ AV *av) { dVAR; I32 extra; @@ -510,7 +510,7 @@ be freed. */ void -Perl_av_undef(pTHX_ register AV *av) +Perl_av_undef(pTHX_ AV *av) { bool real; @@ -570,7 +570,7 @@ Perl equivalent: C<push @myarray, $elem;>. */ void -Perl_av_push(pTHX_ register AV *av, SV *val) +Perl_av_push(pTHX_ AV *av, SV *val) { dVAR; MAGIC *mg; @@ -601,7 +601,7 @@ Perl equivalent: C<pop(@myarray);> */ SV * -Perl_av_pop(pTHX_ register AV *av) +Perl_av_pop(pTHX_ AV *av) { dVAR; SV *retval; @@ -662,7 +662,7 @@ Perl equivalent: C<unshift @myarray, ( (undef) x $n );> */ void -Perl_av_unshift(pTHX_ register AV *av, register I32 num) +Perl_av_unshift(pTHX_ AV *av, I32 num) { dVAR; I32 i; @@ -727,7 +727,7 @@ Perl equivalent: C<shift(@myarray);> */ SV * -Perl_av_shift(pTHX_ register AV *av) +Perl_av_shift(pTHX_ AV *av) { dVAR; SV *retval; @@ -792,7 +792,7 @@ the same as C<av_clear(av)>. =cut */ void -Perl_av_fill(pTHX_ register AV *av, I32 fill) +Perl_av_fill(pTHX_ AV *av, I32 fill) { dVAR; MAGIC *mg; |