summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-08-22 10:53:03 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-08-22 10:53:03 (GMT)
commit403e88457f72f90f3ee8c07ce5854735e8951689 (patch)
treed7723d1627587d527d1cb4e4f6513bb784d6a73b /tests
parente1cb27f660b60297d4dd1533a2a6c91b0b622abc (diff)
parent94341f98919bb5c68335f97cf1346d3081d57d6e (diff)
downloadtcl-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.test247
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}