diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2010-09-25 14:51:11 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2010-09-25 14:51:11 (GMT) |
| commit | a65bf10cd7e281f19056e37d4bab5dae217c6394 (patch) | |
| tree | bf7c48321b6cca5b3a99c8a02aba6441f406e92c /generic/tclMain.c | |
| parent | b915b5fe069f09a9bd7dec58b31623b29133be2f (diff) | |
| download | tcl-a65bf10cd7e281f19056e37d4bab5dae217c6394.zip tcl-a65bf10cd7e281f19056e37d4bab5dae217c6394.tar.gz tcl-a65bf10cd7e281f19056e37d4bab5dae217c6394.tar.bz2 | |
* tclAssembly.c: Massive refactoring of the assembler
* tclAssembly.h: to use a Tcl-like syntax (and use
* tests/assemble.test: Tcl_ParseCommand to parse it). The
* tests/assemble1.bench: refactoring also ensures that
Tcl_Tokens in the assembler have string ranges inside the source
code, which allows for [eval] and [expr] assembler directives
that simply call TclCompileScript and TclCompileExpr recursively.
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 5d4c6f9..fcccbd3 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMain.c,v 1.50 2010/04/30 07:07:06 nijtmans Exp $ + * RCS: @(#) $Id: tclMain.c,v 1.50.2.1 2010/09/25 14:51:13 kennykb Exp $ */ #include "tclInt.h" @@ -368,6 +368,7 @@ Tcl_Main( Tcl_WriteObj(errChannel, valuePtr); } Tcl_WriteChars(errChannel, "\n", 1); + Tcl_DecrRefCount(options); } exitCode = 1; } |