diff options
Diffstat (limited to 'lang/guile/patches/patch-ak')
-rw-r--r-- | lang/guile/patches/patch-ak | 142 |
1 files changed, 132 insertions, 10 deletions
diff --git a/lang/guile/patches/patch-ak b/lang/guile/patches/patch-ak index 571518aba02..c67a3c259cd 100644 --- a/lang/guile/patches/patch-ak +++ b/lang/guile/patches/patch-ak @@ -1,12 +1,134 @@ -$NetBSD: patch-ak,v 1.4 2006/07/18 18:02:09 joerg Exp $ +$NetBSD: patch-ak,v 1.5 2007/06/12 03:02:35 dmcmahill Exp $ ---- configure.orig 2006-07-18 17:48:48.000000000 +0000 -+++ configure -@@ -30498,6 +30498,7 @@ _ACEOF - cat confdefs.h >>conftest.$ac_ext - cat >>conftest.$ac_ext <<_ACEOF - /* end confdefs.h. */ -+#include <sys/types.h> - #include <sys/socket.h> +Avoid lots of errors like this on NetBSD/alpha: +test-conversion.c:32: warning: long long int format, scm_t_intmax arg (arg 4) +which in turn causes the build to fail since guile uses -Wall -Werror. + +--- test-suite/standalone/test-conversion.c.orig 2006-07-29 18:00:18.000000000 +0000 ++++ test-suite/standalone/test-conversion.c +@@ -29,7 +29,7 @@ test_1 (const char *str, scm_t_intmax mi + if (r != result) + { + fprintf (stderr, "fail: scm_is_signed_integer (%s, %Ld, %Ld) == %d\n", +- str, min, max, result); ++ str, (long long) min, (long long) max, result); + exit (1); + } + } +@@ -114,7 +114,7 @@ test_2 (const char *str, scm_t_uintmax m + if (r != result) + { + fprintf (stderr, "fail: scm_is_unsigned_integer (%s, %Lu, %Lu) == %d\n", +- str, min, max, result); ++ str, (unsigned long long) min, (unsigned long long) max, result); + exit (1); + } + } +@@ -234,7 +234,7 @@ test_3 (const char *str, scm_t_intmax mi + { + fprintf (stderr, + "fail: scm_to_signed_int (%s, %Ld, %Ld) -> out of range\n", +- str, min, max); ++ str, (long long) min, (long long) max); + exit (1); + } + } +@@ -246,7 +246,7 @@ test_3 (const char *str, scm_t_intmax mi + { + fprintf (stderr, + "fail: scm_to_signed_int (%s, %Ld, %Ld) -> wrong type\n", +- str, min, max); ++ str, (long long) min, (long long) max); + exit (1); + } + } +@@ -259,7 +259,7 @@ test_3 (const char *str, scm_t_intmax mi + { + fprintf (stderr, + "fail: scm_to_signed_int (%s, %Ld, %Ld) = %Ld\n", +- str, min, max, result); ++ str, (long long) min, (long long) max, (long long) result); + exit (1); + } + } +@@ -366,7 +366,7 @@ test_4 (const char *str, scm_t_uintmax m + { + fprintf (stderr, + "fail: scm_to_unsigned_int (%s, %Lu, %Lu) -> out of range\n", +- str, min, max); ++ str, (unsigned long long) min, (unsigned long long) max); + exit (1); + } + } +@@ -378,7 +378,7 @@ test_4 (const char *str, scm_t_uintmax m + { + fprintf (stderr, + "fail: scm_to_unsigned_int (%s, %Lu, %Lu) -> wrong type\n", +- str, min, max); ++ str, (unsigned long long) min, (unsigned long long) max); + exit (1); + } + } +@@ -391,7 +391,7 @@ test_4 (const char *str, scm_t_uintmax m + { + fprintf (stderr, + "fail: scm_to_unsigned_int (%s, %Lu, %Lu) == %Lu\n", +- str, min, max, result); ++ str, (unsigned long long) min, (unsigned long long) max, (unsigned long long) result); + exit (1); + } + } +@@ -447,7 +447,7 @@ test_5 (scm_t_intmax val, const char *re + if (scm_is_false (scm_equal_p (scm_from_signed_integer (val), res))) + { + fprintf (stderr, "fail: scm_from_signed_integer (%Ld) == %s\n", +- val, result); ++ (long long) val, result); + exit (1); + } + } +@@ -479,7 +479,7 @@ test_6 (scm_t_uintmax val, const char *r + if (scm_is_false (scm_equal_p (scm_from_unsigned_integer (val), res))) + { + fprintf (stderr, "fail: scm_from_unsigned_integer (%Lu) == %s\n", +- val, result); ++ (unsigned long long) val, result); + exit (1); + } + } +@@ -507,7 +507,7 @@ test_7s (SCM n, scm_t_intmax c_n, const + + if (scm_is_false (scm_equal_p (n, r))) + { +- fprintf (stderr, "fail: %s (%Ld) == %s\n", func, c_n, result); ++ fprintf (stderr, "fail: %s (%Ld) == %s\n", func, (long long) c_n, result); + exit (1); + } + } +@@ -521,7 +521,7 @@ test_7u (SCM n, scm_t_uintmax c_n, const - int + if (scm_is_false (scm_equal_p (n, r))) + { +- fprintf (stderr, "fail: %s (%Lu) == %s\n", func, c_n, result); ++ fprintf (stderr, "fail: %s (%Lu) == %s\n", func, (unsigned long long) c_n, result); + exit (1); + } + } +@@ -580,7 +580,7 @@ test_8s (const char *str, scm_t_intmax ( + || data.result != result) + { + fprintf (stderr, +- "fail: %s (%s) = %Ld\n", func_name, str, result); ++ "fail: %s (%s) = %Ld\n", func_name, str, (long long) result); + exit (1); + } + } +@@ -638,7 +638,7 @@ test_8u (const char *str, scm_t_uintmax + || data.result != result) + { + fprintf (stderr, +- "fail: %s (%s) = %Ld\n", func_name, str, result); ++ "fail: %s (%s) = %Ld\n", func_name, str, (long long) result); + exit (1); + } + } |