X-Git-Url: https://git.xandkar.net/?p=beam_stats.git;a=blobdiff_plain;f=src%2Fbeam_stats_state.erl;h=4dcadd6aa32ace7745ca187e0392343592544e70;hp=17f9c904234bbb4d62c819ea1092e25dec608ff9;hb=142c0796ba129bf10a47dfa447b460bb8fa123a5;hpb=3fe887d79d3cfe5d52c42aa178b912b6521980a2

diff --git a/src/beam_stats_state.erl b/src/beam_stats_state.erl
index 17f9c90..4dcadd6 100644
--- a/src/beam_stats_state.erl
+++ b/src/beam_stats_state.erl
@@ -24,6 +24,8 @@
 
     , previous_context_switches :: non_neg_integer()
     ,  current_context_switches :: non_neg_integer()
+
+    , reductions                :: non_neg_integer()
     }).
 
 -define(T, #?MODULE).
@@ -38,6 +40,7 @@ new() ->
     , {output , CurrentIOBytesOut}
     } = erlang:statistics(io),
     {CurrentContextSwitches, 0} = erlang:statistics(context_switches),
+    {_ReductionsTotal, ReductionsDelta} = erlang:statistics(reductions),
     ?T
     { timestamp             = os:timestamp()
     , node_id               = erlang:node()
@@ -48,6 +51,7 @@ new() ->
     , current_io_bytes_out  = CurrentIOBytesOut
     , previous_context_switches = 0
     ,  current_context_switches = CurrentContextSwitches
+    , reductions                = ReductionsDelta
     }.
 
 -spec update(t()) ->
@@ -62,6 +66,7 @@ update(?T
     , {output , CurrentIOBytesOut}
     } = erlang:statistics(io),
     {CurrentContextSwitches, 0} = erlang:statistics(context_switches),
+    {_ReductionsTotal, ReductionsDelta} = erlang:statistics(reductions),
     ?T
     { timestamp             = os:timestamp()
     , node_id               = erlang:node()
@@ -72,6 +77,7 @@ update(?T
     , current_io_bytes_out  = CurrentIOBytesOut
     , previous_context_switches = PreviousContextSwitches
     ,  current_context_switches = CurrentContextSwitches
+    , reductions                = ReductionsDelta
     }.
 
 -spec export(t()) ->
@@ -87,6 +93,7 @@ export(
     , current_io_bytes_out  = CurrentIOBytesOut
     , previous_context_switches = PreviousContextSwitches
     ,  current_context_switches = CurrentContextSwitches
+    , reductions                = Reductions
     }
 ) ->
     #beam_stats
@@ -96,4 +103,5 @@ export(
     , io_bytes_in  = CurrentIOBytesIn  - PreviousIOBytesIn
     , io_bytes_out = CurrentIOBytesOut - PreviousIOBytesOut
     , context_switches = CurrentContextSwitches - PreviousContextSwitches
+    , reductions       = Reductions
     }.