aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator/beam/beam_bif_load.c
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2011-08-10 14:39:34 +0200
committerBjörn Gustavsson <[email protected]>2011-08-25 09:54:31 +0200
commit631939c2452413014dfe3777997157ab541770ae (patch)
tree06452bae61ac570205734b06a6f18e72f66c4c24 /erts/emulator/beam/beam_bif_load.c
parent1c40ae26dfb9b5578e7d307f901d4178d6244849 (diff)
downloadotp-631939c2452413014dfe3777997157ab541770ae.tar.gz
otp-631939c2452413014dfe3777997157ab541770ae.tar.bz2
otp-631939c2452413014dfe3777997157ab541770ae.zip
Add erlang:check_old_code/1
Add erlang:check_old_code/1 to quickly check whether a module has old code. If there is no old code, there is no need to call erlang:check_process_code/2 for all processes, which will save some time if there are many processes.
Diffstat (limited to 'erts/emulator/beam/beam_bif_load.c')
-rw-r--r--erts/emulator/beam/beam_bif_load.c17
1 files changed, 17 insertions, 0 deletions
diff --git a/erts/emulator/beam/beam_bif_load.c b/erts/emulator/beam/beam_bif_load.c
index 7b5781beeb..2561d7a630 100644
--- a/erts/emulator/beam/beam_bif_load.c
+++ b/erts/emulator/beam/beam_bif_load.c
@@ -162,6 +162,23 @@ BIF_RETTYPE code_make_stub_module_3(BIF_ALIST_3)
return res;
}
+BIF_RETTYPE
+check_old_code_1(BIF_ALIST_1)
+{
+ Module* modp;
+
+ if (is_not_atom(BIF_ARG_1)) {
+ BIF_ERROR(BIF_P, BADARG);
+ }
+ modp = erts_get_module(BIF_ARG_1);
+ if (modp == NULL) { /* Doesn't exist. */
+ BIF_RET(am_false);
+ } else if (modp->old_code == NULL) { /* No old code. */
+ BIF_RET(am_false);
+ }
+ BIF_RET(am_true);
+}
+
Eterm
check_process_code_2(BIF_ALIST_2)
{