diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-08-25 00:08:21 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-25 06:40:34 -0700 |
commit | c70927a6ffc3cac8e5ec375a3f7e13b4f7bd1ee4 (patch) | |
tree | 477e6abc58c0898bee5727b3feb27c9af685f49b /av.c | |
parent | 9a543cee73966ca61d6dc71cc7322f271f5b6b8b (diff) | |
download | perl-c70927a6ffc3cac8e5ec375a3f7e13b4f7bd1ee4.tar.gz |
Use SSize_t for arrays
Make the array interface 64-bit safe by using SSize_t instead of I32
for array indices.
This is based on a patch by Chip Salzenberg.
This completes what the previous commit began when it changed
av_extend.
Diffstat (limited to 'av.c')
-rw-r--r-- | av.c | 36 |
1 files changed, 18 insertions, 18 deletions
@@ -27,7 +27,7 @@ void Perl_av_reify(pTHX_ AV *av) { dVAR; - I32 key; + SSize_t key; PERL_ARGS_ASSERT_AV_REIFY; assert(SvTYPE(av) == SVt_PVAV); @@ -190,7 +190,7 @@ The rough perl equivalent is C<$myarray[$idx]>. */ static bool -S_adjust_index(pTHX_ AV *av, const MAGIC *mg, I32 *keyp) +S_adjust_index(pTHX_ AV *av, const MAGIC *mg, SSize_t *keyp) { bool adjust_index = 1; if (mg) { @@ -215,7 +215,7 @@ S_adjust_index(pTHX_ AV *av, const MAGIC *mg, I32 *keyp) } SV** -Perl_av_fetch(pTHX_ AV *av, I32 key, I32 lval) +Perl_av_fetch(pTHX_ AV *av, SSize_t key, I32 lval) { dVAR; @@ -286,7 +286,7 @@ more information on how to use this function on tied arrays. */ SV** -Perl_av_store(pTHX_ AV *av, I32 key, SV *val) +Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val) { dVAR; SV** ary; @@ -372,7 +372,7 @@ Perl equivalent: C<my @new_array = ($scalar1, $scalar2, $scalar3...);> */ AV * -Perl_av_make(pTHX_ I32 size, SV **strp) +Perl_av_make(pTHX_ SSize_t size, SV **strp) { AV * const av = MUTABLE_AV(newSV_type(SVt_PVAV)); /* sv_upgrade does AvREAL_only() */ @@ -381,7 +381,7 @@ Perl_av_make(pTHX_ I32 size, SV **strp) if (size) { /* "defined" was returning undef for size==0 anyway. */ SV** ary; - I32 i; + SSize_t i; Newx(ary,size,SV*); AvALLOC(av) = ary; AvARRAY(av) = ary; @@ -425,7 +425,7 @@ void Perl_av_clear(pTHX_ AV *av) { dVAR; - I32 extra; + SSize_t extra; bool real; PERL_ARGS_ASSERT_AV_CLEAR; @@ -454,7 +454,7 @@ Perl_av_clear(pTHX_ AV *av) if ((real = !!AvREAL(av))) { SV** const ary = AvARRAY(av); - I32 index = AvFILLp(av) + 1; + SSize_t index = AvFILLp(av) + 1; ENTER; SAVEFREESV(SvREFCNT_inc_simple_NN(av)); while (index) { @@ -497,7 +497,7 @@ Perl_av_undef(pTHX_ AV *av) av_fill(av, -1); if ((real = !!AvREAL(av))) { - I32 key = AvFILLp(av) + 1; + SSize_t key = AvFILLp(av) + 1; ENTER; SAVEFREESV(SvREFCNT_inc_simple_NN(av)); while (key) @@ -638,10 +638,10 @@ Perl equivalent: C<unshift @myarray, ( (undef) x $n );> */ void -Perl_av_unshift(pTHX_ AV *av, I32 num) +Perl_av_unshift(pTHX_ AV *av, SSize_t num) { dVAR; - I32 i; + SSize_t i; MAGIC* mg; PERL_ARGS_ASSERT_AV_UNSHIFT; @@ -672,9 +672,9 @@ Perl_av_unshift(pTHX_ AV *av, I32 num) } if (num) { SV **ary; - const I32 i = AvFILLp(av); + const SSize_t i = AvFILLp(av); /* Create extra elements */ - const I32 slide = i > 0 ? i : 0; + const SSize_t slide = i > 0 ? i : 0; num += slide; av_extend(av, i + num); AvFILLp(av) += num; @@ -752,7 +752,7 @@ meaning from what the similarly named L</sv_len> returns. =cut */ -I32 +SSize_t Perl_av_len(pTHX_ AV *av) { PERL_ARGS_ASSERT_AV_LEN; @@ -775,7 +775,7 @@ the same as C<av_clear(av)>. =cut */ void -Perl_av_fill(pTHX_ AV *av, I32 fill) +Perl_av_fill(pTHX_ AV *av, SSize_t fill) { dVAR; MAGIC *mg; @@ -793,7 +793,7 @@ Perl_av_fill(pTHX_ AV *av, I32 fill) return; } if (fill <= AvMAX(av)) { - I32 key = AvFILLp(av); + SSize_t key = AvFILLp(av); SV** const ary = AvARRAY(av); if (AvREAL(av)) { @@ -827,7 +827,7 @@ C<G_DISCARD> version. =cut */ SV * -Perl_av_delete(pTHX_ AV *av, I32 key, I32 flags) +Perl_av_delete(pTHX_ AV *av, SSize_t key, I32 flags) { dVAR; SV *sv; @@ -905,7 +905,7 @@ Perl equivalent: C<exists($myarray[$key])>. =cut */ bool -Perl_av_exists(pTHX_ AV *av, I32 key) +Perl_av_exists(pTHX_ AV *av, SSize_t key) { dVAR; PERL_ARGS_ASSERT_AV_EXISTS; |