diff options
| author | Kostis Sagonas <[email protected]> | 2012-01-16 12:30:12 +0100 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2012-02-20 13:08:04 +0100 |
| commit | 34f76104e4ce731f6b2e0969ade5e92e2bfddeae (patch) | |
| tree | b6e2e6758ec8877567b0bea4e6ac19fc71b62203 /lib/compiler/test | |
| parent | 8d59a1fc518719c8c445d9d94b23c173c18b4438 (diff) | |
| download | otp-34f76104e4ce731f6b2e0969ade5e92e2bfddeae.tar.gz otp-34f76104e4ce731f6b2e0969ade5e92e2bfddeae.tar.bz2 otp-34f76104e4ce731f6b2e0969ade5e92e2bfddeae.zip | |
Fix discrepancy in compile_info
The BEAM disassembler used the atom 'none' to signify the absence
of a compile_info chunk in a .beam file. This clashes with the type
declaration of the compile_info field of a #beam_file{} record as
containing a list. Use [] to signify the absence of this chunk.
This simplifies the code and avoids a dialyzer warning.
For fixing a similar problem and for consistency, changed also the
return type of the attributes field of the #beam_file{} record.
This required a change in the beam_disasm test suite.
Diffstat (limited to 'lib/compiler/test')
| -rw-r--r-- | lib/compiler/test/beam_disasm_SUITE.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/compiler/test/beam_disasm_SUITE.erl b/lib/compiler/test/beam_disasm_SUITE.erl index 44574ae64a..62afc80ca6 100644 --- a/lib/compiler/test/beam_disasm_SUITE.erl +++ b/lib/compiler/test/beam_disasm_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2011. All Rights Reserved. +%% Copyright Ericsson AB 2011-2012. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -60,6 +60,6 @@ stripped(Config) when is_list(Config) -> ?line true = is_list(Attr), ?line true = is_list(CompileInfo), ?line {ok, {tmp, _}} = beam_lib:strip(BeamName), - ?line {beam_file, tmp, _, none, none, [_|_]} = + ?line {beam_file, tmp, _, [], [], [_|_]} = beam_disasm:file(BeamName), ok. |