[Tcladdressbook-commits] Source TclAddressBook.c,1.40,1.41

[Bernard D. <bde...@us...>]

Update of /cvsroot/tcladdressbook/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1094/Source

Modified Files:
	TclAddressBook.c 
Log Message:
Init resultPtr with TclNewObj

Index: TclAddressBook.c
===================================================================
RCS file: /cvsroot/tcladdressbook/Source/TclAddressBook.c,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- TclAddressBook.c	25 Aug 2004 10:05:47 -0000	1.40
+++ TclAddressBook.c	9 Sep 2004 05:40:17 -0000	1.41
@@ -1,7 +1,7 @@
 /* 
  * File : "TclAddressBook.c"
  *                        Created: 2003-11-26 12:54:15
- *              Last modification: 2004-08-08 22:27:19
+ *              Last modification: 2004-09-09 06:26:17
  * Author: Bernard Desgraupes
  * e-mail: <bde...@ea...>
  *  
@@ -159,7 +159,7 @@
 		TCLAB_SEARCH, TCLAB_SET, TCLAB_SETME, TCLAB_TYPE 
 	};
 	
-	resultPtr = Tcl_GetObjResult(interp);
+	resultPtr = Tcl_NewObj();
 	
 	if (objc < 2) {
 		Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?arg ...?");
@@ -264,6 +264,8 @@
 		panic("Tcl_GetIndexFromObj returned unrecognized subcommand");
 		result = TCL_ERROR;	/* Should never be reached. */
 	}
+	
+	Tcl_SetObjResult(interp, resultPtr);
 	return result;
 }