diff options
author | stanton <stanton@noemail.net> | 1999-02-03 00:55:03 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-02-03 00:55:03 (GMT) |
commit | 230c5c037a6ad78f260db8e2fb58b417aac289cb (patch) | |
tree | 54aa9c12b6ea7911adec5a90deda722113ae9043 /generic/tclProc.c | |
parent | f05e03b57ab09399d626770ff1d471f8d5a4a074 (diff) | |
download | tcl-230c5c037a6ad78f260db8e2fb58b417aac289cb.zip tcl-230c5c037a6ad78f260db8e2fb58b417aac289cb.tar.gz tcl-230c5c037a6ad78f260db8e2fb58b417aac289cb.tar.bz2 |
* generic/tclProc.c:
* generic/tclNamesp.c:
* generic/tclInt.h:
* generic/tclCmdIL.c:
* generic/tclBasic.c:
* generic/tclVar.c: Applied patch from Viktor Dukhovni to
rationalize TCL_LEAVE_ERR_MSG behavior when creating variables.
* generic/tclVar.c: Fixed bug in namespace tail computation.
Fixed bug where upvar could resurrect a namespace variable whose
namespace had been deleted.
* generic/tclCompile.c (TclCompileExprCmd): Eliminated yet another
bogus optimization in expression compilation.
* generic/tclCompile.c (CompileExprWord): Fixed exception stack
overflow bug caused by missing statement. [Bug: 928]
* generic/tclIOCmd.c:
* generic/tclBasic.c: Objectified the "open" command. [Bug: 1113]
FossilOrigin-Name: 8da7bff5d551487e76df9227e0d74f1de76c2787
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index bb6a8e5..34c6ce6 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclProc.c,v 1.16 1998/10/05 22:32:10 escoffon Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.17 1999/02/03 00:55:06 stanton Exp $ */ #include "tclInt.h" @@ -70,7 +70,6 @@ Tcl_ProcObjCmd(dummy, interp, objc, objv) Namespace *nsPtr, *altNsPtr, *cxtNsPtr; Tcl_Command cmd; Tcl_DString ds; - int result; if (objc != 4) { Tcl_WrongNumArgs(interp, 1, objv, "name args body"); @@ -84,12 +83,9 @@ Tcl_ProcObjCmd(dummy, interp, objc, objv) */ fullName = Tcl_GetStringFromObj(objv[1], (int *) NULL); - result = TclGetNamespaceForQualName(interp, fullName, - (Namespace *) NULL, TCL_LEAVE_ERR_MSG, - &nsPtr, &altNsPtr, &cxtNsPtr, &procName); - if (result != TCL_OK) { - return result; - } + TclGetNamespaceForQualName(interp, fullName, (Namespace *) NULL, + /*flags*/ 0, &nsPtr, &altNsPtr, &cxtNsPtr, &procName); + if (nsPtr == NULL) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "can't create procedure \"", fullName, |