1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
/* profil.c -- win32 profil.c equivalent
Copyright 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
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. */
/*
* This file is taken from Cygwin distribution, adopted to be used for bare embeeded targets.
*/
#include <stdio.h>
#include <sys/types.h>
#include <errno.h>
#include <math.h>
#include "profil.h"
#include <string.h>
#include <stdint.h>
/* global profinfo for profil() call */
static struct profinfo prof = {
PROFILE_NOT_INIT, 0, 0, 0, 0
};
/* sample the current program counter */
void SysTick_Handler(void) {
void OSA_SysTick_Handler(void);
static size_t pc, idx;
OSA_SysTick_Handler(); /* call normal Kinetis SDK SysTick handler */
if (prof.state==PROFILE_ON) {
pc = ((uint32_t*)(__builtin_frame_address(0)))[14]; /* get SP and use it to get the return address from stack */
if (pc >= prof.lowpc && pc < prof.highpc) {
idx = PROFIDX (pc, prof.lowpc, prof.scale);
prof.counter[idx]++;
}
}
}
/* Stop profiling to the profiling buffer pointed to by p. */
static int profile_off (struct profinfo *p) {
p->state = PROFILE_OFF;
return 0;
}
/* Create a timer thread and pass it a pointer P to the profiling buffer. */
static int profile_on (struct profinfo *p) {
p->state = PROFILE_ON;
return 0; /* ok */
}
/*
* 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)
*
* 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 address). Scale may be 1 - 65536,
* or zero to turn off profiling
*/
int profile_ctl (struct profinfo *p, char *samples, size_t size, size_t offset, u_int scale) {
size_t maxbin;
if (scale > 65536) {
errno = EINVAL;
return -1;
}
profile_off(p);
if (scale) {
memset(samples, 0, size);
memset(p, 0, sizeof *p);
maxbin = size >> 1;
prof.counter = (u_short*)samples;
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.
The word pointed to by this address is incremented. */
int profil (char *samples, size_t size, size_t offset, u_int scale) {
return profile_ctl (&prof, samples, size, offset, scale);
}
|
