From a35d38dc250ca39568002d33a4f82017a3fa7956 Mon Sep 17 00:00:00 2001 From: joerg Date: Mon, 30 Jan 2006 19:04:12 +0000 Subject: Don't use unportable ulong if unsigned long works as well. --- devel/guile-gtk/distinfo | 3 ++- devel/guile-gtk/patches/patch-ab | 20 ++++++++++++++++++++ 2 files changed, 22 insertions(+), 1 deletion(-) create mode 100644 devel/guile-gtk/patches/patch-ab diff --git a/devel/guile-gtk/distinfo b/devel/guile-gtk/distinfo index a66c7dfe4df..b7ffe13b20a 100644 --- a/devel/guile-gtk/distinfo +++ b/devel/guile-gtk/distinfo @@ -1,6 +1,7 @@ -$NetBSD: distinfo,v 1.6 2005/02/23 22:24:16 agc Exp $ +$NetBSD: distinfo,v 1.7 2006/01/30 19:04:12 joerg Exp $ SHA1 (guile-gtk-0.40.91.tar.gz) = 9044067d0ff4e745167c38325cd41dbc47e9c483 RMD160 (guile-gtk-0.40.91.tar.gz) = e9d7312273f65a13963ee55e1af1838035089be7 Size (guile-gtk-0.40.91.tar.gz) = 708183 bytes SHA1 (patch-aa) = f3f6e47727ea7429c671fe02d2a93e8e962e920b +SHA1 (patch-ab) = 27c37162913bd56d55bae1fe0463d80773c3b236 diff --git a/devel/guile-gtk/patches/patch-ab b/devel/guile-gtk/patches/patch-ab new file mode 100644 index 00000000000..ee385b9975c --- /dev/null +++ b/devel/guile-gtk/patches/patch-ab @@ -0,0 +1,20 @@ +$NetBSD: patch-ab,v 1.3 2006/01/30 19:04:12 joerg Exp $ + +--- guile-gtk.c.orig 2006-01-30 18:57:35.000000000 +0000 ++++ guile-gtk.c +@@ -1932,13 +1932,13 @@ sgtk_scm2arg (GtkArg *a, SCM obj, SCM pr + GTK_VALUE_INT(*a) = scm_num2long (obj, (long)SCM_ARG1, "scm->gtk"); + break; + case GTK_TYPE_UINT: +- GTK_VALUE_UINT(*a) = scm_num2ulong (obj, (ulong)SCM_ARG1, "scm->gtk"); ++ GTK_VALUE_UINT(*a) = scm_num2ulong (obj, (unsigned long)SCM_ARG1, "scm->gtk"); + break; + case GTK_TYPE_LONG: + GTK_VALUE_LONG(*a) = scm_num2long (obj, (long)SCM_ARG1, "scm->gtk"); + break; + case GTK_TYPE_ULONG: +- GTK_VALUE_ULONG(*a) = scm_num2ulong (obj, (ulong)SCM_ARG1, "scm->gtk"); ++ GTK_VALUE_ULONG(*a) = scm_num2ulong (obj, (unsigned long)SCM_ARG1, "scm->gtk"); + break; + case GTK_TYPE_FLOAT: + GTK_VALUE_FLOAT(*a) = sgtk_scm2float (obj); -- cgit v1.2.3