diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-29 11:39:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-29 11:39:00 (GMT) |
| commit | b2522c9c24b283a616ac38c4c987827c4fa86167 (patch) | |
| tree | 7ce411d2af949b4e0efb15ac084505dc3427742a /doc | |
| parent | 23a0290873b671c61ba3bc112ffc158fb859667a (diff) | |
| download | tcl-b2522c9c24b283a616ac38c4c987827c4fa86167.zip tcl-b2522c9c24b283a616ac38c4c987827c4fa86167.tar.gz tcl-b2522c9c24b283a616ac38c4c987827c4fa86167.tar.bz2 | |
Tcl_SetVar -> Tcl_SetVar2 and comparable replacements, eliminating functions which are deprecated.
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/AddErrInfo.3 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/doc/AddErrInfo.3 b/doc/AddErrInfo.3 index caba125..0b59349 100644 --- a/doc/AddErrInfo.3 +++ b/doc/AddErrInfo.3 @@ -119,7 +119,7 @@ retrieve the stack trace when script evaluation returns \fBTCL_ERROR\fR, like so: .PP .CS -int code = Tcl_Eval(interp, script); +int code = Tcl_EvalEx(interp, script, -1, 0); if (code == TCL_ERROR) { Tcl_Obj *options = \fBTcl_GetReturnOptions\fR(interp, code); Tcl_Obj *key = Tcl_NewStringObj("-errorinfo", -1); |