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, ©_args[i]));
+ (va_list*)&args, ©_args[i]));
XPUSHs(sv_args[i]);
}
|