diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 10:39:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 10:39:50 (GMT) |
| commit | 947369a720dc58ad94435918a85bee712448a48e (patch) | |
| tree | 130e81956048945337c1a55693832518e2897ed7 /generic/tclTest.c | |
| parent | 94a0658bc2c711a2e464dfc5a7dc3fd0b233fa82 (diff) | |
| parent | f6bf85fb67eb15e637ecf7c7de4f661dc0557b43 (diff) | |
| download | tcl-947369a720dc58ad94435918a85bee712448a48e.zip tcl-947369a720dc58ad94435918a85bee712448a48e.tar.gz tcl-947369a720dc58ad94435918a85bee712448a48e.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 5ebbfdd..1523666 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -7488,8 +7488,6 @@ TestconcatobjCmd( "\n\t* (e) concatObj does not have refCount 0", NULL); } if (concatPtr == tmpPtr) { - int len; - result = TCL_ERROR; Tcl_AppendResult(interp, "\n\t* (e) concatObj is not a new obj ", NULL); @@ -7520,8 +7518,6 @@ TestconcatobjCmd( "\n\t* (f) concatObj does not have refCount 0", NULL); } if (concatPtr == tmpPtr) { - int len; - result = TCL_ERROR; Tcl_AppendResult(interp, "\n\t* (f) concatObj is not a new obj ", NULL); @@ -7553,8 +7549,6 @@ TestconcatobjCmd( "\n\t* (g) concatObj does not have refCount 0", NULL); } if (concatPtr == tmpPtr) { - int len; - result = TCL_ERROR; Tcl_AppendResult(interp, "\n\t* (g) concatObj is not a new obj ", NULL); |