summaryrefslogtreecommitdiffstats
path: root/generic/tclAssembly.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-25 11:53:41 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-25 11:53:41 (GMT)
commit328fa692fbd773527e3f656e71f312717a9daed9 (patch)
treec561d44ab8f76c97dc808357c85bfe72b43f25ac /generic/tclAssembly.c
parent1a19e1f67d4039692837657d71be3d35b40a9662 (diff)
downloadtcl-328fa692fbd773527e3f656e71f312717a9daed9.zip
tcl-328fa692fbd773527e3f656e71f312717a9daed9.tar.gz
tcl-328fa692fbd773527e3f656e71f312717a9daed9.tar.bz2
fix minor memory leak
Diffstat (limited to 'generic/tclAssembly.c')
-rw-r--r--generic/tclAssembly.c1
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;