diff options
Diffstat (limited to 'generic/tclProcess.c')
| -rw-r--r-- | generic/tclProcess.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclProcess.c b/generic/tclProcess.c index 543d066..d55a1fd 100644 --- a/generic/tclProcess.c +++ b/generic/tclProcess.c @@ -355,8 +355,9 @@ BuildProcessStatusObj( /* * Process still running, return empty obj. */ - - return Tcl_NewObj(); + Tcl_Obj *obj; + TclNewObj(obj); + return obj; } if (info->status == TCL_PROCESS_EXITED && info->code == 0) { /* |