diff options
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -40,7 +40,7 @@ struct magic_state { /* MGS is typedef'ed to struct magic_state in perl.h */ STATIC void -S_save_magic(pTHX_ IV mgs_ix, SV *sv) +S_save_magic(pTHX_ I32 mgs_ix, SV *sv) { MGS* mgs; assert(SvMAGICAL(sv)); @@ -93,7 +93,7 @@ Do magic after a value is retrieved from the SV. See C<sv_magic>. int Perl_mg_get(pTHX_ SV *sv) { - IV mgs_ix; + I32 mgs_ix; MAGIC* mg; MAGIC** mgp; int mgp_valid = 0; @@ -135,7 +135,7 @@ Do magic after a value is assigned to the SV. See C<sv_magic>. int Perl_mg_set(pTHX_ SV *sv) { - IV mgs_ix; + I32 mgs_ix; MAGIC* mg; MAGIC* nextmg; @@ -175,7 +175,7 @@ Perl_mg_length(pTHX_ SV *sv) for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) { MGVTBL* vtbl = mg->mg_virtual; if (vtbl && vtbl->svt_len) { - IV mgs_ix; + I32 mgs_ix; mgs_ix = SSNEW(sizeof(MGS)); save_magic(mgs_ix, sv); @@ -190,7 +190,7 @@ Perl_mg_length(pTHX_ SV *sv) return len; } -IV +I32 Perl_mg_size(pTHX_ SV *sv) { MAGIC* mg; @@ -199,7 +199,7 @@ Perl_mg_size(pTHX_ SV *sv) for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) { MGVTBL* vtbl = mg->mg_virtual; if (vtbl && vtbl->svt_len) { - IV mgs_ix; + I32 mgs_ix; mgs_ix = SSNEW(sizeof(MGS)); save_magic(mgs_ix, sv); @@ -234,7 +234,7 @@ Clear something magical that the SV represents. See C<sv_magic>. int Perl_mg_clear(pTHX_ SV *sv) { - IV mgs_ix; + I32 mgs_ix; MAGIC* mg; mgs_ix = SSNEW(sizeof(MGS)); |