Lines Matching refs:pc
578 set pc $pcstart
579 while {$pc*2 < [llength $arglist]} {
581 set k [lindex $arglist [expr {2 * $pc}]]
582 set v [lindex $arglist [expr {2 * $pc + 1}]]
585 set iterid "pc=$pc.iFail=$iFail$k"
593 incr pc
632 set begin_pc $pc
635 incr pc
648 for {set i $begin_pc} {$i < $pc} {incr i} {
664 while {[lindex $arglist [expr {2 * ($pc - 1)}]] == "-test"} {
665 incr pc -1
671 incr pc
676 incr pc