File 2132-Measure-measure-overhead.patch of Package erlang

From 055239bf3cd7f95d6c6bdb1be2b90e0c6b8987fa Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Mon, 14 Mar 2022 10:54:48 +0100
Subject: [PATCH 2/4] Measure measure() overhead

---
 lib/stdlib/test/rand_SUITE.erl | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lib/stdlib/test/rand_SUITE.erl b/lib/stdlib/test/rand_SUITE.erl
index a6b7edce12..09e1815962 100644
--- a/lib/stdlib/test/rand_SUITE.erl
+++ b/lib/stdlib/test/rand_SUITE.erl
@@ -1078,7 +1078,7 @@ do_measure(_Config) ->
           Algs),
     %%
     ct:pal("~nRNG uniform integer full range performance~n",[]),
-    _ =
+    [TMarkUniformFullRange|_] =
         measure_1(
           fun (State) -> half_range(State) bsl 1 end,
           fun (State, Range, Mod) ->
@@ -1091,6 +1091,15 @@ do_measure(_Config) ->
                     State)
           end,
           Algs),
+    _ =
+        measure_1(
+          fun (_) -> 0 end,
+          fun (State, _, _) ->
+                  measure_loop(
+                    fun (State0) -> State0 end,
+                    State)
+          end,
+          benchmark_dummy, TMarkUniformFullRange),
     %%
     ct:pal("~nRNG uniform integer full range + 1 performance~n",[]),
     _ =
@@ -1276,6 +1285,8 @@ measure_1(RangeFun, Fun, Alg, TMark) ->
                 {?MODULE, ignored_state};
             crypto_bytes_cached ->
                 {?MODULE, <<>>};
+            benchmark_dummy ->
+                {?MODULE, ignored_state};
             _ ->
                 {rand, rand:seed_s(Alg)}
         end,
-- 
2.34.1

openSUSE Build Service is sponsored by