[Gaim-commits] SF.net SVN: gaim: [16249] trunk/plugins/tcl

[<ebl...@us...>]

Revision: 16249
Author:   eblanton
Date:     2006-06-10 12:51:32 -0700 (Sat, 10 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/gaim/?rev=16249&view=rev

Log Message:
-----------
This has no functional effect, but it should eliminate some compiler crying.

Modified Paths:
--------------
    trunk/plugins/tcl/tcl.c
    trunk/plugins/tcl/tcl_gaim.h
    trunk/plugins/tcl/tcl_signals.c
Modified: trunk/plugins/tcl/tcl.c
===================================================================
--- trunk/plugins/tcl/tcl.c	2006-06-10 19:27:21 UTC (rev 16248)
+++ trunk/plugins/tcl/tcl.c	2006-06-10 19:51:32 UTC (rev 16249)
@@ -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);

Modified: trunk/plugins/tcl/tcl_gaim.h
===================================================================
--- trunk/plugins/tcl/tcl_gaim.h	2006-06-10 19:27:21 UTC (rev 16248)
+++ trunk/plugins/tcl/tcl_gaim.h	2006-06-10 19:51:32 UTC (rev 16249)
@@ -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;

Modified: trunk/plugins/tcl/tcl_signals.c
===================================================================
--- trunk/plugins/tcl/tcl_signals.c	2006-06-10 19:27:21 UTC (rev 16248)
+++ trunk/plugins/tcl/tcl_signals.c	2006-06-10 19:51:32 UTC (rev 16249)
@@ -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])) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.