diff options
Diffstat (limited to 'erts/emulator/test/a_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/a_SUITE.erl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/erts/emulator/test/a_SUITE.erl b/erts/emulator/test/a_SUITE.erl index 59b7839a87..0f749f629e 100644 --- a/erts/emulator/test/a_SUITE.erl +++ b/erts/emulator/test/a_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2006-2021. All Rights Reserved. +%% Copyright Ericsson AB 2006-2023. All Rights Reserved. %% %% Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. @@ -47,6 +47,18 @@ init_per_suite(Config) when is_list(Config) -> %% allow other suites to use it... inet_gethost_native:gethostbyname("localhost"), + %% Trigger usage of large pids and ports in 64-bit case... + case erlang:system_info(wordsize) of + 4 -> + ok; + 8 -> + erts_debug:set_internal_state(available_internal_state,true), + erts_debug:set_internal_state(next_pid, 1 bsl 32), + erts_debug:set_internal_state(next_port, 1 bsl 32), + erts_debug:set_internal_state(available_internal_state,false), + ok + end, + %% Start the timer server. timer:start(), |