1 /* Low-level statistical profiling support function. Mostly POSIX.1 version.
2 Copyright (C) 1996 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
17 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
18 Cambridge, MA 02139, 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 act
, oact
;
66 static struct itimerval timer
, otimer
;
68 if (sample_buffer
== NULL
)
70 /* Disable profiling. */
72 /* Wasn't turned on. */
75 if (setitimer (ITIMER_PROF
, &otimer
, NULL
) < 0)
78 return sigaction (SIGPROF
, &oact
, NULL
);
83 /* Was already turned on. Restore old timer and signal handler
85 if (setitimer (ITIMER_PROF
, &otimer
, NULL
) < 0
86 || sigaction (SIGPROF
, &oact
, NULL
) < 0)
90 samples
= sample_buffer
;
91 nsamples
= size
/ sizeof *samples
;
95 act
.sa_handler
= (sighandler_t
) &profil_counter
;
96 act
.sa_flags
= SA_RESTART
;
97 sigfillset (&act
.sa_mask
);
98 if (sigaction (SIGPROF
, &act
, &oact
) < 0)
101 timer
.it_value
.tv_sec
= 0;
102 timer
.it_value
.tv_usec
= 1;
103 timer
.it_interval
= timer
.it_value
;
104 return setitimer (ITIMER_PROF
, &timer
, &otimer
);