[Tcladdressbook-commits] Source TclAddressBook.c,1.40,1.41
Status: Alpha
Brought to you by:
bdesgraupes
|
From: Bernard D. <bde...@us...> - 2004-09-09 05:40:26
|
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; } |