Fix crashes on OTP 27 by disabling ETS table compression

apps/common/lib/elixir/features.ex

@@ -1,4 +1,6 @@
 defmodule Elixir.Features do
+  alias Lexical.VM.Versions
+
   def with_diagnostics? do
     function_exported?(Code, :with_diagnostics, 1)
   end
@@ -22,4 +24,20 @@ defmodule Elixir.Features do
   def contains_set_theoretic_types? do
     Version.match?(System.version(), ">= 1.17.0")
   end
+
+  @doc """
+  Whether the `:compressed` ETS table option can be safely used.
+
+  A bug in Erlang/OTP 27.0.0 and 27.0.1 can cause a segfault when
+  traversing the entire table with something like `:ets.foldl/3` if the
+  `:compressed` table option is used. When this is fixed, we can change
+  the version check to `"< 27.0.0 or >= 27.X"`.
+
+  Issue to track: https://github.com/erlang/otp/issues/8682
+  """
+  def can_use_compressed_ets_table? do
+    %{erlang: erlang_version} = Versions.to_versions(Versions.current())
+
+    Version.match?(erlang_version, "< 27.0.0")
+  end
 end

apps/remote_control/lib/lexical/remote_control/search/store/backends/ets/schemas/v3.ex

@@ -68,7 +68,11 @@ defmodule Lexical.RemoteControl.Search.Store.Backends.Ets.Schemas.V3 do
   end
 
   def table_options do
-    [:named_table, :ordered_set, :compressed]
+    if Features.can_use_compressed_ets_table?() do
+      [:named_table, :ordered_set, :compressed]
+    else
+      [:named_table, :ordered_set]
+    end
   end
 
   def to_subject(charlist) when is_list(charlist), do: charlist