- make compiler not complain on perl-Glib code

Changed files:
    perl-Glib-kill_warnings.patch -> 1.1

diff --git a/perl-Glib-kill_warnings.patch b/perl-Glib-kill_warnings.patch
new file mode 100644 (file)
index 0000000..ddefbc0
--- /dev/null
+++ b/perl-Glib-kill_warnings.patch
@@ -0,0 +1,83 @@
+diff -dur Glib-1.020.orig/GObject.xs Glib-1.020/GObject.xs
+--- Glib-1.020.orig/GObject.xs 2003-11-21 07:31:28.000000000 +0100
++++ Glib-1.020/GObject.xs      2004-01-09 15:31:47.869709011 +0100
+@@ -326,7 +326,7 @@
+               nowarn_by_type = g_hash_table_new (g_direct_hash,
+                                                  g_direct_equal);
+       }
+-      g_hash_table_insert (nowarn_by_type, (gpointer)gtype, (gpointer)nowarn);
++      g_hash_table_insert (nowarn_by_type, GINT_TO_POINTER(gtype), GINT_TO_POINTER(nowarn));
+ 
+       G_UNLOCK (nowarn_by_type);
+ }
+@@ -341,8 +341,9 @@
+       if (!nowarn_by_type)
+               result = FALSE;
+       else
+-              result = (gboolean) g_hash_table_lookup (nowarn_by_type,
+-                                                       (gpointer)gtype);
++              result = (gboolean) GPOINTER_TO_INT(
++                              g_hash_table_lookup (nowarn_by_type,
++                                         GINT_TO_POINTER(gtype)));
+ 
+       G_UNLOCK (nowarn_by_type);
+ 
+@@ -1067,7 +1068,7 @@
+ =cut
+ SV *
+ new_from_pointer (class, pointer, noinc=FALSE)
+-      guint32 pointer
++      gpointer pointer
+       gboolean noinc
+     CODE:
+       RETVAL = gperl_new_object (G_OBJECT (pointer), noinc);
+@@ -1080,11 +1081,11 @@
+ Complement of C<new_from_pointer>.
+ 
+ =cut
+-guint32
++gpointer
+ get_pointer (object)
+       GObject * object
+     CODE:
+-      RETVAL = GPOINTER_TO_UINT (object);
++      RETVAL = object;
+     OUTPUT:
+       RETVAL
+ 
+diff -dur Glib-1.020.orig/GType.xs Glib-1.020/GType.xs
+--- Glib-1.020.orig/GType.xs   2003-11-29 04:03:12.000000000 +0100
++++ Glib-1.020/GType.xs        2004-01-09 15:32:08.569779901 +0100
+@@ -611,7 +611,7 @@
+       GSignalQuery query;
+       gchar * tmp;
+       SV * method_name;
+-      guint i;
++      STRLEN i;
+         HV *stash;
+         SV **slot;
+       /* see GClosure.xs and gperl_marshal.h for an explanation.  we can't
+Only in Glib-1.020: GType.xs~
+diff -dur Glib-1.020.orig/Glib.xs Glib-1.020/Glib.xs
+--- Glib-1.020.orig/Glib.xs    2003-11-29 04:03:12.000000000 +0100
++++ Glib-1.020/Glib.xs 2004-01-09 15:31:47.869709011 +0100
+@@ -182,7 +182,7 @@
+ {
+       GError *error = 0;
+         SV *sv;
+-      int len;
++      gssize len;
+         gchar *str = g_filename_to_utf8 (filename, -1, NULL, &len, &error);
+ 
+         if (!filename)
+diff -dur Glib-1.020.orig/typemap Glib-1.020/typemap
+--- Glib-1.020.orig/typemap    2003-11-21 07:31:28.000000000 +0100
++++ Glib-1.020/typemap 2004-01-09 15:31:47.870708773 +0100
+@@ -47,6 +47,7 @@
+ const guchar *        T_PV
+ gfloat                T_FLOAT
+ gdouble               T_DOUBLE
++gpointer      T_PTR
+ 
+ GObject*      T_GPERL_GENERIC_WRAPPER
+ GObject_ornull*       T_GPERL_GENERIC_WRAPPER