# HG changeset patch
# User Ethan Blanton <elb@pidgin.im>
# Date 1109124858 0
# Node ID 9eb235c6dc0a3a1f9ba4934198f220a233f16eec
# Parent  235e72d7bb0a33733f2077bb0686d05603c6d37b
[gaim-migrate @ 12099]
This should make Tcl 8.3 happier

committer: Tailor Script <tailor@pidgin.im>

diff -r 235e72d7bb0a -r 9eb235c6dc0a plugins/tcl/tcl_signals.c
--- a/plugins/tcl/tcl_signals.c	Tue Feb 22 16:54:56 2005 +0000
+++ b/plugins/tcl/tcl_signals.c	Wed Feb 23 02:14:18 2005 +0000
@@ -211,13 +211,27 @@
 			}
 		case GAIM_TYPE_INT64:
 		case GAIM_TYPE_UINT64:
+			/* Tcl < 8.4 doesn't have wide ints, so we have ugly
+			 * ifdefs in here */
 			if (gaim_value_is_outgoing(handler->argtypes[i])) {
-				vals[i] = (void *)va_arg(args, guint64 *);
+				vals[i] = (void *)va_arg(args, gint64 *);
+				#if (TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 4)
 				Tcl_LinkVar(handler->interp, name->str,
 					    vals[i], TCL_LINK_WIDE_INT);
+				#else
+				/* This is going to cause weirdness at best,
+				 * but what do you want ... we're losing
+				 * precision */
+				Tcl_LinkVar(handler->interp, name->str,
+					    vals[i], TCL_LINK_INT);
+				#endif /* Tcl >= 8.4 */
 				arg = Tcl_NewStringObj(name->str, -1);
 			} else {
-				arg = Tcl_NewWideIntObj(va_arg(args, guint64));
+				#if (TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 4)
+				arg = Tcl_NewWideIntObj(va_arg(args, gint64));
+				#else
+				arg = Tcl_NewIntObj((int)va_arg(args, int));
+				#endif /* Tcl >= 8.4 */
 			}
 			break;
 		case GAIM_TYPE_STRING: