XEmacs 21.2.29 "Hestia".

[chise/xemacs-chise.git.1] / src / profile.c

diff --git a/src/profile.c b/src/profile.c
index 648026f..5f2fbf6 100644 (file)
--- a/src/profile.c
+++ b/src/profile.c
@@ -119,9 +119,10 @@ sigprof_handler (int signo)
        {
          fun = *backtrace_list->function;
 
-         if (!SYMBOLP       (fun) &&
-             !COMPILED_FUNCTIONP (fun) &&
-             !SUBRP                 (fun))
+         if (!SYMBOLP (fun)
+             && !COMPILED_FUNCTIONP (fun)
+             && !SUBRP (fun)
+             && !CONSP (fun))
             fun = QSunknown;
        }
       else
@@ -134,14 +135,14 @@ sigprof_handler (int signo)
           lose because of this.  Even worse, if the memory allocation
           fails, the `error' generated whacks everything hard. */
        long count;
-       CONST void *vval;
+       const void *vval;
 
        if (gethash (LISP_TO_VOID (fun), big_profile_table, &vval))
          count = (long) vval;
        else
          count = 0;
        count++;
-       vval = (CONST void *) count;
+       vval = (const void *) count;
        puthash (LISP_TO_VOID (fun), (void *) vval, big_profile_table);
       }
 
@@ -225,7 +226,7 @@ struct get_profiling_info_closure
 };
 
 static int
-get_profiling_info_maphash (CONST void *void_key,
+get_profiling_info_maphash (const void *void_key,
                            void *void_val,
                            void *void_closure)
 {
@@ -263,7 +264,7 @@ Return the profiling info as an alist.
 }
 
 static int
-mark_profiling_info_maphash (CONST void *void_key,
+mark_profiling_info_maphash (const void *void_key,
                             void *void_val,
                             void *void_closure)
 {