summaryrefslogtreecommitdiff
path: root/av.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2012-11-24 21:06:36 -0700
committerKarl Williamson <public@khwilliamson.com>2012-11-24 21:45:22 -0700
commit5aaab254c02795622bdf42e348ad8473aa1fc643 (patch)
tree341c84b4a4867c96c3bcd4a63d34c244356054ce /av.c
parenta8bd0d47f960000fee81e97d55dd5e8bac15e034 (diff)
downloadperl-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.c20
1 files changed, 10 insertions, 10 deletions
diff --git a/av.c b/av.c
index cfa5399a04..b251822dde 100644
--- a/av.c
+++ b/av.c
@@ -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;