+-spec of_process_info_reductions(t(), pid()) ->
+ hope_option:t(non_neg_integer()).
+of_process_info_reductions(?T{erlang_process_info_reductions=Table}, Pid) ->
+ case beam_stats_source:erlang_process_info(Pid, reductions)
+ of undefined ->
+ none
+ ; {reductions, Current} ->
+ Delta = delta(Table, Pid, Current),
+ {some, Delta}
+ end.
+
+-spec delta(ets:tid(), Key, non_neg_integer()) ->
+ non_neg_integer()
+ when Key :: atom() | pid().