diff options
| author | Sverker Eriksson <[email protected]> | 2018-11-21 15:54:17 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2018-11-21 15:54:17 +0100 |
| commit | f504781a136b1992a1cee26a7da841892d796d91 (patch) | |
| tree | e0b5268ab1cfdcf229154fb316200fbd59a9782e /erts/preloaded | |
| parent | fefb5d039e87ff7137e78b3d5f2eaf01e498ec4d (diff) | |
| download | otp-f504781a136b1992a1cee26a7da841892d796d91.tar.gz otp-f504781a136b1992a1cee26a7da841892d796d91.tar.bz2 otp-f504781a136b1992a1cee26a7da841892d796d91.zip | |
erts: Add counters:put/3
Diffstat (limited to 'erts/preloaded')
| -rw-r--r-- | erts/preloaded/ebin/counters.beam | bin | 2808 -> 3140 bytes | |||
| -rw-r--r-- | erts/preloaded/ebin/erts_internal.beam | bin | 17508 -> 17632 bytes | |||
| -rw-r--r-- | erts/preloaded/src/counters.erl | 14 | ||||
| -rw-r--r-- | erts/preloaded/src/erts_internal.erl | 6 |
4 files changed, 19 insertions, 1 deletions
diff --git a/erts/preloaded/ebin/counters.beam b/erts/preloaded/ebin/counters.beam Binary files differindex caaa6167e1..4e1a3566f7 100644 --- a/erts/preloaded/ebin/counters.beam +++ b/erts/preloaded/ebin/counters.beam diff --git a/erts/preloaded/ebin/erts_internal.beam b/erts/preloaded/ebin/erts_internal.beam Binary files differindex e174f71966..651d5e9d05 100644 --- a/erts/preloaded/ebin/erts_internal.beam +++ b/erts/preloaded/ebin/erts_internal.beam diff --git a/erts/preloaded/src/counters.erl b/erts/preloaded/src/counters.erl index 67354f648d..a0e3035e0f 100644 --- a/erts/preloaded/src/counters.erl +++ b/erts/preloaded/src/counters.erl @@ -26,6 +26,7 @@ get/2, add/3, sub/3, + put/3, info/1]). -export_type([counters_ref/0]). @@ -76,6 +77,19 @@ add(_, _, _) -> sub(Ref, Ix, Decr) -> add(Ref, Ix, -Decr). + +-spec put(Ref, Ix, Value) -> ok when + Ref :: counters_ref(), + Ix :: integer(), + Value :: integer(). +put({atomics, Ref}, Ix, Value) -> + atomics:put(Ref, Ix, Value); +put({write_concurrency, Ref}, Ix, Value) -> + erts_internal:counters_put(Ref, Ix, Value); +put(_, _, _) -> + erlang:error(badarg). + + -spec info(Ref) -> Info when Ref :: counters_ref(), Info :: #{'size':=Size, 'memory':=Memory}, diff --git a/erts/preloaded/src/erts_internal.erl b/erts/preloaded/src/erts_internal.erl index d491a505c6..8f29a569f2 100644 --- a/erts/preloaded/src/erts_internal.erl +++ b/erts/preloaded/src/erts_internal.erl @@ -95,7 +95,7 @@ -export([atomics_new/2]). -export([counters_new/1, counters_get/2, counters_add/3, - counters_info/1]). + counters_put/3, counters_info/1]). %% %% Await result of send to port @@ -719,6 +719,10 @@ counters_get(_Ref, _Ix) -> counters_add(_Ref, _Ix, _Incr) -> erlang:nif_error(undef). +-spec counters_put(reference(), pos_integer(), integer()) -> ok. +counters_put(_Ref, _Ix, _Value) -> + erlang:nif_error(undef). + -spec counters_info(reference()) -> #{}. counters_info(_Ref) -> erlang:nif_error(undef). |