bintools/evalid/EvalidCompare.pm
changeset 664 44b0e894b7ab
parent 653 8ee61c1e0c5c
parent 655 3f65fd25dfd4
child 676 b5e6747818a9
equal deleted inserted replaced
654:7c11c3d8d025 664:44b0e894b7ab
   229     else {
   229     else {
   230       return "Unknown COFF object";
   230       return "Unknown COFF object";
   231     }
   231     }
   232   }
   232   }
   233 
   233 
   234   if ($typeBuf =~ /^!<arch>\x0A(.{48}([0-9 ]{9}).\x60\x0A(......))/s) {
   234   if ($typeBuf =~ /^!<arch>\x0A(.{48}([0-9 ]{9})\x60\x0A(......))/s) {
   235     # library - could be MARM or WINS
   235     # library - could be MARM or WINS
   236 
   236 
   237     $typeBuf = $1;
   237     $typeBuf = $1;
   238     my $member_start = 8;
   238     my $member_start = 8;
   239 
   239