From cd0e5b29d74d6cea0cc7db8ee09de7b477c07624 Mon Sep 17 00:00:00 2001
From: "Kirill A. Korinsky" <kirill@korins.ky>
Date: Mon, 31 Jul 2023 18:43:39 +0200
Subject: [PATCH 3/3] Use `monreset` instead `_mcleanup` on macOS

---
 gcl/o/gprof.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gcl/o/gprof.c b/gcl/o/gprof.c
index 0158a6e78..6b12ff0b3 100644
--- a/gcl/o/gprof.c
+++ b/gcl/o/gprof.c
@@ -7,12 +7,20 @@ static unsigned long gprof_on;
 
 DEFUN("MCLEANUP",object,fSmcleanup,SI,0,0,NONE,OO,OO,OO,OO,(void),"") {
 
+#ifdef __APPLE__
+  extern void monreset(void);
+#else
   extern void _mcleanup(void);
+#endif
 
   if (!gprof_on)
     return Cnil;
 
+#ifdef __APPLE__
+  massert((monreset(),1));
+#else
   massert((_mcleanup(),1));
+#endif
   gprof_on=0;
 
   return make_simple_string("gmon.out");
-- 
2.41.0