diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-16 11:14:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-16 11:14:19 (GMT) |
| commit | 495f74d5cbcee6e4e3489cf7c27bbc2fafa9b114 (patch) | |
| tree | ebef59564c1e035925e2a15d3f9085efa65b7663 /generic/tclTest.c | |
| parent | 8393f3aaad44f60614833b054b2aa554c20f6473 (diff) | |
| parent | ac1ec8201ea21124d381f218fcaf009deb6e653c (diff) | |
| download | tcl-495f74d5cbcee6e4e3489cf7c27bbc2fafa9b114.zip tcl-495f74d5cbcee6e4e3489cf7c27bbc2fafa9b114.tar.gz tcl-495f74d5cbcee6e4e3489cf7c27bbc2fafa9b114.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 53ec544..8c3f2cf 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -1518,7 +1518,7 @@ TestdelCmd( return TCL_ERROR; } - dPtr = (DelCmd*)ckalloc(sizeof(DelCmd)); + dPtr = (DelCmd *)ckalloc(sizeof(DelCmd)); dPtr->interp = interp; dPtr->deleteCmd = (char *)ckalloc(strlen(argv[3]) + 1); strcpy(dPtr->deleteCmd, argv[3]); @@ -1547,7 +1547,7 @@ static void DelDeleteProc( void *clientData) /* String command to evaluate. */ { - DelCmd *dPtr = (DelCmd *) clientData; + DelCmd *dPtr = (DelCmd *)clientData; Tcl_EvalEx(dPtr->interp, dPtr->deleteCmd, -1, 0); Tcl_ResetResult(dPtr->interp); @@ -6383,11 +6383,6 @@ TestReport( if (interp == NULL) { /* This is bad, but not much we can do about it */ } else { - /* - * No idea why I decided to program this up using the old string-based - * API, but there you go. We should convert it to objects. - */ - Tcl_Obj *savedResult; Tcl_DString ds; |