Mercurial > pidgin

changeset 13817:ad8ddfa756ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 16249] This has no functional effect, but it should eliminate some compiler crying. committer: Tailor Script <tailor@pidgin.im>
author Ethan Blanton <elb@pidgin.im>
date Sat, 10 Jun 2006 19:51:32 +0000
parents 1b783830ca06
children ec7848583492
files plugins/tcl/tcl.c plugins/tcl/tcl_gaim.h plugins/tcl/tcl_signals.c
diffstat 3 files changed, 7 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/plugins/tcl/tcl.c	Sat Jun 10 19:27:21 2006 +0000
+++ b/plugins/tcl/tcl.c	Sat Jun 10 19:51:32 2006 +0000
@@ -53,6 +53,7 @@
 GaimStringref *GaimTclRefAccount;
 GaimStringref *GaimTclRefConnection;
 GaimStringref *GaimTclRefConversation;
+GaimStringref *GaimTclRefPointer;
 GaimStringref *GaimTclRefStatus;
 GaimStringref *GaimTclRefStatusAttr;
 GaimStringref *GaimTclRefStatusType;
@@ -344,6 +345,7 @@
 	GaimTclRefAccount = gaim_stringref_new("Account");
 	GaimTclRefConnection = gaim_stringref_new("Connection");
 	GaimTclRefConversation = gaim_stringref_new("Conversation");
+	GaimTclRefPointer = gaim_stringref_new("Pointer");
 	GaimTclRefStatus = gaim_stringref_new("Status");
 	GaimTclRefStatusAttr = gaim_stringref_new("StatusAttr");
 	GaimTclRefStatusType = gaim_stringref_new("StatusType");
@@ -365,6 +367,7 @@
 	gaim_stringref_unref(GaimTclRefAccount);
 	gaim_stringref_unref(GaimTclRefConnection);
 	gaim_stringref_unref(GaimTclRefConversation);
+	gaim_stringref_unref(GaimTclRefPointer);
 	gaim_stringref_unref(GaimTclRefStatus);
 	gaim_stringref_unref(GaimTclRefStatusAttr);
 	gaim_stringref_unref(GaimTclRefStatusType);
--- a/plugins/tcl/tcl_gaim.h	Sat Jun 10 19:27:21 2006 +0000
+++ b/plugins/tcl/tcl_gaim.h	Sat Jun 10 19:51:32 2006 +0000
@@ -51,6 +51,7 @@
 extern GaimStringref *GaimTclRefAccount;
 extern GaimStringref *GaimTclRefConnection;
 extern GaimStringref *GaimTclRefConversation;
+extern GaimStringref *GaimTclRefPointer;
 extern GaimStringref *GaimTclRefStatus;
 extern GaimStringref *GaimTclRefStatusAttr;
 extern GaimStringref *GaimTclRefStatusType;
--- a/plugins/tcl/tcl_signals.c	Sat Jun 10 19:27:21 2006 +0000
+++ b/plugins/tcl/tcl_signals.c	Sat Jun 10 19:51:32 2006 +0000
@@ -186,14 +186,9 @@
 		case GAIM_TYPE_OBJECT:
 		case GAIM_TYPE_BOXED:
 			/* These are all "pointer" types to us */
-			if (gaim_value_is_outgoing(handler->argtypes[i])) {
-				vals[i] = va_arg(args, void **);
-				Tcl_LinkVar(handler->interp, name->str,
-					    vals[i], TCL_LINK_INT);
-				arg = Tcl_NewStringObj(name->str, -1);
-			} else {
-				arg = Tcl_NewIntObj((int)va_arg(args, void *));
-			}
+			if (gaim_value_is_outgoing(handler->argtypes[i]))
+				gaim_debug_error("tcl", "pointer types do not currently support outgoing arguments\n");
+			arg = gaim_tcl_ref_new(GaimTclRefPointer, va_arg(args, void *));
 			break;
 		case GAIM_TYPE_BOOLEAN:
 			if (gaim_value_is_outgoing(handler->argtypes[i])) {