diff options
author | Richard Carlsson <[email protected]> | 2019-01-28 19:05:28 +0100 |
---|---|---|
committer | Richard Carlsson <[email protected]> | 2019-01-28 19:09:43 +0100 |
commit | ea0e763e953f9c7d1fa9c142f24cb95f56119c56 (patch) | |
tree | 9c2f1d4a7725a5168633f9370d7cebad054c851b /erts/emulator/beam/erl_init.c | |
parent | 87da7b5be69de01e65df566c6e35064381d1144d (diff) | |
download | otp-ea0e763e953f9c7d1fa9c142f24cb95f56119c56.tar.gz otp-ea0e763e953f9c7d1fa9c142f24cb95f56119c56.tar.bz2 otp-ea0e763e953f9c7d1fa9c142f24cb95f56119c56.zip |
Add -ztma option for enabling tuple calls
Diffstat (limited to 'erts/emulator/beam/erl_init.c')
-rw-r--r-- | erts/emulator/beam/erl_init.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/erts/emulator/beam/erl_init.c b/erts/emulator/beam/erl_init.c index 41bec17dfa..da8b998d61 100644 --- a/erts/emulator/beam/erl_init.c +++ b/erts/emulator/beam/erl_init.c @@ -729,6 +729,9 @@ void erts_usage(void) erts_fprintf(stderr, "-zebwt val set ets busy wait threshold, valid values are:\n"); erts_fprintf(stderr, " none|very_short|short|medium|long|very_long|extremely_long\n"); #endif + erts_fprintf(stderr, "-ztma bool enable/disable tuple module apply support in emulator\n"); + erts_fprintf(stderr, " (transitional flag for parameterized modules; recompile\n"); + erts_fprintf(stderr, " with +tuple_calls for compatibility with future versions)\n"); erts_fprintf(stderr, "\n"); erts_fprintf(stderr, "Note that if the emulator is started with erlexec (typically\n"); erts_fprintf(stderr, "from the erl script), these flags should be specified with +.\n"); @@ -2212,6 +2215,17 @@ erl_start(int argc, char **argv) erts_usage(); } } + else if (has_prefix("tma", sub_param)) { + arg = get_arg(sub_param+3, argv[i+1], &i); + if (sys_strcmp(arg,"true") == 0) { + tuple_module_apply = 1; + } else if (sys_strcmp(arg,"false") == 0) { + tuple_module_apply = 0; + } else { + erts_fprintf(stderr, "bad tuple module apply %s\n", arg); + erts_usage(); + } + } else { erts_fprintf(stderr, "bad -z option %s\n", argv[i]); erts_usage(); |