pool/guile
SHA256
2
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- remove obsolete source files and patches

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/guile?expand=0&rev=102
This commit is contained in:
Jonathan Brielmaier 2018-11-28 11:13:15 +00:00 committed by Git OBS Bridge
parent ccb5d0e3b3
commit 4500779e9a
9 changed files with 5 additions and 202 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
guile-1.6.10-mktemp.patch
View File

@ -1,14 +0,0 @@
Index: libguile/guile-snarf.in
===================================================================
--- libguile/guile-snarf.in.orig 2016-07-21 14:25:17.474695839 +0200
+++ libguile/guile-snarf.in 2016-07-21 14:25:22.894645638 +0200
@@ -87,8 +87,7 @@
cpp_ok_p=false
if [ x"$TMPDIR" = x ]; then TMPDIR="/tmp" ; else : ; fi
-tempdir="$TMPDIR/guile-snarf.$$"
-(umask 077 && mkdir $tempdir) || exit 1
+tempdir=$(mktemp -d -q "$TMPDIR/snarf.XXXXXX") || { echo >&2 "guile-snarf: can not create temporary file"; exit 1; }
temp="$tempdir/tmp"
if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi

15
guile-2.0.14-gc_pkgconfig_private.patch
View File

@ -1,15 +0,0 @@
diff -up guile-2.0.14/meta/guile-2.0.pc.in.pkgconfig_private guile-2.0.14/meta/guile-2.0.pc.in
--- guile-2.0.14/meta/guile-2.0.pc.in.pkgconfig_private 2016-12-14 18:03:33.000000000 -0600
+++ guile-2.0.14/meta/guile-2.0.pc.in 2018-02-20 11:53:56.344379283 -0600
@@ -21,9 +21,9 @@ guile=${bindir}/@guile@
Name: GNU Guile
Description: GNU's Ubiquitous Intelligent Language for Extension
Version: @GUILE_VERSION@
-Libs: -L${libdir} -lguile-@GUILE_EFFECTIVE_VERSION@ @BDW_GC_LIBS@
+Libs: -L${libdir} -lguile-@GUILE_EFFECTIVE_VERSION@
Libs.private: @LIB_CLOCK_GETTIME@ @LIBGMP@ @LIBLTDL@ @LIBFFI_LIBS@ \
@LIBUNISTRING@ @GUILE_LIBS@ @LIBICONV@ @LIBINTL@ @LIBSOCKET@ \
@SERVENT_LIB@ @HOSTENT_LIB@ @GETADDRINFO_LIB@ @INET_NTOP_LIB@ \
- @INET_PTON_LIB@
+ @INET_PTON_LIB@ @BDW_GC_LIBS@
Cflags: -I${pkgincludedir}/@GUILE_EFFECTIVE_VERSION@ @GUILE_CFLAGS@ @BDW_GC_CFLAGS@

3
guile-2.0.14.tar.xz
View File

@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:e8442566256e1be14e51fc18839cd799b966bc5b16c6a1d7a7c35155a8619d82
size 4615196

17
guile-2.0.14.tar.xz.sig
View File

@ -1,17 +0,0 @@
-----BEGIN PGP SIGNATURE-----
iQJBBAABCAArFiEEPORkVYqE/cadtAz7CQsRmT2a67UFAliiLd4NHGx1ZG9AZ251
Lm9yZwAKCRAJCxGZPZrrtfFGD/9E6mQjedgPDHcmjyYtiapirAVDK3nnMht/rjqn
5JPt70MSX3XbYm1dW1UHXulCtUjNw4wBEtbTcIIuPe/ui7tbVrzk/sVuveCCH5/w
qj3ynBT6o+2heNfnfPKcYBZG2XIIgnkvjf2mibztyt2SPiXJ+0LKQJWMcd26NyiB
zdye0jD5L26yrEktfrpZIJVWnrL4vmIw8ay98VhoSjoYckVghoZob3RRdb+gfvy0
d/0OxEe9i9I4viqsXT5zIU7dm0SLogS187N/OAYDqsVXMYc40iRG45fvzhi4IsUy
YbjS1xjD36mHQL86abtCV6l7qykWBV5/Xgqa5NS05Vp5HhMLdc2D9Cc08N+g1nAH
XovUSSDQtlld9wo2xxVetkp/3/3uElw9b9MAVvjcT3Zrgh4xNcJTJMHmuR8598Xb
hoUvdNyKfCILabFhuIhqzcCfhjjyy3AOvKE/9/Uy1eklrWqhsQCNHlBhbvfdKXjB
JSscxuMTVRILhY9ikQyntUlt0lsLNj2K/V3PF+BdqjMSSgBA8rvkMLYouwEJsr4J
JTUN+Dg/rCMTr3++ERB9dlxBARG9726RsPJM2E0IUQb54LvLXTkaGd+LHzJyDzY3
qVp1I3wvm7FeECy1s3ZIm9gjjMeH1BDETZb6iuRxxYAfiu3Nmqp/t53c5x1ID66C
4aq7Lw==
=vgBV
-----END PGP SIGNATURE-----

35
guile-64bit.patch
View File

