diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-29 11:19:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-29 11:19:41 (GMT) |
| commit | 7a0f9e685d9c3f74f6b20ce066545f5893c61071 (patch) | |
| tree | f4db689a098369b8c18382d41f4a236dc7c7e503 /generic/tclInterp.c | |
| parent | a89db22d3ad1164ad5e73cfc5c4cd6fe8a622ae6 (diff) | |
| parent | 4aa2998438dbe02e6c704ad6484602ada5ead2df (diff) | |
| download | tcl-7a0f9e685d9c3f74f6b20ce066545f5893c61071.zip tcl-7a0f9e685d9c3f74f6b20ce066545f5893c61071.tar.gz tcl-7a0f9e685d9c3f74f6b20ce066545f5893c61071.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index cfa6b7c..ee38356 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -789,7 +789,7 @@ NRInterpCmd( }; enum option { OPT_SAFE, OPT_LAST - }; + } idx; safe = Tcl_IsSafe(interp); @@ -802,10 +802,10 @@ NRInterpCmd( for (i = 2; i < objc; i++) { if ((last == 0) && (TclGetString(objv[i])[0] == '-')) { if (Tcl_GetIndexFromObj(interp, objv[i], createOptions, - "option", 0, &index) != TCL_OK) { + "option", 0, &idx) != TCL_OK) { return TCL_ERROR; } - if (index == OPT_SAFE) { + if (idx == OPT_SAFE) { safe = 1; continue; } |