diff options
| author | Robin Barker <RMBarker@cpan.org> | 2000-11-08 11:11:39 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-08 14:27:11 +0000 |
| commit | e7778b439721b18687ae767a95ed8dea21aaee16 (patch) | |
| tree | 76ae504f76d0b1173ac54b08455097686312aae2 /perlio.c | |
| parent | 240263869b859eb47916a5c595018abdc313547e (diff) | |
| download | perl-e7778b439721b18687ae767a95ed8dea21aaee16.tar.gz | |
int/ptr casts in perlio.c
Message-Id: <200011081111.LAA07377@tempest.npl.co.uk>
p4raw-id: //depot/perl@7603
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -340,7 +340,7 @@ PerlIO_define_layer(PerlIO_funcs *tab) { dTHX; HV *stash = gv_stashpv("perlio::Layer", TRUE); - SV *sv = sv_bless(newRV_noinc(newSViv((IV) tab)),stash); + SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(tab))),stash); hv_store(PerlIO_layer_hv,tab->name,strlen(tab->name),sv,0); } @@ -409,7 +409,7 @@ PerlIO_default_layer(I32 n) svp = av_fetch(PerlIO_layer_av,n,0); if (svp && (layer = *svp) && SvROK(layer) && SvIOK((layer = SvRV(layer)))) { - tab = (PerlIO_funcs *) SvIV(layer); + tab = INT2PTR(PerlIO_funcs *, SvIV(layer)); } /* PerlIO_debug("Layer %d is %s\n",n,tab->name); */ return tab; |