2006-01-13 Ben Maurer <bmaurer@andrew.cmu.edu>

* mop.c: Add mono-oprofile stuff


svn path=/trunk/mono-oprofile/; revision=55509
This commit is contained in:
Ben Maurer 2006-01-13 14:53:46 +00:00
Коммит c2530ffa8a
3 изменённых файлов: 169 добавлений и 0 удалений

4
ChangeLog Normal file
Просмотреть файл

@ -0,0 +1,4 @@
2006-01-13 Ben Maurer <bmaurer@andrew.cmu.edu>
* mop.c: Add mono-oprofile stuff

9
Makefile Normal file
Просмотреть файл

@ -0,0 +1,9 @@
all: libmono-profiler-mop.so
libmono-profiler-mop.so : *.c
gcc -g -shared -o $@ `pkg-config --cflags --libs mono` *.c
clean:
rm -rf libmono-profiler-mop.so

156
mop.c Normal file
Просмотреть файл

@ -0,0 +1,156 @@
#include <mono/metadata/profiler.h>
#include <mono/metadata/debug-helpers.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <fcntl.h>
#include <stdint.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include <dirent.h>
#include <libgen.h>
/*
* Bare bones profiler. Compile with:
* gcc -shared -o mono-profiler-sample.so sample.c `pkg-config --cflags --libs mono`
* Install the binary where the dynamic loader can find it.
* Then run mono with:
* mono --profile=sample your_application.exe
*/
FILE* ldscript;
FILE* assm;
struct _MonoProfiler {
};
/* called at the end of the program */
static void
sample_shutdown (MonoProfiler *prof)
{
fclose (ldscript);
fclose (assm);
}
typedef struct _JitRange JitRange;
struct _JitRange {
JitRange* next;
gpointer start;
gpointer end;
int rangenum;
};
JitRange* range_head = NULL;
int range_num = 0;
void find_mapping_range (gpointer addr, gpointer* start, gpointer * end)
{
const int MAX_LINE_LEN = 1024;
FILE * fd = NULL;
char line[MAX_LINE_LEN];
char temp[MAX_LINE_LEN];
int rc;
fd = fopen("/proc/self/maps","r");
if (fd) {
while (fgets(line, MAX_LINE_LEN, fd) != NULL) {
rc = sscanf(line, "%lx-%lx %s", start, end, temp);
if (rc != 3)
break;
if (addr >= *start && addr <= *end) {
fclose(fd);
return;
}
}
}
*start = *end = 0;
fclose(fd);
}
JitRange*
mop_get_jit_range (gpointer start)
{
JitRange* r;
for (r = range_head; r ; r = r->next) {
if (start >= r->start && start <= r->end)
break;
}
if (!r) {
r = g_new0(JitRange, 1);
r->next = range_head;
range_head = r;
find_mapping_range (start, &r->start, &r->end);
r->rangenum = range_num ++;
fprintf (ldscript, "SECTIONS { . = %p; vm%d : { *(vm%d) }}\n",
r->start,
r->rangenum,
r->rangenum);
}
return r;
}
static void
mop_jit_end (MonoProfiler *prof, MonoMethod *method, MonoJitInfo* jinfo, int result)
{
static int n = 0;
char* name = mono_method_full_name (method, TRUE);
char* start = mono_jit_info_get_code_start (jinfo);
int len = mono_jit_info_get_code_size (jinfo);
int i;
JitRange * jr;
jr = mop_get_jit_range (start);
for (i = 0; name [i]; ++i) {
if (!isalnum (name [i]))
name [i] = '_';
}
fprintf (assm, ".section vm%d\n", jr->rangenum);
fprintf (assm, ".org %p\n", (char*)start - (char*)jr->start);
fprintf (assm, "%s%d:\n", name, ++n);
for (i = 0; i < len; i ++) {
fprintf (assm, ".byte %d; ", start [i]);
}
fprintf (assm, "\n\n\n");
g_free (name);
}
/* the entry point */
void
mono_profiler_startup (const char *desc)
{
MonoProfiler *prof = g_new0 (MonoProfiler, 1);
mono_profiler_install (prof, sample_shutdown);
mono_profiler_install_jit_end (mop_jit_end);
mono_profiler_set_events (MONO_PROFILE_JIT_COMPILATION);
ldscript = fopen ("ldscript", "w");
assm = fopen ("jit.s", "w");
}