Revision: 16248
Author: eblanton
Date: 2006-06-10 12:27:21 -0700 (Sat, 10 Jun 2006)
ViewCVS: http://svn.sourceforge.net/gaim/?rev=16248&view=rev
Log Message:
-----------
Fix some 64-bit nonos in tcl_glib
Modified Paths:
--------------
trunk/plugins/tcl/tcl_glib.c
Modified: trunk/plugins/tcl/tcl_glib.c
===================================================================
--- trunk/plugins/tcl/tcl_glib.c 2006-06-10 19:16:58 UTC (rev 16247)
+++ trunk/plugins/tcl/tcl_glib.c 2006-06-10 19:27:21 UTC (rev 16248)
@@ -1,7 +1,7 @@
/*
* Tcl/Glib glue
*
- * Copyright (C) 2003, 2004 Ethan Blanton <ebl...@cs...>
+ * Copyright (C) 2003, 2004, 2006 Ethan Blanton <ebl...@cs...>
*
* This file is dual-licensed under the two sets of terms below. You may
* use, redistribute, or modify it pursuant to either the set of conditions
@@ -157,8 +157,8 @@
GIOChannel *channel;
GIOCondition cond = 0;
- if (g_hash_table_lookup(tcl_file_handlers, (gpointer)fd))
- tcl_delete_file_handler(fd);
+ if (g_hash_table_lookup(tcl_file_handlers, GINT_TO_POINTER(fd)))
+ tcl_delete_file_handler(fd);
if (mask & TCL_READABLE)
cond |= G_IO_IN;
@@ -176,7 +176,7 @@
tfh->source = g_io_add_watch_full(channel, G_PRIORITY_DEFAULT, cond, tcl_file_callback, tfh, g_free);
g_io_channel_unref(channel);
- g_hash_table_insert(tcl_file_handlers, (gpointer)fd, tfh);
+ g_hash_table_insert(tcl_file_handlers, GINT_TO_POINTER(fd), tfh);
Tcl_ServiceAll();
}
@@ -189,7 +189,7 @@
return;
g_source_remove(tfh->source);
- g_hash_table_remove(tcl_file_handlers, (gpointer)fd);
+ g_hash_table_remove(tcl_file_handlers, GINT_TO_POINTER(fd));
Tcl_ServiceAll();
}
@@ -241,7 +241,7 @@
return 0;
}
- tfh = g_hash_table_lookup(tcl_file_handlers, (gpointer)fev->fd);
+ tfh = g_hash_table_lookup(tcl_file_handlers, GINT_TO_POINTER(fev->fd));
if (tfh == NULL)
return 1;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
