From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 22 Feb 2001 12:50:52 +0000 (+0000)
Subject: Integrate change #8665 from maintperl to mainline,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12a4e90720ff8133c7e505a7de98d56bedbc0a71;p=p5sagit%2Fp5-mst-13.2.git

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..)
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 87475fe..861900a 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);