projects / mono.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
[sdb] Fix step-over with recursive functions. Fixes #5700.
[mono.git] / mono / dis / dump.c
diff --git a/mono/dis/dump.c b/mono/dis/dump.c
old mode 100644 (file)
new mode 100755 (executable)
index ba2354d..2b3a485
--- a/mono/dis/dump.c
+++ b/mono/dis/dump.c
@@ -21,12 +21,9 @@
 #include "mono/metadata/class-internals.h"
 #include "mono/utils/mono-compiler.h"
 
-#ifndef HAVE_ISINF
-
-#ifdef HAVE_IEEEFP_H
-extern int isinf (double);
-#endif
-
+#if defined(__native_client__) && defined(__GLIBC__)
+volatile int __nacl_thread_suspension_needed = 0;
+void __nacl_suspend_thread_if_needed() {}
 #endif
 
 void
@@ -570,7 +567,7 @@ dump_table_method (MonoImage *m)
        last_m = first_m = 1;
        for (i = 1; i <= t->rows; i++){
                guint32 cols [MONO_METHOD_SIZE];
-               char *sig;
+               char *sig, *impl_flags;
                const char *sigblob;
                MonoMethodSignature *method;
 
@@ -598,8 +595,10 @@ dump_table_method (MonoImage *m)
                mono_metadata_decode_blob_size (sigblob, &sigblob);
                method = mono_metadata_parse_method_signature_full (m, method_container ? method_container : type_container, i, sigblob, &sigblob);
                sig = dis_stringify_method_signature (m, method, i, method_container ? method_container : type_container, FALSE);
-               fprintf (output, "%d: %s (param: %d)\n", i, sig, cols [MONO_METHOD_PARAMLIST]);
+                impl_flags = get_method_impl_flags (cols [MONO_METHOD_IMPLFLAGS]);
+               fprintf (output, "%d: %s (param: %d impl_flags: %s)\n", i, sig, cols [MONO_METHOD_PARAMLIST], impl_flags);
                g_free (sig);
+               g_free (impl_flags);
                mono_metadata_free_method_signature (method);
        }
        
@@ -630,6 +629,22 @@ dump_table_implmap (MonoImage *m)
        }
 }
 
