[Gaim-commits] CVS: gaim/plugins/perl perl-common.c,1.10,1.11 perl-handlers.c,1.11,1.12

[Luke S. <lsc...@us...>]

Update of /cvsroot/gaim/gaim/plugins/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv5460/plugins/perl

Modified Files:
	perl-common.c perl-handlers.c 
Log Message:
Code cleanup to get rid of all warnings for AMD64 from augustus at linuxhardware dot org


Index: perl-common.c
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/perl-common.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -p -r1.10 -r1.11
--- perl-common.c	12 Oct 2003 05:59:05 -0000	1.10
+++ perl-common.c	30 Oct 2003 22:27:34 -0000	1.11
@@ -499,19 +499,19 @@ gaim_perl_sv_from_vargs(const GaimValue 
 				return gaim_perl_sv_from_subtype(value, *copy_arg);
 
 			case GAIM_TYPE_BOOLEAN:
-				*copy_arg = (void *)va_arg(*args, gboolean);
+				*copy_arg = GINT_TO_POINTER( va_arg(*args, gboolean) );
 
-				return newSViv((gboolean)*copy_arg);
+				return newSViv((gboolean)GPOINTER_TO_INT(*copy_arg));
 
 			case GAIM_TYPE_INT:
-				*copy_arg = (void *)va_arg(*args, int);
+				*copy_arg = GINT_TO_POINTER( va_arg(*args, int) );
 
-				return newSViv((int)*copy_arg);
+				return newSViv(GPOINTER_TO_INT(*copy_arg));
 
 			case GAIM_TYPE_UINT:
-				*copy_arg = (void *)va_arg(*args, unsigned int);
+				*copy_arg = GUINT_TO_POINTER(va_arg(*args, unsigned int));
 
-				return newSVuv((unsigned int)*copy_arg);
+				return newSVuv(GPOINTER_TO_UINT(*copy_arg));
 
 			case GAIM_TYPE_LONG:
 				*copy_arg = (void *)va_arg(*args, long);

Index: perl-handlers.c
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/perl-handlers.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -p -r1.11 -r1.12
--- perl-handlers.c	24 Sep 2003 01:06:56 -0000	1.11
+++ perl-handlers.c	30 Oct 2003 22:27:34 -0000	1.12
@@ -90,7 +90,7 @@ perl_signal_cb(va_list args, void *data)
 	for (i = 0; i < value_count; i++)
 	{
 		sv_args[i] = sv_2mortal(gaim_perl_sv_from_vargs(values[i],
-														&args, &copy_args[i]));
+														(va_list*)&args, &copy_args[i]));
 
 		XPUSHs(sv_args[i]);
 	}