@ -1,35 +0,0 @@
Index: libguile/hash.c
===================================================================
--- libguile/hash.c.orig 2016-07-21 14:25:17.522695394 +0200
+++ libguile/hash.c 2016-07-21 14:25:22.778646713 +0200
@@ -296,7 +296,7 @@
unsigned long
scm_ihashq (SCM obj, unsigned long n)
{
- return (SCM_UNPACK (obj) >> 1) % n;
+ return ((unsigned long) SCM_UNPACK (obj) >> 1) % n;
}
@@ -332,7 +332,7 @@
if (SCM_NUMP(obj))
return (unsigned long) scm_hasher(obj, n, 10);
else
- return SCM_UNPACK (obj) % n;
+ return (unsigned long) SCM_UNPACK (obj) % n;
}
Index: libguile/struct.c
===================================================================
--- libguile/struct.c.orig 2016-07-21 14:25:17.522695394 +0200
+++ libguile/struct.c 2016-07-21 14:25:22.778646713 +0200
@@ -918,7 +918,7 @@
{
/* The length of the hash table should be a relative prime it's not
necessary to shift down the address. */
- return SCM_UNPACK (obj) % n;
+ return (unsigned long) SCM_UNPACK (obj) % n;
}
/* Return the hash of struct OBJ, modulo N. Traverse OBJ's fields to

81
guile-disable-int-tests.patch
View File

@ -1,81 +0,0 @@
Index: guile-2.0.14/test-suite/tests/i18n.test
===================================================================
--- guile-2.0.14.orig/test-suite/tests/i18n.test
+++ guile-2.0.14/test-suite/tests/i18n.test
@@ -522,37 +522,7 @@
(pass-if-equal "positive inexact zero, 1 digit"
"0.0"
- (number->locale-string .0 1)))
-
- (with-test-prefix "French"
-
- (pass-if-equal "integer"
- "123 456"
- (under-french-locale-or-unresolved
- (lambda ()
- (let ((fr (make-locale LC_ALL %french-locale-name)))
- (number->locale-string 123456 #t fr)))))
-
- (pass-if-equal "negative integer"
- "-1 234 567"
- (under-french-locale-or-unresolved
- (lambda ()
- (let ((fr (make-locale LC_ALL %french-locale-name)))
- (number->locale-string -1234567 #t fr)))))
-
- (pass-if-equal "fraction"
- "1 234,567"
- (under-french-locale-or-unresolved
- (lambda ()
- (let ((fr (make-locale LC_ALL %french-locale-name)))
- (number->locale-string 1234.567 #t fr)))))
-
- (pass-if-equal "fraction, 1 digit"
- "1 234,6"
- (under-french-locale-or-unresolved
- (lambda ()
- (let ((fr (make-locale LC_ALL %french-locale-name)))
- (number->locale-string 1234.567 1 fr)))))))
+ (number->locale-string .0 1))))
(with-test-prefix "format ~h"
@@ -560,16 +530,6 @@
;; `locale-digit-grouping' defaults to '(); skip the tests in that
;; case.
- (with-test-prefix "French"
-
- (pass-if-equal "12345.678"
- "12 345,678"
- (under-french-locale-or-unresolved
- (lambda ()
- (if (null? (locale-digit-grouping %french-locale))
- (throw 'unresolved)
- (format #f "~:h" 12345.678 %french-locale))))))
-
(with-test-prefix "English"
(pass-if-equal "12345.678"
@@ -585,20 +545,6 @@
(with-test-prefix "French"
- (pass-if-equal "integer"
- "123 456,00 +EUR"
- (under-french-locale-or-unresolved
- (lambda ()
- (let ((fr (make-locale LC_ALL %french-locale-name)))
- (monetary-amount->locale-string 123456 #f fr)))))
-
- (pass-if-equal "fraction"
- "1 234,57 EUR "
- (under-french-locale-or-unresolved
- (lambda ()
- (let ((fr (make-locale LC_ALL %french-locale-name)))
- (monetary-amount->locale-string 1234.567 #t fr)))))
-
(pass-if-equal "positive inexact zero"
"0,00 +EUR"
(under-french-locale-or-unresolved

20
guile-net-db-test.patch
View File

@ -1,20 +0,0 @@
Index: guile-2.0.12/test-suite/tests/net-db.test
===================================================================
--- guile-2.0.12.orig/test-suite/tests/net-db.test 2016-07-21 14:25:17.366696839 +0200
+++ guile-2.0.12/test-suite/tests/net-db.test 2016-07-21 14:25:23.086643860 +0200
@@ -79,6 +79,7 @@
(and (defined? 'EAI_NODATA) ; GNU extension
(= errcode EAI_NODATA))
(= errcode EAI_AGAIN)
+ (= errcode EAI_SYSTEM)
(begin
(format #t "unexpected error code: ~a ~s~%"
errcode (gai-strerror errcode))
@@ -105,6 +106,7 @@
;; `EAI_NONAME'.)
(and (or (= errcode EAI_SERVICE)
(= errcode EAI_NONAME)
+ (= errcode EAI_SYSTEM)
(and (defined? 'EAI_NODATA)
(= errcode EAI_NODATA)))
(string? (gai-strerror errcode))))))))

17
guile-threads-test.patch
View File

@ -1,17 +0,0 @@
Index: guile-2.0.12/test-suite/tests/threads.test
===================================================================
--- guile-2.0.12.orig/test-suite/tests/threads.test 2016-07-21 14:25:17.426696284 +0200
+++ guile-2.0.12/test-suite/tests/threads.test 2016-07-21 14:25:22.990644750 +0200
@@ -423,8 +423,10 @@
(gc) (gc)
(let ((m (g)))
- (and (mutex? m)
- (eq? (mutex-owner m) (current-thread)))))))
+ (or
+ (and (mutex? m)
+ (eq? (mutex-owner m) (current-thread)))
+ (throw 'unresolved))))))
;;
;; mutex lock levels

5
guile.changes
View File

@ -1,3 +1,8 @@
-------------------------------------------------------------------
Wed Nov 28 11:11:39 UTC 2018 - jbrielmaier@suse.de
- remove obsolete source files and patches
-------------------------------------------------------------------
Tue Nov 27 16:01:27 UTC 2018 - jbrielmaier@suse.de