This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libbio-scf-perl.
commit 32fefbc45861aaac1f26e7dc2b6b67118e09abb8
Author: gregor herrmann <gre...@debian.org>
Date: Sun Dec 11 17:32:25 2016 +0100
Add patch 0001-Fix-overflowing-casts-from-pointer-to-integer.patch.
Thanks: Niko Tyni for coming up with the patch.
Closes: #846731, #775434
---
...overflowing-casts-from-pointer-to-integer.patch | 120 +++++++++++++++++++++
debian/patches/series | 1 +
2 files changed, 121 insertions(+)
diff --git
a/debian/patches/0001-Fix-overflowing-casts-from-pointer-to-integer.patch
b/debian/patches/0001-Fix-overflowing-casts-from-pointer-to-integer.patch
new file mode 100644
index 0000000..10ff5a5
--- /dev/null
+++ b/debian/patches/0001-Fix-overflowing-casts-from-pointer-to-integer.patch
@@ -0,0 +1,120 @@
+From 5e57fc339478e5204d0465b63ff5a5e927a565ad Mon Sep 17 00:00:00 2001
+From: Niko Tyni <nt...@debian.org>
+Date: Wed, 7 Dec 2016 00:02:25 +0200
+Subject: [PATCH] Fix overflowing casts from pointer to integer
+
+This fixes test failures on 64-bit platforms using memory addresses over
+2**32, like those where Perl is built as PIE (position independent
+executable).
+
+Bug-Debian: https://bugs.debian.org/846731
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=119205
+Bug: https://rt.cpan.org/Ticket/Display.html?id=119205
+
+---
+ SCF.xs | 22 +++++++++++-----------
+ 1 file changed, 11 insertions(+), 11 deletions(-)
+
+diff --git a/SCF.xs b/SCF.xs
+index a55879b..10a88bd 100644
+--- a/SCF.xs
++++ b/SCF.xs
+@@ -54,7 +54,7 @@ char *file_name
+ /* Reading SCF file, into internal structure */
+ if ( (scf_data = read_scf(file_name)) == NULL )
+ croak("get_scf_pointer(...) : failed on read_scf(%s)\n",
file_name);
+- ret_val = newSViv((int)scf_data);
++ ret_val = newSViv(PTR2IV(scf_data));
+ RETVAL = ret_val;
+ OUTPUT:
+ RETVAL
+@@ -77,20 +77,20 @@ FILE *file_handle
+ croak("get_scf_fpointer(...) : failed on mfreopen(...)\n");
+ if ( (scf_data = mfread_scf(mf)) == NULL )
+ croak("get_scf_fpointer(...) : failed on fread_scf(...)\n");
+- ret_val = newSViv((int)scf_data);
++ ret_val = newSViv(PTR2IV(scf_data));
+ RETVAL = ret_val;
+ OUTPUT:
+ RETVAL
+
+ void
+ scf_free(scf_pointer)
+-int scf_pointer
++long scf_pointer
+ CODE:
+ scf_deallocate((Scf *)scf_pointer);
+
+ SV *
+ get_comments(scf_pointer)
+-int scf_pointer
++long scf_pointer
+ CODE:
+ Scf *scf_data = (Scf *)scf_pointer;
+ SV *ret_val;
+@@ -102,7 +102,7 @@ int scf_pointer
+
+ void
+ set_comments(scf_pointer, comments)
+-int scf_pointer
++long scf_pointer
+ char *comments
+ CODE:
+ Scf *scf_data = (Scf *)scf_pointer;
+@@ -115,7 +115,7 @@ char *comments
+
+ SV *
+ scf_write(scf_pointer, file_name)
+-int scf_pointer
++long scf_pointer
+ char *file_name
+ CODE:
+ Scf *scf_data = (Scf *)scf_pointer;
+@@ -129,7 +129,7 @@ char *file_name
+
+ SV *
+ scf_fwrite(scf_pointer, file_handle)
+-int scf_pointer
++long scf_pointer
+ FILE *file_handle
+ CODE:
+ mFILE *mf;
+@@ -152,7 +152,7 @@ FILE *file_handle
+
+ SV *
+ get_from_header(scf_pointer, what)
+-int scf_pointer
++long scf_pointer
+ int what
+ CODE:
+ /* what = { 0 samples, 1 bases, 2 version, 3 sample size, 4 code_set }
*/
+@@ -176,7 +176,7 @@ int what
+
+ SV *
+ get_at(scf_pointer, index, what)
+-int scf_pointer
++long scf_pointer
+ int index
+ int what
+ CODE:
+@@ -234,7 +234,7 @@ int what
+
+ void
+ set_base_at(scf_pointer, index, what, value)
+-int scf_pointer
++long scf_pointer
+ int index
+ int what
+ char value
+@@ -247,7 +247,7 @@ char value
+
+ void
+ set_at(scf_pointer, index, what, value)
+-int scf_pointer
++long scf_pointer
+ int index
+ int what
+ unsigned int value
+--
+2.10.2
+
diff --git a/debian/patches/series b/debian/patches/series
index 5299247..e04d34a 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
spelling.patch
+0001-Fix-overflowing-casts-from-pointer-to-integer.patch
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libbio-scf-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
