Fix ets:update_element/4

Co-authored-by: Maria Scott <maria-12648430@hnc-agency.org>

Author: 2 people

erts/emulator/beam/erl_db.c

@@ -1407,7 +1407,8 @@ BIF_RETTYPE ets_update_element_4(BIF_ALIST_4)
 
     DB_BIF_GET_TABLE(tb, DB_WRITE, LCK_WRITE_REC, BIF_ets_update_element_4);
 
-    if (is_not_tuple(BIF_ARG_4)) {
+    if (is_not_tuple(BIF_ARG_4)
+	|| arityval(*tuple_val(BIF_ARG_4)) < tb->common.keypos) {
         db_unlock(tb, LCK_WRITE_REC);
         BIF_ERROR(BIF_P, BADARG);
     }

lib/stdlib/test/ets_SUITE.erl

@@ -2699,6 +2699,13 @@ update_element_default_opts(Opts) ->
 		    [{key1, key2, b, x}] = ets:lookup(Tab, Key),
 		    true = ets:update_element(Tab, Key, {3, c}, {key1, key2, a, y}),
 		    [{key1, key2, c, x}] = ets:lookup(Tab, Key),
+		    ok = try
+			     Sz = Pos - 1,
+			     Obj = list_to_tuple(lists:seq(1, Sz)),
+			     ets:update_element(Tab, key_not_present, {1, x}, Obj)
+			 catch
+			     error:badarg -> ok
+			 end,
 		    ets:delete(Tab)
                 end
 	    )