1 /* Low-level statistical profiling support function. Mostly POSIX.1 version.
2 Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Library General Public License for more details.
15 You should have received a copy of the GNU Library General Public
16 License along with the GNU C Library; see the file COPYING.LIB. If not,
17 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
20 #include <sys/types.h>
28 #include_next <profil.c>
32 static u_short
*samples
;
33 static size_t nsamples
;
34 static size_t pc_offset
;
35 static u_int pc_scale
;
38 profil_count (void *pc
)
40 size_t i
= (pc
- pc_offset
- (void *) 0) / 2;
42 if (sizeof (unsigned long long int) > sizeof (size_t))
43 i
= (unsigned long long int) i
* pc_scale
/ 65536;
45 i
= i
/ 65536 * pc_scale
+ i
% 65536 * pc_scale
/ 65536;
51 /* Get the machine-dependent definition of `profil_counter', the signal
52 handler for SIGPROF. It calls `profil_count' (above) with the PC of the
54 #include "profil-counter.h"
56 /* Enable statistical profiling, writing samples of the PC into at most
57 SIZE bytes of SAMPLE_BUFFER; every processor clock tick while profiling
58 is enabled, the system examines the user PC and increments
59 SAMPLE_BUFFER[((PC - OFFSET) / 2) * SCALE / 65536]. If SCALE is zero,
60 disable profiling. Returns zero on success, -1 on error. */
63 __profil (u_short
*sample_buffer
, size_t size
, size_t offset
, u_int scale
)
65 static struct sigaction oact
;
66 static struct itimerval otimer
;
68 struct itimerval timer
;
70 if (sample_buffer
== NULL
)
72 /* Disable profiling. */
74 /* Wasn't turned on. */
77 if (setitimer (ITIMER_PROF
, &otimer
, NULL
) < 0)
80 return sigaction (SIGPROF
, &oact
, NULL
);
85 /* Was already turned on. Restore old timer and signal handler
87 if (setitimer (ITIMER_PROF
, &otimer
, NULL
) < 0
88 || sigaction (SIGPROF
, &oact
, NULL
) < 0)
92 samples
= sample_buffer
;
93 nsamples
= size
/ sizeof *samples
;
97 act
.sa_handler
= (sighandler_t
) &profil_counter
;
98 act
.sa_flags
= SA_RESTART
;
99 sigfillset (&act
.sa_mask
);
100 if (sigaction (SIGPROF
, &act
, &oact
) < 0)
103 timer
.it_value
.tv_sec
= 0;
104 timer
.it_value
.tv_usec
= 1;
105 timer
.it_interval
= timer
.it_value
;
106 return setitimer (ITIMER_PROF
, &timer
, &otimer
);
108 weak_alias (__profil
, profil
)