Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Express INST_LIST_INDEX_IMM index processinig in terms of TCL_INDEX_END so that consistencies are maintained, and hardcoded values are a bit demystified. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-db36fa5122 |
| Files: | files | file ages | folders |
| SHA3-256: |
31a078bec71164384520ed806519e7ca |
| User & Date: | dgp 2018-03-07 19:55:23 |
Context
|
2018-03-07
| ||
| 21:02 | When index parsing alone tells you a [string range] is empty, just push it. check-in: 38b72bb54b user: dgp tags: bug-db36fa5122 | |
| 19:55 | Express INST_LIST_INDEX_IMM index processinig in terms of TCL_INDEX_END so that consistencies are ma... check-in: 31a078bec7 user: dgp tags: bug-db36fa5122 | |
| 18:39 | Establish 4 symbols for categories of parsed index values: TCL_INDEX_START = 0 The start index.... check-in: 3f026007bd user: dgp tags: bug-db36fa5122 | |
Changes
Changes to generic/tclExecute.c.
| ︙ | ︙ | |||
5086 5087 5088 5089 5090 5091 5092 |
if (TclListObjGetElements(interp, valuePtr, &objc, &objv) != TCL_OK) {
TRACE_ERROR(interp);
goto gotError;
}
/*
| < | < < < | < | 5086 5087 5088 5089 5090 5091 5092 5093 5094 5095 5096 5097 5098 5099 5100 5101 5102 5103 |
if (TclListObjGetElements(interp, valuePtr, &objc, &objv) != TCL_OK) {
TRACE_ERROR(interp);
goto gotError;
}
/*
* Decode end-offset index values.
*/
index = opnd + (opnd <= TCL_INDEX_END)*(objc - 1 - TCL_INDEX_END);
pcAdjustment = 5;
lindexFastPath:
if (index >= 0 && index < objc) {
objResultPtr = objv[index];
} else {
TclNewObj(objResultPtr);
|
| ︙ | ︙ |