- make compiler not complain on perl-Glib code

[packages/perl-Glib.git] / perl-Glib-kill_warnings.patch

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