diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-16 05:44:19 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-16 05:44:19 (GMT) |
| commit | 713ccc8bb633b7d9df7587490e52352beca7d2c1 (patch) | |
| tree | fd52f8f99ba65832d0c6e27a0d23366ab47e77cb | |
| parent | e8326222de6ca4ce5eaadd888e9b8b515f6b165a (diff) | |
| download | tcl-713ccc8bb633b7d9df7587490e52352beca7d2c1.zip tcl-713ccc8bb633b7d9df7587490e52352beca7d2c1.tar.gz tcl-713ccc8bb633b7d9df7587490e52352beca7d2c1.tar.bz2 | |
Fix VC++ unused variable warning, lappend and join.
| -rw-r--r-- | generic/tclTestObj.c | 1 | ||||
| -rw-r--r-- | tests/bigdata.test | 7 |
2 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index eb64717..7767601 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -1563,7 +1563,6 @@ TestbigdataCmd ( Tcl_Obj *objPtr; #define PATTERN_LEN 10 Tcl_Obj *patternObjs[PATTERN_LEN]; - Tcl_Obj *keyObjs[PATTERN_LEN]; if (objc < 2 || objc > 4) { Tcl_WrongNumArgs(interp, 1, objv, "command ?len? ?split?"); diff --git a/tests/bigdata.test b/tests/bigdata.test index 5729ef8..5519ded 100644 --- a/tests/bigdata.test +++ b/tests/bigdata.test @@ -741,7 +741,7 @@ bigtestRO foreach-bigdata-1 "foreach" 1 -body { # # lappend -bigtest lappend-bigdata-1 "lappend" {4294967300 4294967300 {0 1 2 3 4 a b c d}} -body { +bigtest lappend-bigdata-1 "lappend" {4294967300 4294967300 {1 2 3 4 5 a b c d}} -body { # Do NOT initialize l in a -setup block. That requires more memory and fails. # Do not have enough memory for a full compare. # Just check end @@ -990,13 +990,14 @@ bigtestRO lsort-bigdata-1 "lsort" [list 4294967296 [lrepeat 10 0] [lrepeat 10 9] # # join bigtestRO join-bigdata-1 "join" 1 -body { - string equal [join $l ""] $s + puts len:[string length [join $l ""]] + #string equal [join $l ""] $s } -setup { set l [bigList 0x100000000] set s [bigString 0x100000000] } -cleanup { bigClean -} +} -constraints bug-3c04fcdd1a bigtest split-bigdata-1 "split" {4294967296 {0 1 2 3 4} {1 2 3 4 5}} -body { # Fill list compare needs too much memory |