+void
+dump_table_fieldrva  (MonoImage *m)
+{
+       MonoTableInfo *t = &m->tables [MONO_TABLE_FIELDRVA];
+       int i;
+
+       fprintf (output, "FieldRVA Table (1..%d)\n", t->rows);
+
+       for (i = 1; i <= t->rows; i++){
+               guint32 cols [MONO_FIELD_RVA_SIZE];
+
+               mono_metadata_decode_row (t, i - 1, cols, MONO_FIELD_RVA_SIZE);
+               fprintf (output, "%d: Field %d: %x\n", i, cols [MONO_FIELD_RVA_FIELD], cols [MONO_FIELD_RVA_RVA]);
+       }
+}
+
 void
 dump_table_methodimpl (MonoImage *m)
 {
@@ -804,58 +819,58 @@ custom_attr_params (MonoImage *m, MonoMethodSignature* sig, const char* value)
 handle_enum:
                switch (type) {
                case MONO_TYPE_U1:
-                       g_string_sprintfa (res, "%d", (unsigned int)*p);
+                       g_string_append_printf (res, "%d", (unsigned int)*p);
                        ++p;
                        break;
                case MONO_TYPE_I1:
-                       g_string_sprintfa (res, "%d", *p);
+                       g_string_append_printf (res, "%d", *p);
                        ++p;
                        break;
                case MONO_TYPE_BOOLEAN:
-                       g_string_sprintfa (res, "%s", *p?"true":"false");
+                       g_string_append_printf (res, "%s", *p?"true":"false");
                        ++p;
                        break;
                case MONO_TYPE_CHAR:
-                       g_string_sprintfa (res, "'%c'", read16 (p));
+                       g_string_append_printf (res, "'%c'", read16 (p));
                        p += 2;
                        break;
                case MONO_TYPE_U2:
-                       g_string_sprintfa (res, "%d", read16 (p));
+                       g_string_append_printf (res, "%d", read16 (p));
                        p += 2;
                        break;
                case MONO_TYPE_I2:
-                       g_string_sprintfa (res, "%d", (gint16)read16 (p));
+                       g_string_append_printf (res, "%d", (gint16)read16 (p));
                        p += 2;
                        break;
                case MONO_TYPE_U4:
-                       g_string_sprintfa (res, "%d", read32 (p));
+                       g_string_append_printf (res, "%d", read32 (p));
                        p += 4;
                        break;
                case MONO_TYPE_I4:
-                       g_string_sprintfa (res, "%d", (gint32)read32 (p));
+                       g_string_append_printf (res, "%d", (gint32)read32 (p));
                        p += 4;
                        break;
                case MONO_TYPE_U8:
-                       g_string_sprintfa (res, "%lld", (long long)read64 (p));
+                       g_string_append_printf (res, "%lld", (long long)read64 (p));
                        p += 8;
                        break;
                case MONO_TYPE_I8:
-                       g_string_sprintfa (res, "%lld", (long long)read64 (p));
+                       g_string_append_printf (res, "%lld", (long long)read64 (p));
                        p += 8;
                        break;
                case MONO_TYPE_R4: {
                        float val;
                        int inf;
                        readr4 (p, &val);
-                       inf = isinf (val);
+                       inf = dis_isinf (val);
                        if (inf == -1) 
-                               g_string_sprintfa (res, "(00 00 80 ff)"); /* negative infinity */
+                               g_string_append_printf (res, "(00 00 80 ff)"); /* negative infinity */
                        else if (inf == 1)
-                               g_string_sprintfa (res, "(00 00 80 7f)"); /* positive infinity */
-                       else if (isnan (val))
-                               g_string_sprintfa (res, "(00 00 c0 ff)"); /* NaN */
+                               g_string_append_printf (res, "(00 00 80 7f)"); /* positive infinity */
+                       else if (dis_isnan (val))
+                               g_string_append_printf (res, "(00 00 c0 ff)"); /* NaN */
                        else
-                               g_string_sprintfa (res, "%g", val);
+                               g_string_append_printf (res, "%g", val);
                        p += 4;
                        break;
                }
@@ -864,15 +879,15 @@ handle_enum:
                        int inf;
                        
                        readr8 (p, &val);
-                       inf = isinf (val);
+                       inf = dis_isinf (val);
                        if (inf == -1) 
-                               g_string_sprintfa (res, "(00 00 00 00 00 00 f0 ff)"); /* negative infinity */
+                               g_string_append_printf (res, "(00 00 00 00 00 00 f0 ff)"); /* negative infinity */
                        else if (inf == 1)
-                               g_string_sprintfa (res, "(00 00 00 00 00 00 f0 7f)"); /* positive infinity */
+                               g_string_append_printf (res, "(00 00 00 00 00 00 f0 7f)"); /* positive infinity */
                        else if (isnan (val))
-                               g_string_sprintfa (res, "(00 00 00 00 00 00 f8 ff)"); /* NaN */
+                               g_string_append_printf (res, "(00 00 00 00 00 00 f8 ff)"); /* NaN */
                        else
-                               g_string_sprintfa (res, "%g", val);
+                               g_string_append_printf (res, "%g", val);
                        p += 8;
                        break;
                }
@@ -904,10 +919,10 @@ handle_enum:
        }
        slen = read16 (p);
        if (slen) {
-               g_string_sprintfa (res, " %d named args: (", slen);
+               g_string_append_printf (res, " %d named args: (", slen);
                slen = len - (p - value) + 1;
                for (i = 0; i < slen; ++i) {
-                       g_string_sprintfa (res, " %02X", (p [i] & 0xff));
+                       g_string_append_printf (res, " %02X", (p [i] & 0xff));
                }
                g_string_append_c (res, ')');
        }
@@ -985,7 +1000,7 @@ dump_table_exported (MonoImage *m)
        int i;
        const char *name, *nspace;
        char *impl;
-       guint32 index;
+       guint32 index, flags;
        fprintf (output, "ExportedType Table (1..%d)\n", t->rows);
 
        for (i = 1; i <= t->rows; i++) {
@@ -994,7 +1009,8 @@ dump_table_exported (MonoImage *m)
                nspace = mono_metadata_string_heap (m, cols [MONO_EXP_TYPE_NAMESPACE]);
                impl = get_manifest_implementation (m, cols [MONO_EXP_TYPE_IMPLEMENTATION]);
                index = cols [MONO_EXP_TYPE_TYPEDEF];
-               fprintf (output, "%d: %s%s%s is in %s, token %x\n", i, nspace, *nspace ? "." : "", name, impl, index);
+               flags = cols [MONO_EXP_TYPE_FLAGS];
+               fprintf (output, "%d: %s%s%s is in %s, index=%x, flags=0x%x\n", i, nspace, *nspace ? "." : "", name, impl, index, flags);
                g_free (impl);
        }
        
my mono mirror. check out Moved to http://github.com/mono/mono