diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-04-15 22:01:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-04-15 22:01:00 (GMT) |
| commit | 5bef70bd07b7af46324267dc66e0f505e5df37bf (patch) | |
| tree | dcb0b2de0f33f70c6fd03c1564c22a19f276b285 /generic/tclBasic.c | |
| parent | 246112186811206e6c2d8675c2d649fee5341b87 (diff) | |
| parent | 50698aacbf194f062d07de3bc505584f5b51de71 (diff) | |
| download | tcl-5bef70bd07b7af46324267dc66e0f505e5df37bf.zip tcl-5bef70bd07b7af46324267dc66e0f505e5df37bf.tar.gz tcl-5bef70bd07b7af46324267dc66e0f505e5df37bf.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 4838d84..05e8de0 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -783,6 +783,7 @@ Tcl_CreateInterp(void) TclInitNamespaceCmd(interp); TclInitStringCmd(interp); TclInitPrefixCmd(interp); + TclInitProcessCmd(interp); /* * Register "clock" subcommands. These *do* go through @@ -6332,7 +6333,7 @@ Tcl_AddObjErrorInfo( iPtr->flags |= ERR_LEGACY_COPY; if (iPtr->errorInfo == NULL) { - iPtr->errorInfo = iPtr->objResultPtr; + iPtr->errorInfo = iPtr->objResultPtr; Tcl_IncrRefCount(iPtr->errorInfo); if (!iPtr->errorCode) { Tcl_SetErrorCode(interp, "NONE", NULL); |