Lines Matching refs:L

123 set L(0) {n n n n n n n n}
124 set L(1) {n n n n n n n n}
126   global L
130     if {[lindex $L($idx) $iSlot]!="n"} {
131       vfs_shmlock db$idx main [lindex $L($idx) $iSlot] unlock $iSlot 1
132       lset L($idx) $iSlot n
136     if {[lindex $L($idx) $iSlot]=="n"} {
140         for {set l $iSlot} {$l<8 && [lindex $L($idx) $l]=="n"} {incr l} {}
146         # puts "iSlot=$iSlot l=$l L=$L($idx)"
153         set other [lindex $L([expr ($idx+1)%2]) $i]
164           lset L($idx) $i $locktype