File 5907-kernel-test-More-windows-info-during-suite-init.patch of Package erlang

From 0046f142e7019559c7bf92e8ad7fae3e4d0a5c18 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Fri, 17 Jun 2022 19:29:42 +0200
Subject: [PATCH 7/7] [kernel|test] More windows info during suite init

OTP-18032
---
 lib/kernel/test/kernel_test_lib.erl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/kernel/test/kernel_test_lib.erl b/lib/kernel/test/kernel_test_lib.erl
index 22a8929185..b68c93a935 100644
--- a/lib/kernel/test/kernel_test_lib.erl
+++ b/lib/kernel/test/kernel_test_lib.erl
@@ -1484,17 +1484,22 @@ analyze_and_print_win_host_info(Version) ->
     OsVersion  = win_sys_info_lookup(os_version,          SysInfo),
     SysMan     = win_sys_info_lookup(system_manufacturer, SysInfo),
     SysMod     = win_sys_info_lookup(system_model,        SysInfo),
+    SysType    = win_sys_info_lookup(system_type,         SysInfo),
     NumProcs   = win_sys_info_lookup(num_processors,      SysInfo),
     TotPhysMem = win_sys_info_lookup(total_phys_memory,   SysInfo),
     io:format("Windows: ~s"
               "~n   OS Version:             ~s (~p)"
               "~n   System Manufacturer:    ~s"
               "~n   System Model:           ~s"
+              "~n   System Type:            ~s"
               "~n   Number of Processor(s): ~s"
               "~n   Total Physical Memory:  ~s"
+              "~n   (Erlang) WordSize:      ~w"
               "~n   Num Online Schedulers:  ~s"
               "~n~n", [OsName, OsVersion, Version,
-                       SysMan, SysMod, NumProcs, TotPhysMem,
+                       SysMan, SysMod, SysType,
+                       NumProcs, TotPhysMem,
+                       erlang:system_info(wordsize),
                        str_num_schedulers()]),
     io:format("TS Scale Factor: ~w~n", [timetrap_scale_factor()]),
     MemFactor =
@@ -1600,6 +1605,9 @@ process_win_system_info([H|T], Acc) ->
                 "system model" ->
                     process_win_system_info(T,
                                             [{system_model, string:trim(Value)}|Acc]);
+                "system type" ->
+                    process_win_system_info(T,
+                                            [{system_type, string:trim(Value)}|Acc]);
                 "processor(s)" ->
                     [NumProcStr|_] = string:tokens(Value, [$\ ]),
                     T2 = lists:nthtail(list_to_integer(NumProcStr), T),
-- 
2.35.3