diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-12 12:20:01 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-12 12:20:01 (GMT) |
| commit | 4577aedd3a1cfa05c8e0b754453efe6b01535193 (patch) | |
| tree | 1ed1441c42e64a5dd6600361540a320bab48a7b1 | |
| parent | 4e44a9bda40f4368909a35512f60e0a0919c7395 (diff) | |
| download | tcl-4577aedd3a1cfa05c8e0b754453efe6b01535193.zip tcl-4577aedd3a1cfa05c8e0b754453efe6b01535193.tar.gz tcl-4577aedd3a1cfa05c8e0b754453efe6b01535193.tar.bz2 | |
fix expr-old.test errors
| -rw-r--r-- | generic/tclCompCmdsGR.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index be51bd0..847c670 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2636,7 +2636,8 @@ TclCompileSyntaxError( const char *bytes = TclGetStringFromObj(msg, &numBytes); TclEmitPush(TclRegisterNewLiteral(envPtr, bytes, numBytes), envPtr); - CompileReturnInternal(envPtr, INST_SYNTAX, TCL_ERROR, 0, Tcl_NewObj()); + CompileReturnInternal(envPtr, INST_SYNTAX, TCL_ERROR, 0, + Tcl_GetReturnOptions(interp, TCL_ERROR)); Tcl_ResetResult(interp); } |