X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fprofile.c;h=4d097bc147827e04841cc64cb9d87284d2d69e47;hb=153c92fa2a3b77ce954a1e54a5dc9ec15370cfd6;hp=111575b842923e8e204edbc8d0a7154bf228e797;hpb=82da33b61c3e2dd2937db17b75b2838188793053;p=chise%2Fxemacs-chise.git-

diff --git a/src/profile.c b/src/profile.c
index 111575b..4d097bc 100644
--- a/src/profile.c
+++ b/src/profile.c
@@ -60,7 +60,7 @@ Boston, MA 02111-1307, USA.  */
 static struct hash_table *big_profile_table;
 Lisp_Object Vcall_count_profile_table;
 
-int default_profiling_interval;
+Fixnum default_profiling_interval;
 
 int profiling_active;
 
@@ -135,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);
       }
 
@@ -226,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)
 {
@@ -264,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)
 {