File 0893-kernel-Fix-global-many-nodes-tc-to-use-less-threads.patch of Package erlang

From b6780f30ca3d8fd1a296491d493394f4be9d9dc1 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Thu, 23 Apr 2020 17:48:51 +0200
Subject: [PATCH 07/14] kernel: Fix global many nodes tc to use less threads

---
 lib/kernel/test/global_SUITE.erl | 34 +++++++++++++++++++++-------------
 1 file changed, 21 insertions(+), 13 deletions(-)

diff --git a/lib/kernel/test/global_SUITE.erl b/lib/kernel/test/global_SUITE.erl
index 3c4654b44c..22db756d97 100644
--- a/lib/kernel/test/global_SUITE.erl
+++ b/lib/kernel/test/global_SUITE.erl
@@ -3738,13 +3738,17 @@ start_node(Name, How, Config) ->
 start_node(Name0, How, Args, Config) ->
     Name = node_name(Name0, Config),
     Pa = filename:dirname(code:which(?MODULE)),
-    R = test_server:start_node(Name, How, [{args,
-					    Args ++ " " ++
-						"-kernel net_setuptime 100 "
-					    %%					    "-noshell "
-					    "-pa " ++ Pa},
-					   {linked, false}
-					  ]),
+    R = test_server:start_node(
+          Name, How, [{args,
+                       Args ++
+                           " -kernel net_setuptime 100 " ++
+                           %% Limit the amount of threads so that we
+                           %% don't run into the maximum allowed
+                           " +S 1 +SDio 1 " ++
+                           %% "-noshell "
+                           "-pa " ++ Pa},
+                      {linked, false}
+                     ]),
     %% {linked,false} only seems to work for slave nodes.
     %%    ct:sleep(1000),
     record_started_node(R).
@@ -3761,12 +3765,16 @@ start_node_rel(Name0, Rel, Config) ->
 			end,
     Env = [],
     Pa = filename:dirname(code:which(?MODULE)),
-    Res = test_server:start_node(Name, peer, 
-                                 [{args,
-                                   Compat ++ 
-				       " -kernel net_setuptime 100 "
-                                   " -pa " ++ Pa},
-                                  {erl, Release}] ++ Env),
+    Res = test_server:start_node(
+            Name, peer,
+            [{args,
+              Compat ++
+                  " -kernel net_setuptime 100 " ++
+                  %% Limit the amount of threads so that we
+                  %% don't run into the maximum allowed
+                  " +S 1 +SDio 1 " ++
+                  "-pa " ++ Pa},
+             {erl, Release}] ++ Env),
     record_started_node(Res).
 
 record_started_node({ok, Node}) ->
-- 
2.16.4

openSUSE Build Service is sponsored by