diff options
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 2531421..b97d16f 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -544,8 +544,10 @@ ErrorCodeRead( return NULL; } if (NULL == Tcl_ObjGetVar2(interp, iPtr->ecVar, NULL, TCL_GLOBAL_ONLY)) { + Tcl_Obj *objPtr; + TclNewObj(objPtr); Tcl_ObjSetVar2(interp, iPtr->ecVar, NULL, - Tcl_NewObj(), TCL_GLOBAL_ONLY); + objPtr, TCL_GLOBAL_ONLY); } return NULL; } @@ -618,8 +620,10 @@ ErrorInfoRead( return NULL; } if (NULL == Tcl_ObjGetVar2(interp, iPtr->eiVar, NULL, TCL_GLOBAL_ONLY)) { + Tcl_Obj *objPtr; + TclNewObj(objPtr); Tcl_ObjSetVar2(interp, iPtr->eiVar, NULL, - Tcl_NewObj(), TCL_GLOBAL_ONLY); + objPtr, TCL_GLOBAL_ONLY); } return NULL; } |