Lines Matching refs:l2
121 proc srec_compare_fail { which l1 l2 } { argument
122 send_log "comparison failure $which:\n$l1\n$l2\n"
123 verbose "comparison failure $which:\n$l1\n$l2"
131 set e2 [gets $f2 l2]
135 set l2 [string trimright $l2 "\r\n"]
143 } else { if { [string compare $l1 $l2] == 0 } {
145 set e2 [gets $f2 l2]
148 } else { if { [srec_zero $l2] } {
149 set e2 [gets $f2 l2]
154 set a2 [srec_addr $l2]
155 set n2 [srec_len $l2]
159 srec_compare_fail 1 $l1 $l2
162 if { $a2 < $a1 && ![srec_zero_range $l2 0 [expr $a1 - $a2]] } {
163 srec_compare_fail 2 $l1 $l2
183 set x2 [srec_extract $l2 $os2 $ol]
187 srec_compare_fail 3 $l1 $l2
195 set l2 [srec_trim $l2 [expr ($a2 + $n2) - ($a1 + $n1)]]
199 set e2 [gets $f2 l2]
202 set e2 [gets $f2 l2]
210 set l2 [string trimright $l2 "\r\n"]
211 if ![srec_zero $l2] {
212 send_log "data after EOF: $l2\n"
213 verbose "data after EOF: $l2"
216 set e2 [gets $f2 l2]