diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-22 12:50:52 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-22 12:50:52 +0000 |
| commit | 12a4e90720ff8133c7e505a7de98d56bedbc0a71 (patch) | |
| tree | 251fb845d0a571d2fa99f9339b2ae46ac45e5701 /ext/POSIX | |
| parent | 28d6a1e08734486a2b232e0fe4dcfd240dff38aa (diff) | |
| download | perl-12a4e90720ff8133c7e505a7de98d56bedbc0a71.tar.gz | |
Integrate change #8665 from maintperl to mainline,
IA64-induced POSIX::SigSet masking with IVs instead of NVs.
p4raw-link: @8665 on //depot/maint-5.6/perl: 906def0b44c94e1ecc41e6a82c183f50655aee49
p4raw-id: //depot/perl@8887
p4raw-integrated: from //depot/maint-5.6/perl@8884 'merge in'
ext/POSIX/POSIX.xs (@8664..)
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 87475feed9..861900a5c7 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -3443,9 +3443,8 @@ sigaction(sig, action, oldaction = 0) /* Get back the mask. */ svp = hv_fetch(oldaction, "MASK", 4, TRUE); if (sv_isa(*svp, "POSIX::SigSet")) { - unsigned long tmp; - tmp = (unsigned long)SvNV((SV*)SvRV(*svp)); - sigset = (sigset_t*) tmp; + IV tmp = SvIV((SV*)SvRV(*svp)); + sigset = INT2PTR(sigset_t*, tmp); } else { New(0, sigset, 1, sigset_t); |