diff options
author | Peter Valchev <pvalchev@cvs.openbsd.org> | 2002-09-17 01:29:12 +0000 |
---|---|---|
committer | Peter Valchev <pvalchev@cvs.openbsd.org> | 2002-09-17 01:29:12 +0000 |
commit | e5b77d306c511eea07d1bcc7c2ac5b0ce011f06a (patch) | |
tree | a9f71d717ca9077c7435171985e20161775ca37c /gnu/usr.bin | |
parent | b17b8d80bffdbb519abf17aeb374fd167658fe79 (diff) |
fix 64bit warnings; ok millert fgsch
Diffstat (limited to 'gnu/usr.bin')
-rw-r--r-- | gnu/usr.bin/perl/mg.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gnu/usr.bin/perl/mg.c b/gnu/usr.bin/perl/mg.c index e1b727a0af3..ca0ce427b17 100644 --- a/gnu/usr.bin/perl/mg.c +++ b/gnu/usr.bin/perl/mg.c @@ -42,7 +42,7 @@ S_save_magic(pTHX_ I32 mgs_ix, SV *sv) MGS* mgs; assert(SvMAGICAL(sv)); - SAVEDESTRUCTOR_X(restore_magic, (void*)mgs_ix); + SAVEDESTRUCTOR_X(restore_magic, (void*)(intptr_t)mgs_ix); mgs = SSPTR(mgs_ix, MGS*); mgs->mgs_sv = sv; @@ -117,7 +117,7 @@ Perl_mg_get(pTHX_ SV *sv) mgp = &SvMAGIC(sv); /* Re-establish pointer after sv_upgrade */ } - restore_magic(aTHXo_ (void*)mgs_ix); + restore_magic(aTHXo_ (void*)(intptr_t)mgs_ix); return 0; } @@ -150,7 +150,7 @@ Perl_mg_set(pTHX_ SV *sv) CALL_FPTR(vtbl->svt_set)(aTHX_ sv, mg); } - restore_magic(aTHXo_ (void*)mgs_ix); + restore_magic(aTHXo_ (void*)(intptr_t)mgs_ix); return 0; } @@ -178,7 +178,7 @@ Perl_mg_length(pTHX_ SV *sv) save_magic(mgs_ix, sv); /* omit MGf_GSKIP -- not changed here */ len = CALL_FPTR(vtbl->svt_len)(aTHX_ sv, mg); - restore_magic(aTHXo_ (void*)mgs_ix); + restore_magic(aTHXo_ (void*)(intptr_t)mgs_ix); return len; } } @@ -202,7 +202,7 @@ Perl_mg_size(pTHX_ SV *sv) save_magic(mgs_ix, sv); /* omit MGf_GSKIP -- not changed here */ len = CALL_FPTR(vtbl->svt_len)(aTHX_ sv, mg); - restore_magic(aTHXo_ (void*)mgs_ix); + restore_magic(aTHXo_ (void*)(intptr_t)mgs_ix); return len; } } @@ -245,7 +245,7 @@ Perl_mg_clear(pTHX_ SV *sv) CALL_FPTR(vtbl->svt_clear)(aTHX_ sv, mg); } - restore_magic(aTHXo_ (void*)mgs_ix); + restore_magic(aTHXo_ (void*)(intptr_t)mgs_ix); return 0; } |