#include <glib.h>
#include <string.h>
#include <math.h>
+#include "mono/metadata/metadata-internals.h"
#include "mono/metadata/class-internals.h"
#include "mono/metadata/assembly.h"
#include "mono/metadata/tokentype.h"
static int verbose = 0;
static const char *graph_properties = "\tnode [fontsize=8.0]\n\tedge [len=2,color=red]\n";
+#if defined(__native_client__) || defined(__native_client_codegen__)
+volatile int __nacl_thread_suspension_needed = 0;
+void __nacl_suspend_thread_if_needed() {}
+#endif
+
static void
output_type_edge (MonoClass *first, MonoClass *second) {
if (include_namespace)
MonoMethodHeader *header;
MonoMethodSignature *sig;
const unsigned char *ip, *il_code_end;
- int i, n;
+ guint32 i, n;
int local_branch = 0, local_condbranch = 0, local_throw = 0, local_calls = 0;
gint64 l;
}
}
+static void
+type_size_stats (MonoClass *klass)
+{
+ int code_size = 0;
+ MonoMethod *method;
+ MonoMethodHeader *header;
+ gpointer iter;
+
+ iter = NULL;
+ while ((method = mono_class_get_methods (klass, &iter))) {
+ guint32 size, maxs;
+ header = mono_method_get_header (method);
+ if (!header)
+ continue;
+ mono_method_header_get_code (header, &size, &maxs);
+ code_size += size;
+ }
+ g_print ("%s.%s: code: %d\n", klass->name_space, klass->name, code_size);
+}
+
+static void
+size_stats (MonoImage *image, const char *name) {
+ int i, num_types;
+ MonoClass *klass;
+
+ num_types = mono_image_get_table_rows (image, MONO_TABLE_TYPEDEF);
+ for (i = 0; i < num_types; ++i) {
+ klass = mono_class_get (image, MONO_TOKEN_TYPE_DEF | (i + 1));
+ type_size_stats (klass);
+ }
+}
+
+
static char *
get_signature (MonoMethod *method) {
GString *res;
res = g_string_new ("");
if (include_namespace && *(method->klass->name_space))
- g_string_sprintfa (res, "%s.", method->klass->name_space);
+ g_string_append_printf (res, "%s.", method->klass->name_space);
result = mono_signature_get_desc (mono_method_signature (method), include_namespace);
- g_string_sprintfa (res, "%s:%s(%s)", method->klass->name, method->name, result);
+ g_string_append_printf (res, "%s:%s(%s)", method->klass->name, method->name, result);
g_free (result);
g_hash_table_insert (hash, method, res->str);
GHashTable *hash;
static GHashTable *visited = NULL;
const unsigned char *ip, *il_code_end;
- int i;
+ guint32 i;
if (depth++ > max_depth)
return;
{
const unsigned char *ip, *end, *start;
const MonoOpcode *opcode;
- int i, block_end = 0;
+ guint32 i, block_end = 0;
GPtrArray *result = g_ptr_array_new ();
GHashTable *table = g_hash_table_new (g_direct_hash, g_direct_equal);
MonoBasicBlock *entry_bb, *end_bb, *bb, *target;
ip += 4;
if (!(target = g_hash_table_lookup (table, itarget))) {
target = g_new0 (MonoBasicBlock, 1);
- target->cil_code = itarget;
+ target->cil_code = (const guchar*)itarget;
g_ptr_array_add (result, target);
g_hash_table_insert (table, (gpointer) itarget, target);
}
next = tmp->data;
if (!next->dfn) {
if (!bb->cil_code)
- fprintf (output, "\t\"DF entry\" -> \"IL_%04x (%d)\"\n", next->cil_code - code, *dfn + 1);
+ fprintf (output, "\t\"DF entry\" -> \"IL_%04x (%d)\"\n", (unsigned int)(next->cil_code - code), *dfn + 1);
else
- fprintf (output, "\t\"IL_%04x (%d)\" -> \"IL_%04x (%d)\"\n", bb->cil_code - code, bb->dfn, next->cil_code - code, *dfn + 1);
+ fprintf (output, "\t\"IL_%04x (%d)\" -> \"IL_%04x (%d)\"\n", (unsigned int)(bb->cil_code - code), bb->dfn, (unsigned int)(next->cil_code - code), *dfn + 1);
df_visit (next, dfn, code);
}
}
fprintf (output, "\tB%p [shape=record,label=\"end\"]\n", bb);
else {
code = mono_disasm_code (&graph_dh, method, bb->cil_code, bb->cil_code + bb->cil_length);
- fprintf (output, "\tB%p [shape=record,label=\"IL_%04x\\n%s\"]\n", bb, bb->cil_code - il_code, code);
+ fprintf (output, "\tB%p [shape=record,label=\"IL_%04x\\n%s\"]\n", bb, (unsigned int)(bb->cil_code - il_code), code);
g_free (code);
}
}
printf ("\t-c|--call output call graph instead of type hierarchy\n");
printf ("\t-C|--control-flow output control flow of methodname\n");
printf ("\t--stats output some statistics about the assembly\n");
+ printf ("\t--size output some size statistics about the assembly\n");
printf ("\t-d|--depth num max depth recursion (default: 6)\n");
printf ("\t-o|--output filename write graph to file filename (default: stdout)\n");
printf ("\t-f|--fullname include namespace in type and method names\n");
GRAPH_CALL,
GRAPH_INTERFACE,
GRAPH_CONTROL_FLOW,
+ GRAPH_SIZE_STATS,
GRAPH_STATS
};
graphtype = GRAPH_INTERFACE;
} else if (strcmp (argv [i], "--stats") == 0) {
graphtype = GRAPH_STATS;
+ } else if (strcmp (argv [i], "--size") == 0) {
+ graphtype = GRAPH_SIZE_STATS;
} else if (strcmp (argv [i], "--fullname") == 0 || strcmp (argv [i], "-f") == 0) {
include_namespace = 1;
} else if (strcmp (argv [i], "--neato") == 0 || strcmp (argv [i], "-n") == 0) {
if (outputfile) {
type = strrchr (outputfile, '.');
- g_string_sprintfa (command, " -o %s", outputfile);
+ g_string_append_printf (command, " -o %s", outputfile);
}
if (type)
- g_string_sprintfa (command, " -T%s", type + 1);
+ g_string_append_printf (command, " -T%s", type + 1);
output = popen (command->str, "w");
if (!output) {
g_print ("Cannot run neato: you may need to install the graphviz package.\n");
case GRAPH_STATS:
stats (image, cname);
break;
+ case GRAPH_SIZE_STATS:
+ size_stats (image, cname);
+ break;
default:
g_error ("wrong graph type");
}
fclose (output);
return 0;
}
-
-
projects / mono.git / blobdiff