From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 22 Mar 2020 14:50:01 +0000 (+0000)
Subject: * comp.c (maybe_defer_native_compilation): Add some debug code
X-Git-Tag: emacs-28.0.90~2727^2~752
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07e314569b743cfc38b8bb3599355161c576ff32;p=emacs.git

* comp.c (maybe_defer_native_compilation): Add some debug code
---

diff --git a/src/comp.c b/src/comp.c
index 55e6e96ec81..f5961c7d2b6 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -3368,6 +3368,27 @@ void
 maybe_defer_native_compilation (Lisp_Object function_name,
 				Lisp_Object definition)
 {
+#if 0
+#include <sys/types.h>
+#include <unistd.h>
+  if (!NILP (function_name) &&
+      STRINGP (Vload_file_name))
+    {
+      static FILE *f;
+      if (!f)
+	{
+	  char str[128];
+	  sprintf (str, "log_%d", getpid());
+	  f = fopen (str, "w");
+	}
+      if (!f)
+	exit (1);
+      fprintf (f, "function %s file %s\n",
+	       SSDATA (Fsymbol_name (function_name)),
+	       SSDATA (Vload_file_name));
+      fflush (f);
+    }
+#endif
   if (!comp_deferred_compilation
       || noninteractive
       || !NILP (Vpurify_flag)