File tree Expand file tree Collapse file tree 1 file changed +10
-10
lines changed Expand file tree Collapse file tree 1 file changed +10
-10
lines changed Original file line number Diff line number Diff line change @@ -1703,16 +1703,16 @@ let sniff
1703
1703
: asm_reader option =
1704
1704
try
1705
1705
let stat = Unix. stat filename in
1706
- if (stat.Unix. st_kind = Unix. S_REG ) &&
1707
- (stat.Unix. st_size > 4 )
1708
- then
1709
- let ar = new_asm_reader sess filename in
1710
- let _ = log sess " sniffing ELF file" in
1711
- if (ar.asm_get_zstr_padded 4 ) = elf_magic
1712
- then (ar.asm_seek 0 ; Some ar)
1713
- else None
1714
- else
1715
- None
1706
+ if (stat.Unix. st_kind = Unix. S_REG ) &&
1707
+ (stat.Unix. st_size > 4 )
1708
+ then
1709
+ let ar = new_asm_reader sess filename in
1710
+ let _ = log sess " sniffing ELF file" in
1711
+ if (ar.asm_get_zstr_padded 4 ) = elf_magic
1712
+ then (ar.asm_seek 0 ; Some ar)
1713
+ else None
1714
+ else
1715
+ None
1716
1716
with
1717
1717
_ -> None
1718
1718
;;
You can’t perform that action at this time.
0 commit comments