diff options
| author | John Högberg <[email protected]> | 2018-02-26 12:49:57 +0100 |
|---|---|---|
| committer | John Högberg <[email protected]> | 2018-03-23 09:50:59 +0100 |
| commit | 06ed628dfd013010dd6e182508c1137b9f4ba09b (patch) | |
| tree | 91dd86094c4e7d9383fc542d9cff7e818b6983e2 /lib/kernel/src | |
| parent | d77f0bdb55fd1bd36c4f19ab78cb02177d365b12 (diff) | |
| download | otp-06ed628dfd013010dd6e182508c1137b9f4ba09b.tar.gz otp-06ed628dfd013010dd6e182508c1137b9f4ba09b.tar.bz2 otp-06ed628dfd013010dd6e182508c1137b9f4ba09b.zip | |
Lift the type restrictions on seq_trace token labels
OTP-14899
Diffstat (limited to 'lib/kernel/src')
| -rw-r--r-- | lib/kernel/src/dist_util.erl | 2 | ||||
| -rw-r--r-- | lib/kernel/src/seq_trace.erl | 6 |
2 files changed, 3 insertions, 5 deletions
diff --git a/lib/kernel/src/dist_util.erl b/lib/kernel/src/dist_util.erl index f7a84c14b4..781397e1ee 100644 --- a/lib/kernel/src/dist_util.erl +++ b/lib/kernel/src/dist_util.erl @@ -113,6 +113,8 @@ dflag2str(?DFLAG_BIG_CREATION) -> "BIG_CREATION"; dflag2str(?DFLAG_SEND_SENDER) -> "SEND_SENDER"; +dflag2str(?DFLAG_BIG_SEQTRACE_LABELS) -> + "BIG_SEQTRACE_LABELS"; dflag2str(_) -> "UNKNOWN". diff --git a/lib/kernel/src/seq_trace.erl b/lib/kernel/src/seq_trace.erl index cc0c10909b..8d7aba0f27 100644 --- a/lib/kernel/src/seq_trace.erl +++ b/lib/kernel/src/seq_trace.erl @@ -41,7 +41,7 @@ -type flag() :: 'send' | 'receive' | 'print' | 'timestamp' | 'monotonic_timestamp' | 'strict_monotonic_timestamp'. -type component() :: 'label' | 'serial' | flag(). --type value() :: (Integer :: non_neg_integer()) +-type value() :: (Label :: term()) | {Previous :: non_neg_integer(), Current :: non_neg_integer()} | (Bool :: boolean()). @@ -59,10 +59,6 @@ set_token({Flags,Label,Serial,_From,Lastcnt}) -> F = decode_flags(Flags), set_token2([{label,Label},{serial,{Lastcnt, Serial}} | F]). -%% We limit the label type to always be a small integer because erl_interface -%% expects that, the BIF can however "unofficially" handle atoms as well, and -%% atoms can be used if only Erlang nodes are involved - -spec set_token(Component, Val) -> {Component, OldVal} when Component :: component(), Val :: value(), |