Kill off all support for 'gcc -pg' / 'gprof' style profiling. There is both a

size and performance penalty to profiling applications this way, as well as
Heisenberg effects, where the act of measuring changes what is measured.
There are better tools for doing profiling, such as OProfile, that do not
require gcc to instrument the application code.
 -Erik

5 files changed, 0 insertions, 781 deletions

diff --git a/libc/sysdeps/linux/common/Makefile b/libc/sysdeps/linux/common/Makefile
index 1256e2376..1930351fb 100644
--- a/libc/sysdeps/linux/common/Makefile
+++ b/libc/sysdeps/linux/common/Makefile
@@ -57,9 +57,6 @@ CSRC=	__rt_sigtimedwait.c __socketcall.c __syscall_fcntl.c \
 ifneq ($(strip $(EXCLUDE_BRK)),y)
 CSRC+=sbrk.c
 endif
-ifeq ($(strip $(UCLIBC_PROFILING)),y)
-CSRC+=gmon.c
-endif
 ifeq ($(strip $(UCLIBC_PROPOLICE)),y)
 CSRC+=ssp.c
 endif
diff --git a/libc/sysdeps/linux/common/bits/dlfcn.h b/libc/sysdeps/linux/common/bits/dlfcn.h
index e96b5c17a..75122a98a 100644
--- a/libc/sysdeps/linux/common/bits/dlfcn.h
+++ b/libc/sysdeps/linux/common/bits/dlfcn.h
@@ -40,25 +40,3 @@
 /* Do not delete object when closed.  */
 #define RTLD_NODELETE	0x01000
 
