diff --git a/src/asm_acquire.ml b/src/asm_acquire.ml index ac0fa24..1b236c2 100644 --- a/src/asm_acquire.ml +++ b/src/asm_acquire.ml @@ -272,3 +272,9 @@ let interpret_objdump objdump_out : asm_info_t = (match result with | ObjdumpAccu(result, _, None, []) -> result | _ -> raise (ParseError "Invalid end state")) + + +(** Extract asm infos from an ELF file path *) +let acquire_asm elf_path = + get_objdump elf_path + |> interpret_objdump