diff options
| author | Sverker Eriksson <[email protected]> | 2012-08-21 11:12:20 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2012-08-21 11:53:16 +0200 |
| commit | 17a8416f2ccbcda98c5d28af2b007aaca2b333fe (patch) | |
| tree | ddf96bd954a2662145892e90bc7f2801b076f0db | |
| parent | 2a017b471cb2096eccf2f908f38a7a5305901788 (diff) | |
| download | otp-17a8416f2ccbcda98c5d28af2b007aaca2b333fe.tar.gz otp-17a8416f2ccbcda98c5d28af2b007aaca2b333fe.tar.bz2 otp-17a8416f2ccbcda98c5d28af2b007aaca2b333fe.zip | |
Fix bug in ets:test_ms/2.
copy_shallow was called when using '$_'
| -rw-r--r-- | erts/emulator/beam/erl_db_util.c | 2 | ||||
| -rw-r--r-- | lib/stdlib/test/ets_SUITE.erl | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/erts/emulator/beam/erl_db_util.c b/erts/emulator/beam/erl_db_util.c index 1aa0cb4552..42907e2e84 100644 --- a/erts/emulator/beam/erl_db_util.c +++ b/erts/emulator/beam/erl_db_util.c @@ -1233,7 +1233,7 @@ static Eterm erts_match_set_run_ets(Process *p, Binary *mpsp, Eterm ret; ret = db_prog_match(p, mpsp, args, NULL, NULL, num_args, - ERTS_PAM_CONTIGUOUS_TUPLE | ERTS_PAM_COPY_RESULT, + ERTS_PAM_COPY_RESULT, return_flags); #if defined(HARDDEBUG) if (is_non_value(ret)) { diff --git a/lib/stdlib/test/ets_SUITE.erl b/lib/stdlib/test/ets_SUITE.erl index 97ac433cb9..95f10b1df3 100644 --- a/lib/stdlib/test/ets_SUITE.erl +++ b/lib/stdlib/test/ets_SUITE.erl @@ -1026,6 +1026,8 @@ t_test_ms(Config) when is_list(Config) -> [{{'$1','$2'},[{'<','$1','$2'}],['$$']}]), ?line {ok,false} = ets:test_ms({a,b}, [{{'$1','$2'},[{'>','$1','$2'}],['$$']}]), + Tpl = {a,gb_sets:new()}, + ?line {ok,Tpl} = ets:test_ms(Tpl, [{{'_','_'}, [], ['$_']}]), % OTP-10190 ?line {error,[{error,String}]} = ets:test_ms({a,b}, [{{'$1','$2'}, [{'flurp','$1','$2'}], |