diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-03-22 13:22:40 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-03-22 13:22:40 (GMT) |
| commit | d9eda09ee8110c6d9d122e1b2bd2e26280e5578d (patch) | |
| tree | a4ff2b2486e4945b0d49bb1d7e7814fb2c7a7f18 /generic/tclBasic.c | |
| parent | 241f74e67a5f69fa3ef913cc80d643426d594448 (diff) | |
| download | tcl-d9eda09ee8110c6d9d122e1b2bd2e26280e5578d.zip tcl-d9eda09ee8110c6d9d122e1b2bd2e26280e5578d.tar.gz tcl-d9eda09ee8110c6d9d122e1b2bd2e26280e5578d.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 |