diff options
author | Haitao Li <lihaitao@gmail.com> | 2011-07-22 17:14:30 +0800 |
---|---|---|
committer | Björn Gustavsson <bjorn@erlang.org> | 2011-09-21 12:19:48 +0200 |
commit | 347dfb022195994a368ff12f8d009b7263044f50 (patch) | |
tree | 5e7212c88241cdd35b125a3239abab69f505440e /lib/compiler/src/beam_disasm.erl | |
parent | a3d8134ffcb4ec7be60bdc896fb9be0928c2b1ff (diff) | |
download | otp-347dfb022195994a368ff12f8d009b7263044f50.tar.gz otp-347dfb022195994a368ff12f8d009b7263044f50.tar.bz2 otp-347dfb022195994a368ff12f8d009b7263044f50.zip |
beam_disasm: Handle stripped BEAM files
beam_disasm:file/1 would crash if asked to disassemble a stripped
BEAM file without an "Attr" chunk.
Diffstat (limited to 'lib/compiler/src/beam_disasm.erl')
-rw-r--r-- | lib/compiler/src/beam_disasm.erl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/compiler/src/beam_disasm.erl b/lib/compiler/src/beam_disasm.erl index 017ca129b0..bb62bb04b3 100644 --- a/lib/compiler/src/beam_disasm.erl +++ b/lib/compiler/src/beam_disasm.erl @@ -204,7 +204,7 @@ process_chunks(F) -> optional_chunk(F, ChunkTag) -> case beam_lib:chunks(F, [ChunkTag]) of {ok,{_Module,[{ChunkTag,Chunk}]}} -> Chunk; - {error,beam_lib,{missing_chunk,_,ChunkTag}} -> none + {error,beam_lib,{missing_chunk,_,_}} -> none end. %%----------------------------------------------------------------------- |