diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-22 13:22:40 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-22 13:22:40 (GMT) |
commit | 1aba207fe781bcbb05472aadff385d3a7bc0b819 (patch) | |
tree | a4ff2b2486e4945b0d49bb1d7e7814fb2c7a7f18 /generic/tclBasic.c | |
parent | 0b831af93a825105e975fd5ef7816b39fc5a4d33 (diff) | |
download | tcl-1aba207fe781bcbb05472aadff385d3a7bc0b819.zip tcl-1aba207fe781bcbb05472aadff385d3a7bc0b819.tar.gz tcl-1aba207fe781bcbb05472aadff385d3a7bc0b819.tar.bz2 |
If TCL_NO_DEPRECATED is defined, don't depend on Tcl_CreateMathFunc()/Tcl_SaveResult() in testcases any more.
Prevent endless loop in Tcl_AddObjErrorInfo, when TCL_NO_DEPRECATED is defined.
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index f57b4ea..64a4d3a 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6742,6 +6742,7 @@ Tcl_ExprString( *---------------------------------------------------------------------- */ +#undef Tcl_AddObjErrorInfo void Tcl_AppendObjToErrorInfo( Tcl_Interp *interp, /* Interpreter to which error information @@ -6806,7 +6807,6 @@ Tcl_AddErrorInfo( *---------------------------------------------------------------------- */ -#undef Tcl_AddObjErrorInfo void Tcl_AddObjErrorInfo( Tcl_Interp *interp, /* Interpreter to which error information |