diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-21 16:18:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-21 16:18:53 (GMT) |
| commit | e3c67e088158312bf1d91f23ff22d9f67f87c016 (patch) | |
| tree | 76b2e5daefcb9c4700e7f399df406157e37e38ca /generic/tclScan.c | |
| parent | ead6c0d0543e7a3ccb5a45d79554f7852d70a1df (diff) | |
| parent | fc5ef30f8cb501a35c696d8356e1e89e3004efaa (diff) | |
| download | tcl-e3c67e088158312bf1d91f23ff22d9f67f87c016.zip tcl-e3c67e088158312bf1d91f23ff22d9f67f87c016.tar.gz tcl-e3c67e088158312bf1d91f23ff22d9f67f87c016.tar.bz2 | |
New macro TclNewIndexObj(). For Tcl 8.7 it's the same as TclNewIntObj(), but in Tcl 9.0 not any more.
Merge 8.6
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 5568529..134f60d 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -34,7 +34,7 @@ typedef struct { Tcl_UniChar end; } Range; -typedef struct CharSet { +typedef struct { int exclude; /* 1 if this is an exclusion set. */ int nchars; Tcl_UniChar *chars; @@ -1089,7 +1089,7 @@ Tcl_ScanObjCmd( if (code == TCL_OK) { if (underflow && (nconversions == 0)) { if (numVars) { - TclNewIntObj(objPtr, TCL_INDEX_NONE); + TclNewIndexObj(objPtr, TCL_INDEX_NONE); } else { if (objPtr) { Tcl_SetListObj(objPtr, 0, NULL); |