File 0195-Reduce-memory-consumption-for-test-of-list... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0195-Reduce-memory-consumption-for-test-of-list_to_intege.patch of Package erlang (Revision 0cb618c74ff829b74bc5c7e672295bed)

Currently displaying revision 0cb618c74ff829b74bc5c7e672295bed , Show latest

From 2fca1418582bf66fb38ebea8e8c0eb0933944b35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Fri, 8 Dec 2023 14:03:12 +0100
Subject: [PATCH] Reduce memory consumption for test of list_to_integer/1

We could run out of memory on 32-bit Windows system.
---
 erts/emulator/test/list_bif_SUITE.erl | 5 ++++-
 erts/emulator/test/num_bif_SUITE.erl  | 5 ++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/erts/emulator/test/list_bif_SUITE.erl b/erts/emulator/test/list_bif_SUITE.erl
index 2e43e9ad5a..8951a3e806 100644
--- a/erts/emulator/test/list_bif_SUITE.erl
+++ b/erts/emulator/test/list_bif_SUITE.erl
@@ -60,10 +60,13 @@ t_list_to_integer(Config) when is_list(Config) ->
     {error,badarg} = string:to_integer($A),
 
     %% System limit.
-    Digits = lists:duplicate(11_000_000, $9),
+    Digits = lists:duplicate(3_000_000, $9),
     {'EXIT',{system_limit,_}} = catch list_to_integer(Digits),
+    _ = erlang:garbage_collect(),
     {'EXIT',{system_limit,_}} = catch list_to_integer(Digits, 16),
+    _ = erlang:garbage_collect(),
     {error,system_limit} = string:to_integer(Digits),
+    _ = erlang:garbage_collect(),
 
     ok.
 
diff --git a/erts/emulator/test/num_bif_SUITE.erl b/erts/emulator/test/num_bif_SUITE.erl
index c53b660bf5..5ea28e0244 100644
--- a/erts/emulator/test/num_bif_SUITE.erl
+++ b/erts/emulator/test/num_bif_SUITE.erl
@@ -673,10 +673,13 @@ t_string_to_integer(Config) when is_list(Config) ->
                   ]),
 
     %% System limit
-    Digits = lists:duplicate(11_000_000, $9),
+    Digits = lists:duplicate(3_000_000, $9),
     {'EXIT',{system_limit,_}} = catch list_to_integer(Digits),
+    _ = erlang:garbage_collect(),
     {'EXIT',{system_limit,_}} = catch list_to_integer(Digits, 16),
+    _ = erlang:garbage_collect(),
     {error,system_limit} = string:to_integer(Digits),
+    _ = erlang:garbage_collect(),
 
     ok.
 
-- 
2.35.3

Places

File 0195-Reduce-memory-consumption-for-test-of-list_to_intege.patch of Package erlang (Revision 0cb618c74ff829b74bc5c7e672295bed)

Places