diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-25 11:53:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-25 11:53:41 (GMT) |
| commit | 6ec16f5f96257f9a6ac5d507f8f19258c7ceaa28 (patch) | |
| tree | c561d44ab8f76c97dc808357c85bfe72b43f25ac /generic | |
| parent | 6abe764edc5d4c28db89fe7c94dd37f5daeb67ff (diff) | |
| download | tcl-6ec16f5f96257f9a6ac5d507f8f19258c7ceaa28.zip tcl-6ec16f5f96257f9a6ac5d507f8f19258c7ceaa28.tar.gz tcl-6ec16f5f96257f9a6ac5d507f8f19258c7ceaa28.tar.bz2 | |
fix minor memory leak
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclAssembly.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 99bdf43..c4eeded 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -801,7 +801,6 @@ TclNRAssembleObjCmd( Tcl_AppendObjToErrorInfo(interp, objv[0]); Tcl_AddErrorInfo(interp, "\" body, line "); backtrace = Tcl_NewIntObj(Tcl_GetErrorLine(interp)); - Tcl_IncrRefCount(backtrace); Tcl_AppendObjToErrorInfo(interp, backtrace); Tcl_AddErrorInfo(interp, ")"); return TCL_ERROR; |