From: Jeff Walsh <fejfighter@gmail.com>
Date: Tue, 5 Nov 2024 12:09:56 +0000 (+1100)
Subject: Mark atimer allocation as ambiguous root
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08e8f6797d92fef154fb183ea79c35ccee17d337;p=emacs.git

Mark atimer allocation as ambiguous root

* src/atimer.c (start_atimer): Time could be passed a lisp object for
data, we should allocate this as an ambiguous root

(cherry picked from commit c42b90b21a4efb3c5a8ebc6e3bd6be2908d1f2ac)
---

diff --git a/src/atimer.c b/src/atimer.c
index 8253ae3a166..5bd282a310d 100644
--- a/src/atimer.c
+++ b/src/atimer.c
@@ -17,6 +17,7 @@ You should have received a copy of the GNU General Public License
 along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 
 #include <config.h>
+#include "igc.h"
 
 #ifdef WINDOWSNT
 #define raise(s) w32_raise(s)
@@ -132,7 +133,13 @@ start_atimer (enum atimer_type type, struct timespec timestamp,
       free_atimers = t->next;
     }
   else
-    t = xmalloc (sizeof *t);
+    {
+#ifdef HAVE_MPS
+      t = igc_xzalloc_ambig (sizeof *t);
+#else
+      t = xmalloc (sizeof *t);
+#endif
+    }
 
   /* Fill the atimer structure.  */
   memset (t, 0, sizeof *t);