aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator
diff options
context:
space:
mode:
authorRichard Carlsson <[email protected]>2014-05-14 14:49:10 +0200
committerSverker Eriksson <[email protected]>2014-05-14 14:49:10 +0200
commit4ad572a8b66df8174d92157411326aab95ee8124 (patch)
tree7bced5ba8e8b98fc7306cca1b12923ef400c8974 /erts/emulator
parentfdb350a4c98f070c264b8bd4ea9eca2513352f21 (diff)
downloadotp-4ad572a8b66df8174d92157411326aab95ee8124.tar.gz
otp-4ad572a8b66df8174d92157411326aab95ee8124.tar.bz2
otp-4ad572a8b66df8174d92157411326aab95ee8124.zip
Add 'module' entry for module_info/0 function for completeness
as it exist in module_info/1.
Diffstat (limited to 'erts/emulator')
-rw-r--r--erts/emulator/beam/beam_load.c1
-rw-r--r--erts/emulator/test/module_info_SUITE.erl1
2 files changed, 2 insertions, 0 deletions
diff --git a/erts/emulator/beam/beam_load.c b/erts/emulator/beam/beam_load.c
index 5c98d5c0b5..8b3fc90826 100644
--- a/erts/emulator/beam/beam_load.c
+++ b/erts/emulator/beam/beam_load.c
@@ -5119,6 +5119,7 @@ erts_module_info_0(Process* p, Eterm module)
BUILD_INFO(am_attributes);
BUILD_INFO(am_imports);
BUILD_INFO(am_exports);
+ BUILD_INFO(am_module);
#undef BUILD_INFO
return list;
}
diff --git a/erts/emulator/test/module_info_SUITE.erl b/erts/emulator/test/module_info_SUITE.erl
index 06cd2a9b9a..f3986f0c4f 100644
--- a/erts/emulator/test/module_info_SUITE.erl
+++ b/erts/emulator/test/module_info_SUITE.erl
@@ -128,6 +128,7 @@ info(Config) when is_list(Config) ->
Info = erlang:get_module_info(?MODULE),
All = all_exported(),
{ok,{?MODULE,MD5}} = beam_lib:md5(code:which(?MODULE)),
+ {module, ?MODULE} = lists:keyfind(module, 1, Info),
{md5, MD5} = lists:keyfind(md5, 1, Info),
{exports, Exports} = lists:keyfind(exports, 1, Info),
All = lists:sort(Exports),