diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-22 10:53:03 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-22 10:53:03 (GMT) |
commit | 403e88457f72f90f3ee8c07ce5854735e8951689 (patch) | |
tree | d7723d1627587d527d1cb4e4f6513bb784d6a73b /tests | |
parent | e1cb27f660b60297d4dd1533a2a6c91b0b622abc (diff) | |
parent | 94341f98919bb5c68335f97cf1346d3081d57d6e (diff) | |
download | tcl-403e88457f72f90f3ee8c07ce5854735e8951689.zip tcl-403e88457f72f90f3ee8c07ce5854735e8951689.tar.gz tcl-403e88457f72f90f3ee8c07ce5854735e8951689.tar.bz2 |
Fix failure under -singleproc 1 testing
Diffstat (limited to 'tests')
-rw-r--r-- | tests/incr.test | 247 |
1 files changed, 124 insertions, 123 deletions
diff --git a/tests/incr.test b/tests/incr.test index f68d171..7ead4b7 100644 --- a/tests/incr.test +++ b/tests/incr.test @@ -71,82 +71,82 @@ test incr-1.10 {TclCompileIncrCmd: no increment given} { } {11 11} test incr-1.11 {TclCompileIncrCmd: simple global name} { proc p {} { - global i - set i 54 - incr i + global i + set i 54 + incr i } p } {55} test incr-1.12 {TclCompileIncrCmd: simple local name} { proc p {} { - set foo 100 - incr foo + set foo 100 + incr foo } p } {101} test incr-1.13 {TclCompileIncrCmd: simple but new (unknown) local name} { proc p {} { - incr bar + incr bar } p } 1 test incr-1.14 {TclCompileIncrCmd: simple local name, >255 locals} { proc 260locals {} { - # create 260 locals - set a0 0; set a1 0; set a2 0; set a3 0; set a4 0 - set a5 0; set a6 0; set a7 0; set a8 0; set a9 0 - set b0 0; set b1 0; set b2 0; set b3 0; set b4 0 - set b5 0; set b6 0; set b7 0; set b8 0; set b9 0 - set c0 0; set c1 0; set c2 0; set c3 0; set c4 0 - set c5 0; set c6 0; set c7 0; set c8 0; set c9 0 - set d0 0; set d1 0; set d2 0; set d3 0; set d4 0 - set d5 0; set d6 0; set d7 0; set d8 0; set d9 0 - set e0 0; set e1 0; set e2 0; set e3 0; set e4 0 - set e5 0; set e6 0; set e7 0; set e8 0; set e9 0 - set f0 0; set f1 0; set f2 0; set f3 0; set f4 0 - set f5 0; set f6 0; set f7 0; set f8 0; set f9 0 - set g0 0; set g1 0; set g2 0; set g3 0; set g4 0 - set g5 0; set g6 0; set g7 0; set g8 0; set g9 0 - set h0 0; set h1 0; set h2 0; set h3 0; set h4 0 - set h5 0; set h6 0; set h7 0; set h8 0; set h9 0 - set i0 0; set i1 0; set i2 0; set i3 0; set i4 0 - set i5 0; set i6 0; set i7 0; set i8 0; set i9 0 - set j0 0; set j1 0; set j2 0; set j3 0; set j4 0 - set j5 0; set j6 0; set j7 0; set j8 0; set j9 0 - set k0 0; set k1 0; set k2 0; set k3 0; set k4 0 - set k5 0; set k6 0; set k7 0; set k8 0; set k9 0 - set l0 0; set l1 0; set l2 0; set l3 0; set l4 0 - set l5 0; set l6 0; set l7 0; set l8 0; set l9 0 - set m0 0; set m1 0; set m2 0; set m3 0; set m4 0 - set m5 0; set m6 0; set m7 0; set m8 0; set m9 0 - set n0 0; set n1 0; set n2 0; set n3 0; set n4 0 - set n5 0; set n6 0; set n7 0; set n8 0; set n9 0 - set o0 0; set o1 0; set o2 0; set o3 0; set o4 0 - set o5 0; set o6 0; set o7 0; set o8 0; set o9 0 - set p0 0; set p1 0; set p2 0; set p3 0; set p4 0 - set p5 0; set p6 0; set p7 0; set p8 0; set p9 0 - set q0 0; set q1 0; set q2 0; set q3 0; set q4 0 - set q5 0; set q6 0; set q7 0; set q8 0; set q9 0 - set r0 0; set r1 0; set r2 0; set r3 0; set r4 0 - set r5 0; set r6 0; set r7 0; set r8 0; set r9 0 - set s0 0; set s1 0; set s2 0; set s3 0; set s4 0 - set s5 0; set s6 0; set s7 0; set s8 0; set s9 0 - set t0 0; set t1 0; set t2 0; set t3 0; set t4 0 - set t5 0; set t6 0; set t7 0; set t8 0; set t9 0 - set u0 0; set u1 0; set u2 0; set u3 0; set u4 0 - set u5 0; set u6 0; set u7 0; set u8 0; set u9 0 - set v0 0; set v1 0; set v2 0; set v3 0; set v4 0 - set v5 0; set v6 0; set v7 0; set v8 0; set v9 0 - set w0 0; set w1 0; set w2 0; set w3 0; set w4 0 - set w5 0; set w6 0; set w7 0; set w8 0; set w9 0 - set x0 0; set x1 0; set x2 0; set x3 0; set x4 0 - set x5 0; set x6 0; set x7 0; set x8 0; set x9 0 - set y0 0; set y1 0; set y2 0; set y3 0; set y4 0 - set y5 0; set y6 0; set y7 0; set y8 0; set y9 0 - set z0 0; set z1 0; set z2 0; set z3 0; set z4 0 - set z5 0; set z6 0; set z7 0; set z8 0; set z9 0 - # now increment the last one (local var index > 255) - incr z9 + # create 260 locals + set a0 0; set a1 0; set a2 0; set a3 0; set a4 0 + set a5 0; set a6 0; set a7 0; set a8 0; set a9 0 + set b0 0; set b1 0; set b2 0; set b3 0; set b4 0 + set b5 0; set b6 0; set b7 0; set b8 0; set b9 0 + set c0 0; set c1 0; set c2 0; set c3 0; set c4 0 + set c5 0; set c6 0; set c7 0; set c8 0; set c9 0 + set d0 0; set d1 0; set d2 0; set d3 0; set d4 0 + set d5 0; set d6 0; set d7 0; set d8 0; set d9 0 + set e0 0; set e1 0; set e2 0; set e3 0; set e4 0 + set e5 0; set e6 0; set e7 0; set e8 0; set e9 0 + set f0 0; set f1 0; set f2 0; set f3 0; set f4 0 + set f5 0; set f6 0; set f7 0; set f8 0; set f9 0 + set g0 0; set g1 0; set g2 0; set g3 0; set g4 0 + set g5 0; set g6 0; set g7 0; set g8 0; set g9 0 + set h0 0; set h1 0; set h2 0; set h3 0; set h4 0 + set h5 0; set h6 0; set h7 0; set h8 0; set h9 0 + set i0 0; set i1 0; set i2 0; set i3 0; set i4 0 + set i5 0; set i6 0; set i7 0; set i8 0; set i9 0 + set j0 0; set j1 0; set j2 0; set j3 0; set j4 0 + set j5 0; set j6 0; set j7 0; set j8 0; set j9 0 + set k0 0; set k1 0; set k2 0; set k3 0; set k4 0 + set k5 0; set k6 0; set k7 0; set k8 0; set k9 0 + set l0 0; set l1 0; set l2 0; set l3 0; set l4 0 + set l5 0; set l6 0; set l7 0; set l8 0; set l9 0 + set m0 0; set m1 0; set m2 0; set m3 0; set m4 0 + set m5 0; set m6 0; set m7 0; set m8 0; set m9 0 + set n0 0; set n1 0; set n2 0; set n3 0; set n4 0 + set n5 0; set n6 0; set n7 0; set n8 0; set n9 0 + set o0 0; set o1 0; set o2 0; set o3 0; set o4 0 + set o5 0; set o6 0; set o7 0; set o8 0; set o9 0 + set p0 0; set p1 0; set p2 0; set p3 0; set p4 0 + set p5 0; set p6 0; set p7 0; set p8 0; set p9 0 + set q0 0; set q1 0; set q2 0; set q3 0; set q4 0 + set q5 0; set q6 0; set q7 0; set q8 0; set q9 0 + set r0 0; set r1 0; set r2 0; set r3 0; set r4 0 + set r5 0; set r6 0; set r7 0; set r8 0; set r9 0 + set s0 0; set s1 0; set s2 0; set s3 0; set s4 0 + set s5 0; set s6 0; set s7 0; set s8 0; set s9 0 + set t0 0; set t1 0; set t2 0; set t3 0; set t4 0 + set t5 0; set t6 0; set t7 0; set t8 0; set t9 0 + set u0 0; set u1 0; set u2 0; set u3 0; set u4 0 + set u5 0; set u6 0; set u7 0; set u8 0; set u9 0 + set v0 0; set v1 0; set v2 0; set v3 0; set v4 0 + set v5 0; set v6 0; set v7 0; set v8 0; set v9 0 + set w0 0; set w1 0; set w2 0; set w3 0; set w4 0 + set w5 0; set w6 0; set w7 0; set w8 0; set w9 0 + set x0 0; set x1 0; set x2 0; set x3 0; set x4 0 + set x5 0; set x6 0; set x7 0; set x8 0; set x9 0 + set y0 0; set y1 0; set y2 0; set y3 0; set y4 0 + set y5 0; set y6 0; set y7 0; set y8 0; set y9 0 + set z0 0; set z1 0; set z2 0; set z3 0; set z4 0 + set z5 0; set z6 0; set z7 0; set z8 0; set z9 0 + # now increment the last one (local var index > 255) + incr z9 } 260locals } {1} @@ -237,6 +237,7 @@ test incr-1.30 {TclCompileIncrCmd: array var, braced (no subs)} -setup { } -result 5 test incr-1.31 {no overflow in TclCompileIncrCmd and Tcl_IncrObjCmd, bug [7179c6724cd38271]} { + set res [list] # TclCompileIncrCmd: compiled incr TEBC with immutable constant offs (INST_INCR_*_IMM instructions): lappend res [set i 0; incr i 0x7FFFFFFF] lappend res [set i 0; incr i 0xFFFFFF80] @@ -359,85 +360,85 @@ test incr-2.10 {incr command (not compiled): no increment given} { test incr-2.11 {incr command (not compiled): simple global name} { proc p {} { set z incr - global i - set i 54 - $z i + global i + set i 54 + $z i } p } {55} test incr-2.12 {incr command (not compiled): simple local name} { proc p {} { set z incr - set foo 100 - $z foo + set foo 100 + $z foo } p } {101} test incr-2.13 {incr command (not compiled): simple but new (unknown) local name} { proc p {} { set z incr - $z bar + $z bar } p } 1 test incr-2.14 {incr command (not compiled): simple local name, >255 locals} { proc 260locals {} { - set z incr - # create 260 locals - set a0 0; set a1 0; set a2 0; set a3 0; set a4 0 - set a5 0; set a6 0; set a7 0; set a8 0; set a9 0 - set b0 0; set b1 0; set b2 0; set b3 0; set b4 0 - set b5 0; set b6 0; set b7 0; set b8 0; set b9 0 - set c0 0; set c1 0; set c2 0; set c3 0; set c4 0 - set c5 0; set c6 0; set c7 0; set c8 0; set c9 0 - set d0 0; set d1 0; set d2 0; set d3 0; set d4 0 - set d5 0; set d6 0; set d7 0; set d8 0; set d9 0 - set e0 0; set e1 0; set e2 0; set e3 0; set e4 0 - set e5 0; set e6 0; set e7 0; set e8 0; set e9 0 - set f0 0; set f1 0; set f2 0; set f3 0; set f4 0 - set f5 0; set f6 0; set f7 0; set f8 0; set f9 0 - set g0 0; set g1 0; set g2 0; set g3 0; set g4 0 - set g5 0; set g6 0; set g7 0; set g8 0; set g9 0 - set h0 0; set h1 0; set h2 0; set h3 0; set h4 0 - set h5 0; set h6 0; set h7 0; set h8 0; set h9 0 - set i0 0; set i1 0; set i2 0; set i3 0; set i4 0 - set i5 0; set i6 0; set i7 0; set i8 0; set i9 0 - set j0 0; set j1 0; set j2 0; set j3 0; set j4 0 - set j5 0; set j6 0; set j7 0; set j8 0; set j9 0 - set k0 0; set k1 0; set k2 0; set k3 0; set k4 0 - set k5 0; set k6 0; set k7 0; set k8 0; set k9 0 - set l0 0; set l1 0; set l2 0; set l3 0; set l4 0 - set l5 0; set l6 0; set l7 0; set l8 0; set l9 0 - set m0 0; set m1 0; set m2 0; set m3 0; set m4 0 - set m5 0; set m6 0; set m7 0; set m8 0; set m9 0 - set n0 0; set n1 0; set n2 0; set n3 0; set n4 0 - set n5 0; set n6 0; set n7 0; set n8 0; set n9 0 - set o0 0; set o1 0; set o2 0; set o3 0; set o4 0 - set o5 0; set o6 0; set o7 0; set o8 0; set o9 0 - set p0 0; set p1 0; set p2 0; set p3 0; set p4 0 - set p5 0; set p6 0; set p7 0; set p8 0; set p9 0 - set q0 0; set q1 0; set q2 0; set q3 0; set q4 0 - set q5 0; set q6 0; set q7 0; set q8 0; set q9 0 - set r0 0; set r1 0; set r2 0; set r3 0; set r4 0 - set r5 0; set r6 0; set r7 0; set r8 0; set r9 0 - set s0 0; set s1 0; set s2 0; set s3 0; set s4 0 - set s5 0; set s6 0; set s7 0; set s8 0; set s9 0 - set t0 0; set t1 0; set t2 0; set t3 0; set t4 0 - set t5 0; set t6 0; set t7 0; set t8 0; set t9 0 - set u0 0; set u1 0; set u2 0; set u3 0; set u4 0 - set u5 0; set u6 0; set u7 0; set u8 0; set u9 0 - set v0 0; set v1 0; set v2 0; set v3 0; set v4 0 - set v5 0; set v6 0; set v7 0; set v8 0; set v9 0 - set w0 0; set w1 0; set w2 0; set w3 0; set w4 0 - set w5 0; set w6 0; set w7 0; set w8 0; set w9 0 - set x0 0; set x1 0; set x2 0; set x3 0; set x4 0 - set x5 0; set x6 0; set x7 0; set x8 0; set x9 0 - set y0 0; set y1 0; set y2 0; set y3 0; set y4 0 - set y5 0; set y6 0; set y7 0; set y8 0; set y9 0 - set z0 0; set z1 0; set z2 0; set z3 0; set z4 0 - set z5 0; set z6 0; set z7 0; set z8 0; set z9 0 - # now increment the last one (local var index > 255) - $z z9 + set z incr + # create 260 locals + set a0 0; set a1 0; set a2 0; set a3 0; set a4 0 + set a5 0; set a6 0; set a7 0; set a8 0; set a9 0 + set b0 0; set b1 0; set b2 0; set b3 0; set b4 0 + set b5 0; set b6 0; set b7 0; set b8 0; set b9 0 + set c0 0; set c1 0; set c2 0; set c3 0; set c4 0 + set c5 0; set c6 0; set c7 0; set c8 0; set c9 0 + set d0 0; set d1 0; set d2 0; set d3 0; set d4 0 + set d5 0; set d6 0; set d7 0; set d8 0; set d9 0 + set e0 0; set e1 0; set e2 0; set e3 0; set e4 0 + set e5 0; set e6 0; set e7 0; set e8 0; set e9 0 + set f0 0; set f1 0; set f2 0; set f3 0; set f4 0 + set f5 0; set f6 0; set f7 0; set f8 0; set f9 0 + set g0 0; set g1 0; set g2 0; set g3 0; set g4 0 + set g5 0; set g6 0; set g7 0; set g8 0; set g9 0 + set h0 0; set h1 0; set h2 0; set h3 0; set h4 0 + set h5 0; set h6 0; set h7 0; set h8 0; set h9 0 + set i0 0; set i1 0; set i2 0; set i3 0; set i4 0 + set i5 0; set i6 0; set i7 0; set i8 0; set i9 0 + set j0 0; set j1 0; set j2 0; set j3 0; set j4 0 + set j5 0; set j6 0; set j7 0; set j8 0; set j9 0 + set k0 0; set k1 0; set k2 0; set k3 0; set k4 0 + set k5 0; set k6 0; set k7 0; set k8 0; set k9 0 + set l0 0; set l1 0; set l2 0; set l3 0; set l4 0 + set l5 0; set l6 0; set l7 0; set l8 0; set l9 0 + set m0 0; set m1 0; set m2 0; set m3 0; set m4 0 + set m5 0; set m6 0; set m7 0; set m8 0; set m9 0 + set n0 0; set n1 0; set n2 0; set n3 0; set n4 0 + set n5 0; set n6 0; set n7 0; set n8 0; set n9 0 + set o0 0; set o1 0; set o2 0; set o3 0; set o4 0 + set o5 0; set o6 0; set o7 0; set o8 0; set o9 0 + set p0 0; set p1 0; set p2 0; set p3 0; set p4 0 + set p5 0; set p6 0; set p7 0; set p8 0; set p9 0 + set q0 0; set q1 0; set q2 0; set q3 0; set q4 0 + set q5 0; set q6 0; set q7 0; set q8 0; set q9 0 + set r0 0; set r1 0; set r2 0; set r3 0; set r4 0 + set r5 0; set r6 0; set r7 0; set r8 0; set r9 0 + set s0 0; set s1 0; set s2 0; set s3 0; set s4 0 + set s5 0; set s6 0; set s7 0; set s8 0; set s9 0 + set t0 0; set t1 0; set t2 0; set t3 0; set t4 0 + set t5 0; set t6 0; set t7 0; set t8 0; set t9 0 + set u0 0; set u1 0; set u2 0; set u3 0; set u4 0 + set u5 0; set u6 0; set u7 0; set u8 0; set u9 0 + set v0 0; set v1 0; set v2 0; set v3 0; set v4 0 + set v5 0; set v6 0; set v7 0; set v8 0; set v9 0 + set w0 0; set w1 0; set w2 0; set w3 0; set w4 0 + set w5 0; set w6 0; set w7 0; set w8 0; set w9 0 + set x0 0; set x1 0; set x2 0; set x3 0; set x4 0 + set x5 0; set x6 0; set x7 0; set x8 0; set x9 0 + set y0 0; set y1 0; set y2 0; set y3 0; set y4 0 + set y5 0; set y6 0; set y7 0; set y8 0; set y9 0 + set z0 0; set z1 0; set z2 0; set z3 0; set z4 0 + set z5 0; set z6 0; set z7 0; set z8 0; set z9 0 + # now increment the last one (local var index > 255) + $z z9 } 260locals } {1} |