/pidgin/main: 5babd6d509db: Fix some tcl8.6 compiler warnings

Tomasz Wasilczyk twasilczyk at pidgin.im
Mon Feb 10 08:06:20 EST 2014


Changeset: 5babd6d509dba0f3653eb406862b9860c904d090
Author:	 Tomasz Wasilczyk <twasilczyk at pidgin.im>
Date:	 2014-02-10 14:05 +0100
Branch:	 default
URL: https://hg.pidgin.im/pidgin/main/rev/5babd6d509db

Description:

Fix some tcl8.6 compiler warnings

diffstat:

 libpurple/plugins/tcl/tcl_glib.c |  12 ++++++++----
 1 files changed, 8 insertions(+), 4 deletions(-)

diffs (43 lines):

diff --git a/libpurple/plugins/tcl/tcl_glib.c b/libpurple/plugins/tcl/tcl_glib.c
--- a/libpurple/plugins/tcl/tcl_glib.c
+++ b/libpurple/plugins/tcl/tcl_glib.c
@@ -68,6 +68,10 @@
 
 #include "tcl_glib.h"
 
+#ifndef CONST86
+#  define CONST86
+#endif
+
 struct tcl_file_handler {
 	int source;
 	int fd;
@@ -86,8 +90,8 @@ static guint tcl_timer;
 static gboolean tcl_timer_pending;
 static GHashTable *tcl_file_handlers;
 
-static void tcl_set_timer(Tcl_Time *timePtr);
-static int tcl_wait_for_event(Tcl_Time *timePtr);
+static void tcl_set_timer(CONST86 Tcl_Time *timePtr);
+static int tcl_wait_for_event(CONST86 Tcl_Time *timePtr);
 static void tcl_create_file_handler(int fd, int mask, Tcl_FileProc *proc, ClientData data);
 static void tcl_delete_file_handler(int fd);
 
@@ -120,7 +124,7 @@ void tcl_glib_init ()
 	tcl_file_handlers = g_hash_table_new(g_direct_hash, g_direct_equal);
 }
 
-static void tcl_set_timer(Tcl_Time *timePtr)
+static void tcl_set_timer(CONST86 Tcl_Time *timePtr)
 {
 	guint interval;
 
@@ -137,7 +141,7 @@ static void tcl_set_timer(Tcl_Time *time
 	tcl_timer_pending = TRUE;
 }
 
-static int tcl_wait_for_event(Tcl_Time *timePtr)
+static int tcl_wait_for_event(CONST86 Tcl_Time *timePtr)
 {
 	if (!timePtr || (timePtr->sec == 0 && timePtr->usec == 0)) {
 		g_main_context_iteration(NULL, FALSE);



More information about the Commits mailing list