Author: benm
Date: 2006-01-13 09:53:46 -0500 (Fri, 13 Jan 2006)
New Revision: 55509
Added:
trunk/mono-oprofile/ChangeLog
trunk/mono-oprofile/Makefile
trunk/mono-oprofile/mop.c
Log:
2006-01-13 Ben Maurer <[EMAIL PROTECTED]>
* mop.c: Add mono-oprofile stuff
Added: trunk/mono-oprofile/ChangeLog
===================================================================
--- trunk/mono-oprofile/ChangeLog 2006-01-13 14:51:06 UTC (rev 55508)
+++ trunk/mono-oprofile/ChangeLog 2006-01-13 14:53:46 UTC (rev 55509)
@@ -0,0 +1,4 @@
+2006-01-13 Ben Maurer <[EMAIL PROTECTED]>
+
+ * mop.c: Add mono-oprofile stuff
+
Added: trunk/mono-oprofile/Makefile
===================================================================
--- trunk/mono-oprofile/Makefile 2006-01-13 14:51:06 UTC (rev 55508)
+++ trunk/mono-oprofile/Makefile 2006-01-13 14:53:46 UTC (rev 55509)
@@ -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
Added: trunk/mono-oprofile/mop.c
===================================================================
--- trunk/mono-oprofile/mop.c 2006-01-13 14:51:06 UTC (rev 55508)
+++ trunk/mono-oprofile/mop.c 2006-01-13 14:53:46 UTC (rev 55509)
@@ -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");
+}
+
+
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
