Lines Matching refs:p1
38 set p1 $key
39 set kvals($p1) $str
66 { {recd008_parent abort ENV DB $method $p1 TXNID 1 1 $breadth $depth}
68 { {recd008_parent commit ENV DB $method $p1 TXNID 1 1 $breadth $depth}
75 recd008_setkval $dbfile $p1
77 recd008_setkval $dbfile $p1
88 proc recd008_setkval { dbfile p1 } {
94 set ret [$db get $p1]
96 set kvals($p1) [lindex [lindex $ret 0] 1]
109 # (children modify p1)
110 # Parent modifies p1
137 # Parent modifies p1
193 # Modifies p1.