diff options
| -rw-r--r-- | ChangeLog | 13 | ||||
| -rw-r--r-- | generic/tclDecls.h | 8 | ||||
| -rwxr-xr-x[-rw-r--r--] | unix/ldAix | 0 |
3 files changed, 17 insertions, 4 deletions
@@ -1,3 +1,16 @@ +2011-05-10 Don Porter <dgp@users.sourceforge.net> + + * generic/tclInt.h: New internal routines TclScanElement() and + * generic/tclUtil.c: TclConvertElement() are rewritten guts of + machinery to produce string rep of lists. The new routines avoid + and correct [Bug 3173086]. See comments for much more detail. + + * generic/tclDictObj.c: Update all callers. + * generic/tclIndexObj.c: + * generic/tclListObj.c: + * generic/tclUtil.c: + * tests/list.test: + 2011-05-09 Don Porter <dgp@users.sourceforge.net> * generic/tclListObj.c: Revise empty string tests so that we avoid diff --git a/generic/tclDecls.h b/generic/tclDecls.h index b741475..4517d01 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1312,12 +1312,12 @@ EXTERN void Tcl_ResetResult(Tcl_Interp *interp); #ifndef Tcl_ScanElement_TCL_DECLARED #define Tcl_ScanElement_TCL_DECLARED /* 218 */ -EXTERN int Tcl_ScanElement(CONST char *str, int *flagPtr); +EXTERN int Tcl_ScanElement(CONST char *src, int *flagPtr); #endif #ifndef Tcl_ScanCountedElement_TCL_DECLARED #define Tcl_ScanCountedElement_TCL_DECLARED /* 219 */ -EXTERN int Tcl_ScanCountedElement(CONST char *str, int length, +EXTERN int Tcl_ScanCountedElement(CONST char *src, int length, int *flagPtr); #endif #ifndef Tcl_SeekOld_TCL_DECLARED @@ -3661,8 +3661,8 @@ typedef struct TclStubs { void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */ void (*tcl_Release) (ClientData clientData); /* 216 */ void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ - int (*tcl_ScanElement) (CONST char *str, int *flagPtr); /* 218 */ - int (*tcl_ScanCountedElement) (CONST char *str, int length, int *flagPtr); /* 219 */ + int (*tcl_ScanElement) (CONST char *src, int *flagPtr); /* 218 */ + int (*tcl_ScanCountedElement) (CONST char *src, int length, int *flagPtr); /* 219 */ int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ int (*tcl_ServiceAll) (void); /* 221 */ int (*tcl_ServiceEvent) (int flags); /* 222 */ diff --git a/unix/ldAix b/unix/ldAix index 51b2995..51b2995 100644..100755 --- a/unix/ldAix +++ b/unix/ldAix |