File recon-2.5.4-allocators.patch of Package recon

Overview Repositories Revisions Requests Users Attributes Meta

File recon-2.5.4-allocators.patch of Package recon

diff -Ndurp recon-2.5.4/src/recon_alloc.erl recon-2.5.4-allocators/src/recon_alloc.erl
--- recon-2.5.4/src/recon_alloc.erl	2023-09-05 16:36:46.000000000 +0300
+++ recon-2.5.4-allocators/src/recon_alloc.erl	2023-10-07 23:04:55.710293844 +0300
@@ -367,15 +367,18 @@ sbcs_to_mbcs(Keyword) ->
 %% @doc returns a dump of all allocator settings and values
 -spec allocators() -> [allocdata(term())].
 allocators() ->
-    UtilAllocators = erlang:system_info(alloc_util_allocators),
-    Allocators = [sys_alloc,mseg_alloc|UtilAllocators],
-    try [{{erts_mmap,0},erlang:system_info({allocator,erts_mmap})}]
-    catch error:badarg -> [] end ++
-        [{{A,N}, format_alloc(A, Props)} ||
-            A <- Allocators,
-            Allocs <- [erlang:system_info({allocator,A})],
-            Allocs =/= false,
-            {_,N,Props} <- Allocs].
+    Allocators = lists:flatmap(fun(A) ->
+                                   case erlang:system_info({allocator, A}) of
+                                       false -> [];
+                                       L -> [{{A, N}, format_alloc(A, Props)} || {_, N, Props} <- L]
+                                   end
+                               end,
+                               [sys_alloc, mseg_alloc|erlang:system_info(alloc_util_allocators)]),
+    try erlang:system_info({allocator, erts_mmap}) of
+        Info -> [{{erts_mmap, 0}, Info}|Allocators]
+    catch
+        error:badarg -> Allocators
+    end.
 
 format_alloc(Alloc, Props) ->
     %% {versions,_,_} is implicitly deleted in order to allow the use of the

Places

File recon-2.5.4-allocators.patch of Package recon

Places