[pkgsrc/trunk]: pkgsrc/devel/guile-gtk Don't use unportable ulong if unsigned...

[joerg <joerg%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/40b1bf3c0ced
branches:  trunk
changeset: 507316:40b1bf3c0ced
user:      joerg <joerg%pkgsrc.org@localhost>
date:      Mon Jan 30 19:04:12 2006 +0000

description:
Don't use unportable ulong if unsigned long works as well.

diffstat:

 devel/guile-gtk/distinfo         |   3 ++-
 devel/guile-gtk/patches/patch-ab |  20 ++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletions(-)

diffs (36 lines):

diff -r 4f59a1b604e1 -r 40b1bf3c0ced devel/guile-gtk/distinfo
--- a/devel/guile-gtk/distinfo  Mon Jan 30 18:50:08 2006 +0000
+++ b/devel/guile-gtk/distinfo  Mon Jan 30 19:04:12 2006 +0000
@@ -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 -r 4f59a1b604e1 -r 40b1bf3c0ced devel/guile-gtk/patches/patch-ab
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/devel/guile-gtk/patches/patch-ab  Mon Jan 30 19:04:12 2006 +0000
@@ -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);