diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-10-25 19:42:50 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-10-26 03:48:36 +0000 |
| commit | 36f8622d5971e275a7102b12d1acf96b8bd5bc28 (patch) | |
| tree | 2351a650ed33e2fad3b53d3488dbbf952ada8c15 /sharedsv.c | |
| parent | 39c19e8a5eaa38b8223e4575bddb6696efd1e9b2 (diff) | |
| download | perl-36f8622d5971e275a7102b12d1acf96b8bd5bc28.tar.gz | |
Fix sharedsv.c compile-time warnings.
Message-Id: <NAEKLNAAHLMBPMPNBMLEKEJCEAAA.rs@crystalflame.net>
p4raw-id: //depot/perl@12667
Diffstat (limited to 'sharedsv.c')
| -rw-r--r-- | sharedsv.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sharedsv.c b/sharedsv.c index ef5ebf0b6b..755481e2a3 100644 --- a/sharedsv.c +++ b/sharedsv.c @@ -95,7 +95,7 @@ Perl_sharedsv_find(pTHX_ SV* sv) if(mg) { if(strcmp(mg->mg_ptr,"threads::shared")) break; - ssv = (shared_sv*) SvIV(mg->mg_obj); + ssv = INT2PTR(shared_sv *, SvIV(mg->mg_obj)); break; } @@ -103,7 +103,7 @@ Perl_sharedsv_find(pTHX_ SV* sv) if(mg) { SV* obj = SvTIED_obj(sv,mg); if(sv_derived_from(obj, "threads::shared")) - ssv = (shared_sv*) SvIV(SvRV(obj)); + ssv = INT2PTR(shared_sv *, SvIV(SvRV(obj))); break; } } |