Lines Matching refs:l1
121 proc srec_compare_fail { which l1 l2 } {
122 send_log "comparison failure $which:\n$l1\n$l2\n"
123 verbose "comparison failure $which:\n$l1\n$l2"
130 set e1 [gets $f1 l1]
134 set l1 [string trimright $l1 "\r\n"]
138 if ![srec_zero $l1] {
139 send_log "data after EOF: $l1\n"
140 verbose "data after EOF: $l1"
143 } else { if { [string compare $l1 $l2] == 0 } {
144 set e1 [gets $f1 l1]
146 } else { if { [srec_zero $l1] } {
147 set e1 [gets $f1 l1]
152 set a1 [srec_addr $l1]
153 set n1 [srec_len $l1]
157 if { $a1 < $a2 && ![srec_zero_range $l1 0 [expr $a2 - $a1]] } {
158 verbose "$a1 $a2 [srec_extract $l1 0 [expr $a2 - $a1]]" 2
159 srec_compare_fail 1 $l1 $l2
163 srec_compare_fail 2 $l1 $l2
182 set x1 [srec_extract $l1 $os1 $ol]
187 srec_compare_fail 3 $l1 $l2
196 set e1 [gets $f1 l1]
198 set l1 [srec_trim $l1 [expr ($a1 + $n1) - ($a2 + $n2)]]
201 set e1 [gets $f1 l1]