diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-04 11:36:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-04 11:36:13 (GMT) |
| commit | b78fe450ce4850f5bc991818448e1026f6edc08e (patch) | |
| tree | 9c6cb8043dd30095a5ffb66d74aed38433e3e416 /generic/tclDecls.h | |
| parent | ebf3d00e750aa1f8e73cb1b0fa9f33ded2cf00f9 (diff) | |
| parent | 62f9be3bc246d8af459066978a4ee75d0ff10d88 (diff) | |
| download | tcl-b78fe450ce4850f5bc991818448e1026f6edc08e.zip tcl-b78fe450ce4850f5bc991818448e1026f6edc08e.tar.gz tcl-b78fe450ce4850f5bc991818448e1026f6edc08e.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 3be304d..62e3e6c 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3837,13 +3837,13 @@ extern const TclStubs *tclStubsPtr; #define Tcl_UpVar(interp, frameName, varName, localName, flags) \ Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) #define Tcl_AddErrorInfo(interp, message) \ - Tcl_AppendObjToErrorInfo(interp, Tcl_NewStringObj(message, -1)) + Tcl_AppendObjToErrorInfo(interp, Tcl_NewStringObj(message, TCL_INDEX_NONE)) #define Tcl_AddObjErrorInfo(interp, message, length) \ Tcl_AppendObjToErrorInfo(interp, Tcl_NewStringObj(message, length)) #define Tcl_Eval(interp, objPtr) \ - Tcl_EvalEx(interp, objPtr, -1, 0) + Tcl_EvalEx(interp, objPtr, TCL_INDEX_NONE, 0) #define Tcl_GlobalEval(interp, objPtr) \ - Tcl_EvalEx(interp, objPtr, -1, TCL_EVAL_GLOBAL) + Tcl_EvalEx(interp, objPtr, TCL_INDEX_NONE, TCL_EVAL_GLOBAL) #define Tcl_GetStringResult(interp) Tcl_GetString(Tcl_GetObjResult(interp)) #define Tcl_SaveResult(interp, statePtr) \ do { \ @@ -3863,7 +3863,7 @@ extern const TclStubs *tclStubsPtr; do { \ const char *__result = result; \ Tcl_FreeProc *__freeProc = freeProc; \ - Tcl_SetObjResult(interp, Tcl_NewStringObj(__result, -1)); \ + Tcl_SetObjResult(interp, Tcl_NewStringObj(__result, TCL_INDEX_NONE)); \ if (__result != NULL && __freeProc != NULL && __freeProc != TCL_VOLATILE) { \ if (__freeProc == TCL_DYNAMIC) { \ Tcl_Free((char *)__result); \ |