Front page | perl.perl5.porters |
Postings from January 2001
[PATCH] POSIX.xs
Thread Next
From:
Brendan O'Dea
Date:
January 31, 2001 21:20
Subject:
[PATCH] POSIX.xs
Message ID:
20010201161922.A19224@compusol.com.au
I was getting test failures on linux-ia64 for lib/posix.t due to the
mask pointer being trashed. Using the same logic as typemap does to
extract the pointer from the object works.
diff -ur perl-5.6.0.orig/ext/POSIX/POSIX.xs perl-5.6.0/ext/POSIX/POSIX.xs
--- perl-5.6.0.orig/ext/POSIX/POSIX.xs Sun Feb 20 03:08:47 2000
+++ perl-5.6.0/ext/POSIX/POSIX.xs Thu Feb 1 15:49:50 2001
@@ -3406,9 +3406,8 @@
/* Set up any desired mask. */
svp = hv_fetch(action, "MASK", 4, FALSE);
if (svp && 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);
act.sa_mask = *sigset;
}
else
Regards,
--
Brendan O'Dea bod@compusol.com.au
Compusol Pty. Limited (NSW, Australia) +61 2 9810 3633
Thread Next
-
[PATCH] POSIX.xs
by Brendan O'Dea