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

diff --git a/src/comp.c b/src/comp.c
index 55e6e96ec81da1bb7070a38540e5aea65d5fc61b..f5961c7d2b6c785218b1c0bd701044dba4fea95d 100644 (file)
--- 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)