diff options
| author | Björn Gustavsson <[email protected]> | 2019-05-27 04:46:41 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2019-05-27 05:47:00 +0200 |
| commit | 73c5ceba1185b0be7db9acac8593e5b913dba845 (patch) | |
| tree | cf19a07b23134121eb39efe4643dfeb62f497bf9 /lib/compiler/test/core_SUITE.erl | |
| parent | d32991afaf3fc5f9f73e3e2448672bb9a1b80101 (diff) | |
| download | otp-73c5ceba1185b0be7db9acac8593e5b913dba845.tar.gz otp-73c5ceba1185b0be7db9acac8593e5b913dba845.tar.bz2 otp-73c5ceba1185b0be7db9acac8593e5b913dba845.zip | |
Fix loading of Core Erlang code for extracting a map element
The following Core Erlang code could not be loaded:
'f'/1 = fun (_1) ->
case <_1> of
<~{'foo':='foo'}~> when 'true' ->
_1
end
Loading would fail with the following message:
beam/beam_load.c(2314): Error loading function example:f/1: op i_get_map_element_hash p x a u x:
no specific operation found
https://bugs.erlang.org/browse/ERL-955
Diffstat (limited to 'lib/compiler/test/core_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/core_SUITE.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/compiler/test/core_SUITE.erl b/lib/compiler/test/core_SUITE.erl index e5611e99d1..72016c6d76 100644 --- a/lib/compiler/test/core_SUITE.erl +++ b/lib/compiler/test/core_SUITE.erl @@ -29,7 +29,8 @@ bs_shadowed_size_var/1, cover_v3_kernel_1/1,cover_v3_kernel_2/1,cover_v3_kernel_3/1, cover_v3_kernel_4/1,cover_v3_kernel_5/1, - non_variable_apply/1,name_capture/1,fun_letrec_effect/1]). + non_variable_apply/1,name_capture/1,fun_letrec_effect/1, + get_map_element/1]). -include_lib("common_test/include/ct.hrl"). @@ -57,7 +58,8 @@ groups() -> bs_shadowed_size_var, cover_v3_kernel_1,cover_v3_kernel_2,cover_v3_kernel_3, cover_v3_kernel_4,cover_v3_kernel_5, - non_variable_apply,name_capture,fun_letrec_effect + non_variable_apply,name_capture,fun_letrec_effect, + get_map_element ]}]. @@ -95,6 +97,7 @@ end_per_group(_GroupName, Config) -> ?comp(non_variable_apply). ?comp(name_capture). ?comp(fun_letrec_effect). +?comp(get_map_element). try_it(Mod, Conf) -> Src = filename:join(proplists:get_value(data_dir, Conf), |