[packages/perl-Digest-Tiger] fix build
atler
atler at pld-linux.org
Thu Jul 31 19:49:01 CEST 2025
commit 0b57d178d0d810914078a91b632bd2c92a65e94a
Author: Jan Palus <atler at pld-linux.org>
Date: Thu Jul 31 19:47:58 2025 +0200
fix build
not sure if this code ever made sense but make it compile like it did
before
perl-Digest-Tiger.spec | 2 ++
types.patch | 43 +++++++++++++++++++++++++++++++++++++++++++
2 files changed, 45 insertions(+)
---
diff --git a/perl-Digest-Tiger.spec b/perl-Digest-Tiger.spec
index a2beb94..18d76fc 100644
--- a/perl-Digest-Tiger.spec
+++ b/perl-Digest-Tiger.spec
@@ -15,6 +15,7 @@ Group: Development/Languages/Perl
Source0: http://www.cpan.org/modules/by-module/Digest/%{pdir}-%{pnam}-%{version}.tar.gz
# Source0-md5: 30946a6d1b4451a34e142370c2947370
Patch0: %{name}-amd64.patch
+Patch1: types.patch
URL: http://search.cpan.org/dist/Digest-Tiger/
BuildRequires: perl-devel >= 1:5.8.0
BuildRequires: rpm-perlprov >= 4.1-13
@@ -31,6 +32,7 @@ zwracającej 192-bitową wartość skrótu.
%prep
%setup -q -n %{pdir}-%{pnam}-%{version}
%patch -P0 -p1
+%patch -P1 -p1
%build
%{__perl} Makefile.PL \
diff --git a/types.patch b/types.patch
new file mode 100644
index 0000000..6faf04d
--- /dev/null
+++ b/types.patch
@@ -0,0 +1,43 @@
+--- Digest-Tiger-0.03/Tiger.xs.orig 2025-07-31 19:37:50.116129824 +0200
++++ Digest-Tiger-0.03/Tiger.xs 2025-07-31 19:45:35.151146811 +0200
+@@ -72,9 +72,9 @@
+ word64 res[3];
+ PPCODE:
+ data = (unsigned char *)(SvPV(ST(0), len));
+- tiger(data, len, res);
++ tiger((word64*)data, len, res);
+
+- endian_swap(res);
++ endian_swap((word32*)res);
+
+ ST(0) = sv_2mortal(newSVpv( (char *) res, 24));
+ XSRETURN(1);
+@@ -88,7 +88,7 @@
+ char hexhash_string[49];
+ PPCODE:
+ data = (unsigned char *)(SvPV(ST(0), len));
+- tiger(data, len, res);
++ tiger((word64*)data, len, res);
+
+ /* we don't need an endian swap */
+
+--- Digest-Tiger-0.03/tigerhash.c.orig 2001-02-18 23:39:50.000000000 +0100
++++ Digest-Tiger-0.03/tigerhash.c 2025-07-31 19:41:37.856109602 +0200
+@@ -127,7 +127,7 @@
+ }
+
+ /* The compress function is a function. Requires smaller cache? */
+-tiger_compress(word64 *str, word64 state[3])
++void tiger_compress(word64 *str, word64 state[3])
+ {
+ tiger_compress_macro(((word64*)str), ((word64*)state));
+ }
+@@ -140,7 +140,7 @@
+ tiger_compress_macro(((word64*)str), ((word64*)state))
+ #endif
+
+-tiger(word64 *str, word64 length, word64 res[3])
++void tiger(word64 *str, word64 length, word64 res[3])
+ {
+ register word64 i, j;
+ unsigned char temp[64];
================================================================
---- gitweb:
http://git.pld-linux.org/gitweb.cgi/packages/perl-Digest-Tiger.git/commitdiff/0b57d178d0d810914078a91b632bd2c92a65e94a
More information about the pld-cvs-commit
mailing list