-#ifdef __USE_GNU
-/* To support profiling of shared objects it is a good idea to call
-   the function found using `dlsym' using the following macro since
-   these calls do not use the PLT.  But this would mean the dynamic
-   loader has no chance to find out when the function is called.  The
-   macro applies the necessary magic so that profiling is possible.
-   Rewrite
-	foo = (*fctp) (arg1, arg2);
-   into
-        foo = DL_CALL_FCT (fctp, (arg1, arg2));
-*/
-# define DL_CALL_FCT(fctp, args) \
-  (_dl_mcount_wrapper_check ((void *) (fctp)), (*(fctp)) args)
-
-__BEGIN_DECLS
-
-/* This function calls the profiling functions.  */
-extern void _dl_mcount_wrapper_check (void *__selfpc) __THROW;
-
-__END_DECLS
-
-#endif
diff --git a/libc/sysdeps/linux/common/bits/machine-gmon.h b/libc/sysdeps/linux/common/bits/machine-gmon.h
deleted file mode 100644
index 7dd36308b..000000000
--- a/libc/sysdeps/linux/common/bits/machine-gmon.h
+++ /dev/null
@@ -1,58 +0,0 @@
-/* Machine-dependent definitions for profiling support.  Generic GCC 2 version.
-   Copyright (C) 1996, 1997, 2000 Free Software Foundation, Inc.
-   This file is part of the GNU C Library.
-
-   The GNU C Library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public
-   License as published by the Free Software Foundation; either
-   version 2.1 of the License, or (at your option) any later version.
-
-   The GNU C Library is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the GNU C Library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307 USA.  */
-
-/* GCC version 2 gives us a perfect magical function to get
-   just the information we need:
-     void *__builtin_return_address (unsigned int N)
-   returns the return address of the frame N frames up.  */
-
-/* Be warned that GCC cannot usefully compile __builtin_return_address(N)
-   for N != 0 on all machines.  In this case, you may have to write
-   your own version of _mcount().  */
-
-#if __GNUC__ < 2
- #error "This file uses __builtin_return_address, a GCC 2 extension."
-#endif
-
-#include <sysdep.h>
-#ifndef NO_UNDERSCORES
-/* The asm symbols for C functions are `_function'.
-   The canonical name for the counter function is `mcount', no _.  */
-void _mcount (void) asm ("mcount");
-#else
-/* The canonical name for the function is `_mcount' in both C and asm,
-   but some old asm code might assume it's `mcount'.  */
-void _mcount (void);
-weak_alias (_mcount, mcount)
-#endif
-
-static void mcount_internal (u_long frompc, u_long selfpc);
-
-#define _MCOUNT_DECL(frompc, selfpc) \
-static inline void mcount_internal (u_long frompc, u_long selfpc)
-
-#ifndef RETURN_ADDRESS
-#define RETURN_ADDRESS(n) __builtin_return_address(n)
-#endif
-
-#define MCOUNT \
-void _mcount (void)							      \
-{									      \
-  mcount_internal ((u_long) RETURN_ADDRESS (1), (u_long) RETURN_ADDRESS (0)); \
-}
diff --git a/libc/sysdeps/linux/common/gmon-start.c b/libc/sysdeps/linux/common/gmon-start.c
deleted file mode 100644
index 6878a7a71..000000000
--- a/libc/sysdeps/linux/common/gmon-start.c
+++ /dev/null
@@ -1,58 +0,0 @@
-/* Code to enable profiling at program startup.
-   Copyright (C) 1995,1996,1997,2000,2001,2002 Free Software Foundation, Inc.
-   This file is part of the GNU C Library.
-
-   The GNU C Library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public
-   License as published by the Free Software Foundation; either
-   version 2.1 of the License, or (at your option) any later version.
-
-   The GNU C Library is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the GNU C Library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307 USA.  */
-
-#include <features.h>
-#include <stdlib.h>
-#include <unistd.h>
-#include <sys/types.h>
-#include <sys/gmon.h>
-
-#ifdef __UCLIBC_PROFILING__
-
-/* Beginning and end of our code segment. We cannot declare them
-   as the external functions since we want the addresses of those
-   labels. Taking the address of a function may have different
-   meanings on different platforms. */
-
-extern void _start;
-extern void etext;
-
-
-void __gmon_start__ (void)
-{
-#ifdef __UCLIBC_CTOR_DTOR__
-    /* Protect from being called more than once.  Since crti.o is linked
-       into every shared library, each of their init functions will call us.  */
-    static int called;
-
-    if (called)
-	return;
-
-    called = 1;
-#endif
-
-    /* Start keeping profiling records.  */
-    monstartup ((u_long) &_start, (u_long) &etext);
-
-    /* Call _mcleanup before exiting; it will write out gmon.out from the
-       collected data.  */
-    atexit (&_mcleanup);
-}
-#endif
-
diff --git a/libc/sysdeps/linux/common/gmon.c b/libc/sysdeps/linux/common/gmon.c
deleted file mode 100644
index a3444a28e..000000000
--- a/libc/sysdeps/linux/common/gmon.c
+++ /dev/null
@@ -1,640 +0,0 @@
-/*-
- * Copyright (c) 1983, 1992, 1993
- *	The Regents of the University of California.  All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 4. Neither the name of the University nor the names of its contributors
- *    may be used to endorse or promote products derived from this software
- *    without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- */
-
-#include <features.h>
-#include <sys/param.h>
-#include <sys/time.h>
-#include <sys/gmon.h>
-#include <sys/gmon_out.h>
-#include <sys/uio.h>
-
-#include <errno.h>
-#include <stdio.h>
-#include <fcntl.h>
-#include <unistd.h>
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-#include <signal.h>
-#include <sys/time.h>
-#include <sys/types.h>
-
-#ifdef __UCLIBC_PROFILING__
-
-/*  Head of basic-block list or NULL. */
-struct __bb *__bb_head;
-
-struct gmonparam _gmonparam = { state: GMON_PROF_OFF };
-
-/*
- * See profil(2) where this is described:
- */
-static int	s_scale;
-#define		SCALE_1_TO_1	0x10000L
-
-#define ERR(s) write (STDERR_FILENO, s, sizeof (s) - 1)
-
-void moncontrol __P ((int mode));
-static void write_hist __P ((int fd));
-static void write_call_graph __P ((int fd));
-static void write_bb_counts __P ((int fd));
-
-/*
- * Control profiling
- *	profiling is what mcount checks to see if
- *	all the data structures are ready.
- */
-void moncontrol (int mode)
-{
-    struct gmonparam *p = &_gmonparam;
-
-    /* Don't change the state if we ran into an error.  */
-    if (p->state == GMON_PROF_ERROR)
-	return;
-
-    if (mode)
-    {
-	/* start */
-	profil((void *) p->kcount, p->kcountsize, p->lowpc, s_scale);
-	p->state = GMON_PROF_ON;
-    }
-    else
-    {
-	/* stop */
-	profil(NULL, 0, 0, 0);
-	p->state = GMON_PROF_OFF;
-    }
-}
-
-
-void monstartup (u_long lowpc, u_long highpc)
-{
-    register int o;
-    char *cp;
-    struct gmonparam *p = &_gmonparam;
-
-    /*
-     * round lowpc and highpc to multiples of the density we're using
-     * so the rest of the scaling (here and in gprof) stays in ints.
-     */
-    p->lowpc = ROUNDDOWN(lowpc, HISTFRACTION * sizeof(HISTCOUNTER));
-    p->highpc = ROUNDUP(highpc, HISTFRACTION * sizeof(HISTCOUNTER));
-    p->textsize = p->highpc - p->lowpc;
-    p->kcountsize = p->textsize / HISTFRACTION;
-    p->hashfraction = HASHFRACTION;
-    p->log_hashfraction = -1;
-    /* The following test must be kept in sync with the corresponding
-       test in mcount.c.  */
-    if ((HASHFRACTION & (HASHFRACTION - 1)) == 0) {
-	/* if HASHFRACTION is a power of two, mcount can use shifting
-	   instead of integer division.  Precompute shift amount. */
-	p->log_hashfraction = ffs(p->hashfraction * sizeof(*p->froms)) - 1;
-    }
-    p->fromssize = p->textsize / HASHFRACTION;
-    p->tolimit = p->textsize * ARCDENSITY / 100;
-    if (p->tolimit < MINARCS)
-	p->tolimit = MINARCS;
-    else if (p->tolimit > MAXARCS)
-	p->tolimit = MAXARCS;
-    p->tossize = p->tolimit * sizeof(struct tostruct);
-
-    cp = calloc (p->kcountsize + p->fromssize + p->tossize, 1);
-    if (! cp)
-    {
-	ERR("monstartup: out of memory\n");
-	p->tos = NULL;
-	p->state = GMON_PROF_ERROR;
-	return;
-    }
-    p->tos = (struct tostruct *)cp;
-    cp += p->tossize;
-    p->kcount = (HISTCOUNTER *)cp;
-    cp += p->kcountsize;
-    p->froms = (ARCINDEX *)cp;
-
-    p->tos[0].link = 0;
-
-    o = p->highpc - p->lowpc;
-    if (p->kcountsize < (u_long) o)
-    {
-#ifndef hp300
-	s_scale = ((float)p->kcountsize / o ) * SCALE_1_TO_1;
-#else
-	/* avoid floating point operations */
-	int quot = o / p->kcountsize;
-
-	if (quot >= 0x10000)
-	    s_scale = 1;
-	else if (quot >= 0x100)
-	    s_scale = 0x10000 / quot;
-	else if (o >= 0x800000)
-	    s_scale = 0x1000000 / (o / (p->kcountsize >> 8));
-	else
-	    s_scale = 0x1000000 / ((o << 8) / p->kcountsize);
-#endif
-    } else
-	s_scale = SCALE_1_TO_1;
-
-    moncontrol(1);
-}
-
-
-/* Return frequency of ticks reported by profil. */
-static int profile_frequency (void)
-{
-    /*
-     * Discover the tick frequency of the machine if something goes wrong,
-     * we return 0, an impossible hertz.
-     */
-    struct itimerval tim;
-
-    tim.it_interval.tv_sec = 0;
-    tim.it_interval.tv_usec = 1;
-    tim.it_value.tv_sec = 0;
-    tim.it_value.tv_usec = 0;
-    setitimer(ITIMER_REAL, &tim, 0);
-    setitimer(ITIMER_REAL, 0, &tim);
-    if (tim.it_interval.tv_usec < 2)
-	return 0;
-    return (1000000 / tim.it_interval.tv_usec);
-}
-
-
-static void write_hist (int fd)
-{
-    u_char tag = GMON_TAG_TIME_HIST;
-    struct gmon_hist_hdr thdr __attribute__ ((aligned (__alignof__ (char *))));
-
-    if (_gmonparam.kcountsize > 0)
-    {
-	struct iovec iov[3] =
-	{
-	    { &tag, sizeof (tag) },
-	    { &thdr, sizeof (struct gmon_hist_hdr) },
-	    { _gmonparam.kcount, _gmonparam.kcountsize }
-	};
-
-	*(char **) thdr.low_pc = (char *) _gmonparam.lowpc;
-	*(char **) thdr.high_pc = (char *) _gmonparam.highpc;
-	*(int32_t *) thdr.hist_size = (_gmonparam.kcountsize
-		/ sizeof (HISTCOUNTER));
-	*(int32_t *) thdr.prof_rate = profile_frequency ();
-	strncpy (thdr.dimen, "seconds", sizeof (thdr.dimen));
-	thdr.dimen_abbrev = 's';
-
-	writev (fd, iov, 3);
-    }
-}
-
-
-static void write_call_graph (int fd)
-{
-#define NARCS_PER_WRITEV	32
-    u_char tag = GMON_TAG_CG_ARC;
-    struct gmon_cg_arc_record raw_arc[NARCS_PER_WRITEV]
-	__attribute__ ((aligned (__alignof__ (char*))));
-    ARCINDEX from_index, to_index, from_len;
-    u_long frompc;
-    struct iovec iov[2 * NARCS_PER_WRITEV];
-    int nfilled;
-
-    for (nfilled = 0; nfilled < NARCS_PER_WRITEV; ++nfilled)
-    {
-	iov[2 * nfilled].iov_base = &tag;
-	iov[2 * nfilled].iov_len = sizeof (tag);
-
-	iov[2 * nfilled + 1].iov_base = &raw_arc[nfilled];
-	iov[2 * nfilled + 1].iov_len = sizeof (struct gmon_cg_arc_record);
-    }
-
-    nfilled = 0;
-    from_len = _gmonparam.fromssize / sizeof (*_gmonparam.froms);
-    for (from_index = 0; from_index < from_len; ++from_index)
-    {
-	if (_gmonparam.froms[from_index] == 0)
-	    continue;
-
-	frompc = _gmonparam.lowpc;
-	frompc += (from_index * _gmonparam.hashfraction
-		* sizeof (*_gmonparam.froms));
-	for (to_index = _gmonparam.froms[from_index];
-		to_index != 0;
-		to_index = _gmonparam.tos[to_index].link)
-	{
-	    struct arc
-	    {
-		char *frompc;
-		char *selfpc;
-		int32_t count;
-	    }
-	    arc;
-
-	    arc.frompc = (char *) frompc;
-	    arc.selfpc = (char *) _gmonparam.tos[to_index].selfpc;
-	    arc.count  = _gmonparam.tos[to_index].count;
-	    memcpy (raw_arc + nfilled, &arc, sizeof (raw_arc [0]));
-
-	    if (++nfilled == NARCS_PER_WRITEV)
-	    {
-		writev (fd, iov, 2 * nfilled);
-		nfilled = 0;
-	    }
-	}
-    }
-    if (nfilled > 0)
-	writev (fd, iov, 2 * nfilled);
-}
-
-
-static void write_bb_counts (int fd)
-{
-    struct __bb *grp;
-    u_char tag = GMON_TAG_BB_COUNT;
-    size_t ncounts;
-    size_t i;
-
-    struct iovec bbhead[2] =
-    {
-	{ &tag, sizeof (tag) },
-	{ &ncounts, sizeof (ncounts) }
-    };
-    struct iovec bbbody[8];
-    size_t nfilled;
-
-    for (i = 0; i < (sizeof (bbbody) / sizeof (bbbody[0])); i += 2)
-    {
-	bbbody[i].iov_len = sizeof (grp->addresses[0]);
-	bbbody[i + 1].iov_len = sizeof (grp->counts[0]);
-    }
-
-    /* Write each group of basic-block info (all basic-blocks in a
-       compilation unit form a single group). */
-
-    for (grp = __bb_head; grp; grp = grp->next)
-    {
-	ncounts = grp->ncounts;
-	writev (fd, bbhead, 2);
-	for (nfilled = i = 0; i < ncounts; ++i)
-	{
-	    if (nfilled > (sizeof (bbbody) / sizeof (bbbody[0])) - 2)
-	    {
-		writev (fd, bbbody, nfilled);
-		nfilled = 0;
-	    }
-
-	    bbbody[nfilled++].iov_base = (char *) &grp->addresses[i];
-	    bbbody[nfilled++].iov_base = &grp->counts[i];
-	}
-	if (nfilled > 0)
-	    writev (fd, bbbody, nfilled);
-    }
-}
-
-
-static void write_gmon (void)
-{
-    struct gmon_hdr ghdr __attribute__ ((aligned (__alignof__ (int))));
-    int fd = -1;
-    char *env;
-
-#ifndef O_NOFOLLOW
-# define O_NOFOLLOW	0
-#endif
-
-    env = getenv ("GMON_OUT_PREFIX");
-    if (env != NULL 
-#if 0
-	    && !__libc_enable_secure
-#endif
-	    )
-    {
-	size_t len = strlen (env);
-	char buf[len + 20];
-	sprintf (buf, "%s.%u", env, getpid ());
-	fd = open (buf, O_CREAT|O_TRUNC|O_WRONLY|O_NOFOLLOW, 0666);
-    }
-
-    if (fd == -1)
-    {
-	fd = open ("gmon.out", O_CREAT|O_TRUNC|O_WRONLY|O_NOFOLLOW, 0666);
-	if (fd < 0)
-	{
-	    char buf[300];
-	    int errnum = errno;
-	    fprintf (stderr, "_mcleanup: gmon.out: %s\n",
-		    strerror_r (errnum, buf, sizeof buf));
-	    return;
-	}
-    }
-
-    /* write gmon.out header: */
-    memset (&ghdr, '\0', sizeof (struct gmon_hdr));
-    memcpy (&ghdr.cookie[0], GMON_MAGIC, sizeof (ghdr.cookie));
-    *(int32_t *) ghdr.version = GMON_VERSION;
-    write (fd, &ghdr, sizeof (struct gmon_hdr));
-
-    /* write PC histogram: */
-    write_hist (fd);
-
-    /* write call-graph: */
-    write_call_graph (fd);
-
-    /* write basic-block execution counts: */
-    write_bb_counts (fd);
-
-    close (fd);
-}
-
-
-void write_profiling (void)
-{
-    int save = _gmonparam.state;
-    _gmonparam.state = GMON_PROF_OFF;
-    if (save == GMON_PROF_ON)
-	write_gmon ();
-    _gmonparam.state = save;
-}
-
-
-void _mcleanup (void)
-{
-    moncontrol (0);
-
-    if (_gmonparam.state != GMON_PROF_ERROR)
-	write_gmon ();
-
-    /* free the memory. */
-    if (_gmonparam.tos != NULL)
-	free (_gmonparam.tos);
-}
-
-#ifndef SIGPROF
-
-/* Enable statistical profiling, writing samples of the PC into at most
-   SIZE bytes of SAMPLE_BUFFER; every processor clock tick while profiling
-   is enabled, the system examines the user PC and increments
-   SAMPLE_BUFFER[((PC - OFFSET) / 2) * SCALE / 65536].  If SCALE is zero,
-   disable profiling.  Returns zero on success, -1 on error.  */
-
-int profil (u_short *sample_buffer, size_t size, size_t offset, u_int scale)
-{
-    if (scale == 0)
-	/* Disable profiling.  */
-	return 0;
-
-    __set_errno (ENOSYS);
-    return -1;
-}
-
-#else
-
-static u_short *samples;
-static size_t nsamples;
-static size_t pc_offset;
-static u_int pc_scale;
-
-static inline void profil_count (void *pc)
-{
-    size_t i = (pc - pc_offset - (void *) 0) / 2;
-
-    if (sizeof (unsigned long long int) > sizeof (size_t))
-	i = (unsigned long long int) i * pc_scale / 65536;
-    else
-	i = i / 65536 * pc_scale + i % 65536 * pc_scale / 65536;
-
-    if (i < nsamples)
-	++samples[i];
-}
-
-/* Get the machine-dependent definition of `profil_counter', the signal
-   handler for SIGPROF.  It calls `profil_count' (above) with the PC of the
-   interrupted code.  */
-#include <bits/profil-counter.h>
-
-/* Enable statistical profiling, writing samples of the PC into at most
-   SIZE bytes of SAMPLE_BUFFER; every processor clock tick while profiling
-   is enabled, the system examines the user PC and increments
-   SAMPLE_BUFFER[((PC - OFFSET) / 2) * SCALE / 65536].  If SCALE is zero,
-   disable profiling.  Returns zero on success, -1 on error.  */
-
-int profil (u_short *sample_buffer, size_t size, size_t offset, u_int scale)
-{
-    static struct sigaction oact;
-    static struct itimerval otimer;
-    struct sigaction act;
-    struct itimerval timer;
-
-    if (sample_buffer == NULL)
-    {
-	/* Disable profiling.  */
-	if (samples == NULL)
-	    /* Wasn't turned on.  */
-	    return 0;
-
-	if (setitimer (ITIMER_PROF, &otimer, NULL) < 0)
-	    return -1;
-	samples = NULL;
-	return sigaction (SIGPROF, &oact, NULL);
-    }
-
-    if (samples)
-    {
-	/* Was already turned on.  Restore old timer and signal handler
-	   first.  */
-	if (setitimer (ITIMER_PROF, &otimer, NULL) < 0
-		|| sigaction (SIGPROF, &oact, NULL) < 0)
-	    return -1;
-    }
-
-    samples = sample_buffer;
-    nsamples = size / sizeof *samples;
-    pc_offset = offset;
-    pc_scale = scale;
-
-    act.sa_handler = (__sighandler_t) &profil_counter;
-    act.sa_flags = SA_RESTART;
-    __sigfillset (&act.sa_mask);
-    if (sigaction (SIGPROF, &act, &oact) < 0)
-	return -1;
-
-    timer.it_value.tv_sec = 0;
-    timer.it_value.tv_usec = 1;
-    timer.it_interval = timer.it_value;
-    return setitimer (ITIMER_PROF, &timer, &otimer);
-}
-
-#endif
-
-
-/* This file provides the machine-dependent definitions of the _MCOUNT_DECL
-   and MCOUNT macros.  */
-#include <bits/machine-gmon.h>
-#include <bits/atomicity.h>
-
-/*
- * mcount is called on entry to each function compiled with the profiling
- * switch set.  _mcount(), which is declared in a machine-dependent way
- * with _MCOUNT_DECL, does the actual work and is either inlined into a
- * C routine or called by an assembly stub.  In any case, this magic is
- * taken care of by the MCOUNT definition in <machine/profile.h>.
- *
- * _mcount updates data structures that represent traversals of the
- * program's call graph edges.  frompc and selfpc are the return
- * address and function address that represents the given call graph edge.
- *
- * Note: the original BSD code used the same variable (frompcindex) for
- * both frompcindex and frompc.  Any reasonable, modern compiler will
- * perform this optimization.
- */
-_MCOUNT_DECL(frompc, selfpc)	/* _mcount; may be static, inline, etc */
-{
-	register ARCINDEX *frompcindex;
-	register struct tostruct *top, *prevtop;
-	register struct gmonparam *p;
-	register ARCINDEX toindex;
-	int i;
-
-	p = &_gmonparam;
-	/*
-	 * check that we are profiling
-	 * and that we aren't recursively invoked.
-	 */
-	if (! compare_and_swap (&p->state, GMON_PROF_ON, GMON_PROF_BUSY))
-	  return;
-
-	/*
-	 * check that frompcindex is a reasonable pc value.
-	 * for example:	signal catchers get called from the stack,
-	 *		not from text space.  too bad.
-	 */
-	frompc -= p->lowpc;
-	if (frompc > p->textsize)
-		goto done;
-
-	/* The following test used to be
-		if (p->log_hashfraction >= 0)
-	   But we can simplify this if we assume the profiling data
-	   is always initialized by the functions in gmon.c.  But
-	   then it is possible to avoid a runtime check and use the
-	   smae `if' as in gmon.c.  So keep these tests in sync.  */
-	if ((HASHFRACTION & (HASHFRACTION - 1)) == 0) {
-	  /* avoid integer divide if possible: */
-	    i = frompc >> p->log_hashfraction;
-	} else {
-	    i = frompc / (p->hashfraction * sizeof(*p->froms));
-	}
-	frompcindex = &p->froms[i];
-	toindex = *frompcindex;
-	if (toindex == 0) {
-		/*
-		 *	first time traversing this arc
-		 */
-		toindex = ++p->tos[0].link;
-		if (toindex >= p->tolimit)
-			/* halt further profiling */
-			goto overflow;
-
-		*frompcindex = toindex;
-		top = &p->tos[toindex];
-		top->selfpc = selfpc;
-		top->count = 1;
-		top->link = 0;
-		goto done;
-	}
-	top = &p->tos[toindex];
-	if (top->selfpc == selfpc) {
-		/*
-		 * arc at front of chain; usual case.
-		 */
-		top->count++;
-		goto done;
-	}
-	/*
-	 * have to go looking down chain for it.
-	 * top points to what we are looking at,
-	 * prevtop points to previous top.
-	 * we know it is not at the head of the chain.
-	 */
-	for (; /* goto done */; ) {
-		if (top->link == 0) {
-			/*
-			 * top is end of the chain and none of the chain
-			 * had top->selfpc == selfpc.
-			 * so we allocate a new tostruct
-			 * and link it to the head of the chain.
-			 */
-			toindex = ++p->tos[0].link;
-			if (toindex >= p->tolimit)
-				goto overflow;
-
-			top = &p->tos[toindex];
-			top->selfpc = selfpc;
-			top->count = 1;
-			top->link = *frompcindex;
-			*frompcindex = toindex;
-			goto done;
-		}
-		/*
-		 * otherwise, check the next arc on the chain.
-		 */
-		prevtop = top;
-		top = &p->tos[top->link];
-		if (top->selfpc == selfpc) {
-			/*
-			 * there it is.
-			 * increment its count
-			 * move it to the head of the chain.
-			 */
-			top->count++;
-			toindex = prevtop->link;
-			prevtop->link = top->link;
-			top->link = *frompcindex;
-			*frompcindex = toindex;
-			goto done;
-		}
-
-	}
-done:
-	p->state = GMON_PROF_ON;
-	return;
-overflow:
-	p->state = GMON_PROF_ERROR;
-	return;
-}
-
-/*
- * Actual definition of mcount function.  Defined in <machine/profile.h>,
- * which is included by <sys/gmon.h>.
- */
-MCOUNT
-
-#endif
-