Mercurial > hg > xemacs-beta

comparison src/profile.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents ac1be85b4a5f
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
347 if (bt->function_being_called) 347 if (bt->function_being_called)
348 profile_record_just_called (bt); 348 profile_record_just_called (bt);
349 } 349 }
350 350
351 static SIGTYPE 351 static SIGTYPE
352 sigprof_handler (int signo) 352 sigprof_handler (int UNUSED (signo))
353 { 353 {
354 #ifdef WIN32_ANY 354 #ifdef WIN32_ANY
355 /* Windows unfortunately does not have any such thing as setitimer 355 /* Windows unfortunately does not have any such thing as setitimer
356 (ITIMER_PROF, ...), which runs in process time. Everything is real 356 (ITIMER_PROF, ...), which runs in process time. Everything is real
357 time. So to get slightly more reasonable results, ignore completely 357 time. So to get slightly more reasonable results, ignore completely
611 } 611 }
612 612
613 static int 613 static int
614 set_profiling_info_timing_maphash (Lisp_Object key, 614 set_profiling_info_timing_maphash (Lisp_Object key,
615 Lisp_Object val, 615 Lisp_Object val,
616 void *void_closure) 616 void *UNUSED (void_closure))
617 { 617 {
618 /* This function does not GC */ 618 /* This function does not GC */
619 if (!INTP (val)) 619 if (!INTP (val))
620 invalid_argument_2 620 invalid_argument_2
621 ("Function timing count is not an integer in given entry", 621 ("Function timing count is not an integer in given entry",
667 return Qnil; 667 return Qnil;
668 } 668 }
669 669
670 static int 670 static int
671 mark_profiling_info_maphash (const void *void_key, 671 mark_profiling_info_maphash (const void *void_key,
672 void *void_val, 672 void *UNUSED (void_val),
673 void *void_closure) 673 void *UNUSED (void_closure))
674 { 674 {
675 #ifdef USE_KKCC 675 #ifdef USE_KKCC
676 kkcc_gc_stack_push_lisp_object (VOID_TO_LISP (void_key)); 676 kkcc_gc_stack_push_lisp_object (VOID_TO_LISP (void_key));
677 #else /* NOT USE_KKCC */ 677 #else /* NOT USE_KKCC */
678 mark_object (VOID_TO_LISP (void_key)); 678 mark_object (VOID_TO_LISP (void_key));