|
Packit |
577717 |
/* $Id: ppc.c,v 1.1.2.2 2010/06/08 20:48:56 mikpe Exp $
|
|
Packit |
577717 |
* PPC32-specific code.
|
|
Packit |
577717 |
*
|
|
Packit |
577717 |
* Copyright (C) 2004-2010 Mikael Pettersson
|
|
Packit |
577717 |
*/
|
|
Packit |
577717 |
#include <stdio.h>
|
|
Packit |
577717 |
#include <stdlib.h>
|
|
Packit |
577717 |
#include "libperfctr.h"
|
|
Packit |
577717 |
#include "arch.h"
|
|
Packit |
577717 |
|
|
Packit |
577717 |
void do_print(FILE *resfile,
|
|
Packit |
577717 |
const struct perfctr_info *info,
|
|
Packit |
577717 |
const struct perfctr_cpu_control *cpu_control,
|
|
Packit |
577717 |
const struct perfctr_sum_ctrs *sum)
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
unsigned int nrctrs, i;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if( cpu_control->tsc_on )
|
|
Packit |
577717 |
fprintf(resfile, "tsc\t\t\t%19lld\n", sum->tsc);
|
|
Packit |
577717 |
nrctrs = cpu_control->nractrs;
|
|
Packit |
577717 |
for(i = 0; i < nrctrs; ++i) {
|
|
Packit |
577717 |
fprintf(resfile, "event 0x%08X",
|
|
Packit |
577717 |
cpu_control->evntsel[i]);
|
|
Packit |
577717 |
fprintf(resfile, "\t%19lld\n", sum->pmc[i]);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
if( cpu_control->ppc.mmcr0 )
|
|
Packit |
577717 |
fprintf(resfile, "mmcr0 0x%08X\n",
|
|
Packit |
577717 |
cpu_control->ppc.mmcr0);
|
|
Packit |
577717 |
if( cpu_control->ppc.mmcr2 )
|
|
Packit |
577717 |
fprintf(resfile, "mmcr2 0x%08X\n",
|
|
Packit |
577717 |
cpu_control->ppc.mmcr2);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
void do_arch_usage(void)
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
fprintf(stderr, "\t--mmcr0=<value>\t\t\tValue for MMCR0\n");
|
|
Packit |
577717 |
fprintf(stderr, "\t--mmcr2=<value>\t\t\tValue for MMCR2\n");
|
|
Packit |
577717 |
fprintf(stderr, "\n");
|
|
Packit |
577717 |
fprintf(stderr, "Syntax of event specifiers:\n");
|
|
Packit |
577717 |
fprintf(stderr, "\tevent ::= evntsel[@pmc]\n");
|
|
Packit |
577717 |
fprintf(stderr, "\n");
|
|
Packit |
577717 |
fprintf(stderr, "\tevntsel and pmc are decimal or hexadecimal numbers.\n");
|
|
Packit |
577717 |
fprintf(stderr, "\n");
|
|
Packit |
577717 |
fprintf(stderr, "\tevntsel is the primary processor-specific event selection code\n");
|
|
Packit |
577717 |
fprintf(stderr, "\tto use for this counter. This field is mandatory.\n");
|
|
Packit |
577717 |
fprintf(stderr, "\tEvntsel is written to a field in MMCR0 or MMCR1.\n");
|
|
Packit |
577717 |
fprintf(stderr, "\n");
|
|
Packit |
577717 |
fprintf(stderr, "\tpmc describes which CPU counter to use for this event.\n");
|
|
Packit |
577717 |
fprintf(stderr, "\tBy default the events use counters 0 and up in the order listed.\n");
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
static int parse_event_spec(const char *arg, unsigned int *evntsel,
|
|
Packit |
577717 |
unsigned int *pmc)
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
char *endp;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
*evntsel = my_strtoul(arg, &endp);
|
|
Packit |
577717 |
if( endp[0] != '@' ) {
|
|
Packit |
577717 |
*pmc = (unsigned int)-1;
|
|
Packit |
577717 |
} else {
|
|
Packit |
577717 |
arg = endp + 1;
|
|
Packit |
577717 |
*pmc = my_strtoul(arg, &endp);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
return endp[0] != '\0';
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
unsigned int do_event_spec(unsigned int n,
|
|
Packit |
577717 |
const char *arg,
|
|
Packit |
577717 |
struct perfctr_cpu_control *cpu_control)
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
unsigned int spec_evntsel, spec_pmc;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if( parse_event_spec(arg, &spec_evntsel, &spec_pmc) ) {
|
|
Packit |
577717 |
fprintf(stderr, "perfex: invalid event specifier: '%s'\n", arg);
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
if( n >= ARRAY_SIZE(cpu_control->evntsel) ) {
|
|
Packit |
577717 |
fprintf(stderr, "perfex: too many event specifiers\n");
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
if( spec_pmc == (unsigned int)-1 )
|
|
Packit |
577717 |
spec_pmc = n;
|
|
Packit |
577717 |
cpu_control->evntsel[n] = spec_evntsel;
|
|
Packit |
577717 |
cpu_control->pmc_map[n] = spec_pmc;
|
|
Packit |
577717 |
cpu_control->nractrs = ++n;
|
|
Packit |
577717 |
return n;
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
static int parse_value(const char *arg, unsigned int *value)
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
char *endp;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
*value = my_strtoul(arg, &endp);
|
|
Packit |
577717 |
return endp[0] != '\0';
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
int do_arch_option(int ch,
|
|
Packit |
577717 |
const char *arg,
|
|
Packit |
577717 |
struct perfctr_cpu_control *cpu_control)
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
unsigned int spec_value;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
switch( ch ) {
|
|
Packit |
577717 |
case 1:
|
|
Packit |
577717 |
if( parse_value(arg, &spec_value) ) {
|
|
Packit |
577717 |
fprintf(stderr, "perfex: invalid value: '%s'\n", arg);
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
cpu_control->ppc.mmcr0 = spec_value;
|
|
Packit |
577717 |
return 0;
|
|
Packit |
577717 |
case 2:
|
|
Packit |
577717 |
if( parse_value(arg, &spec_value) ) {
|
|
Packit |
577717 |
fprintf(stderr, "perfex: invalid value: '%s'\n", arg);
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
cpu_control->ppc.mmcr2 = spec_value;
|
|
Packit |
577717 |
return 0;
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
return -1;
|
|
Packit |
577717 |
}
|