* src/profiler.c (malloc_probe): Make it safe for GC (bug#60237)

diff --git a/src/profiler.c b/src/profiler.c
index 81b5e7b0cf02ebdd59750885ca9c2ca89bf8880b..8247b2e90c641aecd15b10d7b50be068fefc2091 100644 (file)
--- a/src/profiler.c
+++ b/src/profiler.c
@@ -505,6 +505,9 @@ Before returning, a new log is allocated for future samples.  */)
 void
 malloc_probe (size_t size)
 {
+  if (EQ (backtrace_top_function (), QAutomatic_GC)) /* bug#60237 */
+    /* FIXME: We should do something like what we did with `cpu_gc_count`.  */
+    return;
   eassert (HASH_TABLE_P (memory_log));
   record_backtrace (XHASH_TABLE (memory_log), min (size, MOST_POSITIVE_FIXNUM));
 }