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