Lines Matching refs:fi
59 set fi [open $src r+]
60 fconfigure $fi -translation binary
61 if {[read $fi 2] != "MZ"} {
65 seek $fi 0x40
66 puts -nonewline $fi "objcopy-test-go32stub"
68 close $fi
85 set fi [open $src]
86 fconfigure $fi -translation binary
87 set src_stub [read $fi 2048]
88 close $fi
89 set fi [open $dest]
90 fconfigure $fi -translation binary
91 set dest_stub [read $fi 2048]
92 close $fi