newlib/winsup/cygwin/profil.c

178 lines
3.9 KiB
C
Raw Normal View History

2000-02-17 20:38:33 +01:00
/* profil.c -- win32 profil.c equivalent
2013-04-23 11:44:36 +02:00
Copyright 1998, 1999, 2000, 2001, 2003, 2009, 2010, 2012 Red Hat, Inc.
2000-02-17 20:38:33 +01:00
This file is part of Cygwin.
This software is a copyrighted work licensed under the terms of the
Cygwin license. Please consult the file "CYGWIN_LICENSE" for
details. */
#include "winlean.h"
2000-02-17 20:38:33 +01:00
#include <sys/types.h>
#include <errno.h>
#include <profil.h>
#define SLEEPTIME (1000 / PROF_HZ)
/* global profinfo for profil() call */
static struct profinfo prof;
/* Get the pc for thread THR */
2013-04-23 11:44:36 +02:00
static uintptr_t
2000-02-17 20:38:33 +01:00
get_thrpc (HANDLE thr)
{
CONTEXT ctx;
2013-04-23 11:44:36 +02:00
uintptr_t pc;
2000-02-17 20:38:33 +01:00
int res;
res = SuspendThread (thr);
if (res == -1)
2013-04-23 11:44:36 +02:00
return (uintptr_t) -1;
2000-02-17 20:38:33 +01:00
ctx.ContextFlags = CONTEXT_CONTROL | CONTEXT_INTEGER;
2013-04-23 11:44:36 +02:00
pc = (uintptr_t) -1;
2000-02-17 20:38:33 +01:00
if (GetThreadContext (thr, &ctx))
2013-04-23 11:44:36 +02:00
#ifdef __x86_64__
pc = ctx.Rip;
#else
2000-02-17 20:38:33 +01:00
pc = ctx.Eip;
2013-04-23 11:44:36 +02:00
#endif
2000-02-17 20:38:33 +01:00
ResumeThread (thr);
return pc;
}
/* Display cell of profile buffer */
#if 0
static void
print_prof (struct profinfo *p)
{
printf ("profthr %x\ttarget thr %x\n", p->profthr, p->targthr);
printf ("pc: %x - %x\n", p->lowpc, p->highpc);
printf ("scale: %x\n", p->scale);
return;
}
#endif
/* Everytime we wake up use the main thread pc to hash into the cell in the
2000-02-17 20:38:33 +01:00
profile buffer ARG. */
static DWORD CALLBACK
profthr_func (LPVOID arg)
{
struct profinfo *p = (struct profinfo *) arg;
2013-04-23 11:44:36 +02:00
uintptr_t pc;
size_t idx;
2000-02-17 20:38:33 +01:00
SetThreadPriority(p->profthr, THREAD_PRIORITY_TIME_CRITICAL);
2000-02-17 20:38:33 +01:00
for (;;)
{
2013-04-23 11:44:36 +02:00
pc = (uintptr_t) get_thrpc (p->targthr);
2000-02-17 20:38:33 +01:00
if (pc >= p->lowpc && pc < p->highpc)
{
idx = PROFIDX (pc, p->lowpc, p->scale);
p->counter[idx]++;
}
#if 0
print_prof (p);
#endif
Sleep (SLEEPTIME);
}
return 0;
}
/* Stop profiling to the profiling buffer pointed to by P. */
static int
profile_off (struct profinfo *p)
{
if (p->profthr)
{
TerminateThread (p->profthr, 0);
CloseHandle (p->profthr);
}
if (p->targthr)
CloseHandle (p->targthr);
return 0;
}
/* Create a timer thread and pass it a pointer P to the profiling buffer. */
static int
profile_on (struct profinfo *p)
{
DWORD thrid;
2000-02-17 20:38:33 +01:00
/* get handle for this thread */
if (!DuplicateHandle (GetCurrentProcess (), GetCurrentThread (),
GetCurrentProcess (), &p->targthr, 0, FALSE,
DUPLICATE_SAME_ACCESS))
{
errno = ESRCH;
return -1;
}
p->profthr = CreateThread (0, 0, profthr_func, (void *) p, 0, &thrid);
if (!p->profthr)
{
CloseHandle (p->targthr);
p->targthr = 0;
errno = EAGAIN;
return -1;
}
return 0;
}
/*
* start or stop profiling
*
* profiling goes into the SAMPLES buffer of size SIZE (which is treated
* as an array of u_shorts of size size/2)
*
2000-02-17 20:38:33 +01:00
* each bin represents a range of pc addresses from OFFSET. The number
* of pc addresses in a bin depends on SCALE. (A scale of 65536 maps
* each bin to two addresses, A scale of 32768 maps each bin to 4 addresses,
* a scale of 1 maps each bin to 128k addreses). Scale may be 1 - 65536,
* or zero to turn off profiling
*/
int
profile_ctl (struct profinfo * p, char *samples, size_t size,
2013-04-23 11:44:36 +02:00
size_t offset, unsigned int scale)
2000-02-17 20:38:33 +01:00
{
2013-04-23 11:44:36 +02:00
size_t maxbin;
2000-02-17 20:38:33 +01:00
if (scale > 65536)
{
errno = EINVAL;
return -1;
}
profile_off (p);
if (scale)
{
memset (samples, 0, size);
memset (p, 0, sizeof *p);
maxbin = size >> 1;
2013-04-23 11:44:36 +02:00
prof.counter = (uint16_t *) samples;
2000-02-17 20:38:33 +01:00
prof.lowpc = offset;
prof.highpc = PROFADDR (maxbin, offset, scale);
prof.scale = scale;
return profile_on (p);
}
return 0;
}
/* Equivalent to unix profil()
Every SLEEPTIME interval, the user's program counter (PC) is examined:
offset is subtracted and the result is multiplied by scale.
2000-02-17 20:38:33 +01:00
The word pointed to by this address is incremented. Buf is unused. */
int
2013-04-23 11:44:36 +02:00
profil (char *samples, size_t size, size_t offset, unsigned int scale)
2000-02-17 20:38:33 +01:00
{
return profile_ctl (&prof, samples, size, offset, scale);
}