mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-20 08:19:28 +00:00
fe2eb0323a
Estimated hours taken: 1 imp.h, prof.h: Fix the byzantine inclusion relationship between prof.h and imp.h. prof.c: Fix the hashing function for code addresses so that it doesn't waste three quarters of the hash table. In each hash slot, use a binary search tree instead of an unordered list of entries. This can be expected to handle high loads better, which is necessary because the hash table size is not adaptive. (Making it adaptive would be a better fix.) Instead of turning signals off and on in the handler of profiling signals, simply set a volatile variable to detect cases when two profiling signals arrive too closely.
46 lines
1.4 KiB
C
46 lines
1.4 KiB
C
/*
|
|
** Copyright (C) 1995 University of Melbourne.
|
|
** This file may only be copied under the terms of the GNU Library General
|
|
** Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
*/
|
|
|
|
#ifndef PROF_H
|
|
#define PROF_H
|
|
|
|
/*
|
|
** this variable holds the address of the "current" procedure so that
|
|
** when a profiling interrupt occurs, the profiler knows where we are,
|
|
** so that it can credit the time to the appropriate procedure.
|
|
*/
|
|
|
|
extern Code * volatile prof_current_proc;
|
|
|
|
/*
|
|
** the following two macros are used to ensure that the profiler can
|
|
** use `prof_current_proc' to determine what procedure is currently
|
|
** being executed when a profiling interrupt occurs
|
|
*/
|
|
|
|
#ifdef PROFILE_TIME
|
|
#define set_prof_current_proc(target) (prof_current_proc = (target))
|
|
#define update_prof_current_proc(target) (prof_current_proc = (target))
|
|
#else
|
|
#define set_prof_current_proc(target) ((void)0)
|
|
#define update_prof_current_proc(target) ((void)0)
|
|
#endif
|
|
|
|
#ifdef PROFILE_CALLS
|
|
#define PROFILE(callee, caller) prof_call_profile((callee), (caller))
|
|
#else
|
|
#define PROFILE(callee, caller) ((void)0)
|
|
#endif
|
|
|
|
extern void prof_init_time_profile(void);
|
|
extern void prof_call_profile(Code *, Code *);
|
|
extern void prof_turn_off_time_profiling(void);
|
|
extern void prof_output_addr_pair_table(void);
|
|
extern void prof_output_addr_decls(const char *, const Code *);
|
|
extern void prof_output_addr_table(void);
|
|
|
|
#endif
|