projects / mono.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Implement SemaphoreSecurity.
[mono.git] / mono / dis / main.c
diff --git a/mono/dis/main.c b/mono/dis/main.c
index 6767a61e6932b6f6f9575c72cef8e629cdd9b2ce..d4719cac40c0592b98bbef8dcbf4c5dce0af19a1 100644 (file)
--- a/mono/dis/main.c
+++ b/mono/dis/main.c
@@ -535,8 +535,8 @@ static dis_map_t method_flags_map [] = {
        { METHOD_ATTRIBUTE_RT_SPECIAL_NAME,     "rtspecialname " },
        { METHOD_ATTRIBUTE_UNMANAGED_EXPORT,    "export " },
 /* MS ilasm doesn't compile this statement - is must be added automagically when permissionset are present */
-/*     { METHOD_ATTRIBUTE_HAS_SECURITY,        "hassecurity" }, */
-       { METHOD_ATTRIBUTE_REQUIRE_SEC_OBJECT,  "requiresecobj" },
+       { METHOD_ATTRIBUTE_HAS_SECURITY,        "" /*"hassecurity"*/ },
+       { METHOD_ATTRIBUTE_REQUIRE_SEC_OBJECT,  "requiresecobj " },
        { METHOD_ATTRIBUTE_PINVOKE_IMPL,        "pinvokeimpl " }, 
        { METHOD_ATTRIBUTE_STRICT,                  "strict " }, 
        { 0, NULL }
@@ -552,10 +552,11 @@ method_flags (guint32 f)
 {
        GString *str = g_string_new ("");
        int access = f & METHOD_ATTRIBUTE_MEMBER_ACCESS_MASK;
+       int rest = f & ~access;
        char *s;
        
        g_string_append (str, map (access, method_access_map));
-       g_string_append (str, flags (f, method_flags_map));
+       g_string_append (str, flags (rest, method_flags_map));
 
        s = str->str;
        g_string_free (str, FALSE);
@@ -566,10 +567,10 @@ method_flags (guint32 f)
 static dis_map_t pinvoke_flags_map [] = {
        { PINVOKE_ATTRIBUTE_NO_MANGLE ,            "nomangle " },
        { PINVOKE_ATTRIBUTE_SUPPORTS_LAST_ERROR,   "lasterr " },
-       { PINVOKE_ATTRIBUTE_BEST_FIT_ENABLED,      "bestfit:on" },
-       { PINVOKE_ATTRIBUTE_BEST_FIT_DISABLED,      "bestfit:off" },
-       { PINVOKE_ATTRIBUTE_THROW_ON_UNMAPPABLE_ENABLED, "charmaperror:on" },
-       { PINVOKE_ATTRIBUTE_THROW_ON_UNMAPPABLE_DISABLED, "charmaperror:off" },
+       { PINVOKE_ATTRIBUTE_BEST_FIT_ENABLED,      "bestfit:on " },
+       { PINVOKE_ATTRIBUTE_BEST_FIT_DISABLED,      "bestfit:off " },
+       { PINVOKE_ATTRIBUTE_THROW_ON_UNMAPPABLE_ENABLED, "charmaperror:on " },
+       { PINVOKE_ATTRIBUTE_THROW_ON_UNMAPPABLE_DISABLED, "charmaperror:off " },
        { 0, NULL }
 };
 
@@ -602,11 +603,12 @@ pinvoke_flags (guint32 f)
        GString *str = g_string_new ("");
        int cset = f & PINVOKE_ATTRIBUTE_CHAR_SET_MASK;
        int cconv = f & PINVOKE_ATTRIBUTE_CALL_CONV_MASK;
+       int rest = f & ~(cset | cconv);
        char *s;
 
        g_string_append (str, map (cset, pinvoke_char_set_map));
        g_string_append (str, map (cconv, pinvoke_call_conv_map));
-       g_string_append (str, flags (f, pinvoke_flags_map));
+       g_string_append (str, flags (rest, pinvoke_flags_map));
 
        s = g_strdup(str->str);
        g_string_free (str, FALSE);
@@ -614,46 +616,6 @@ pinvoke_flags (guint32 f)
        return s;
 }
 
-static dis_map_t method_impl_map [] = {
-       { METHOD_IMPL_ATTRIBUTE_IL,              "cil " },
-       { METHOD_IMPL_ATTRIBUTE_NATIVE,          "native " },
-       { METHOD_IMPL_ATTRIBUTE_OPTIL,           "optil " },
-       { METHOD_IMPL_ATTRIBUTE_RUNTIME,         "runtime " },
-       { 0, NULL }
-};
-
-static dis_map_t managed_type_map [] = {
-       { METHOD_IMPL_ATTRIBUTE_UNMANAGED,       "unmanaged " },
-       { METHOD_IMPL_ATTRIBUTE_MANAGED,         "managed " },
-       { 0, NULL }
-};
-
-static dis_map_t managed_impl_flags [] = {
-       { METHOD_IMPL_ATTRIBUTE_FORWARD_REF,     "fwdref " },
-       { METHOD_IMPL_ATTRIBUTE_PRESERVE_SIG,    "preservesig " },
-       { METHOD_IMPL_ATTRIBUTE_INTERNAL_CALL,   "internalcall " },
-       { METHOD_IMPL_ATTRIBUTE_SYNCHRONIZED,    "synchronized " },
-       { METHOD_IMPL_ATTRIBUTE_NOINLINING,      "noinlining " },
-       { 0, NULL }
-};
-
-static char *
-method_impl_flags (guint32 f)
-{
-       GString *str = g_string_new ("");
-       char *s;
-       int code_type = f & METHOD_IMPL_ATTRIBUTE_CODE_TYPE_MASK;
-       int managed_type = f & METHOD_IMPL_ATTRIBUTE_MANAGED_MASK;
-
-       g_string_append (str, map (code_type, method_impl_map));
-       g_string_append (str, map (managed_type, managed_type_map));
-       g_string_append (str, flags (f, managed_impl_flags));
-       
-       s = str->str;
-       g_string_free (str, FALSE);
-       return s;
-}
-
 static void
 dis_locals (MonoImage *m, MonoMethodHeader *mh, const char *ptr) 
 {
@@ -885,7 +847,7 @@ dis_method_list (const char *klass_name, MonoImage *m, guint32 start, guint32 en
                mono_metadata_decode_row (t, i, cols, MONO_METHOD_SIZE);
 
                flags = method_flags (cols [MONO_METHOD_FLAGS]);
-               impl_flags = method_impl_flags (cols [MONO_METHOD_IMPLFLAGS]);
+               impl_flags = get_method_impl_flags (cols [MONO_METHOD_IMPLFLAGS]);
 
                sig = mono_metadata_blob_heap (m, cols [MONO_METHOD_SIGNATURE]);
                mono_metadata_decode_blob_size (sig, &sig);
@@ -897,8 +859,13 @@ dis_method_list (const char *klass_name, MonoImage *m, guint32 start, guint32 en
                        container = type_container;
 
                ms = mono_metadata_parse_method_signature_full (m, container, i + 1, sig, &sig);
-               sig_str = dis_stringify_method_signature (m, ms, i + 1, container, FALSE);
-               method_name = mono_metadata_string_heap (m, cols [MONO_METHOD_NAME]);
+               if (ms != NULL){
+                       sig_str = dis_stringify_method_signature (m, ms, i + 1, container, FALSE);
+                       method_name = mono_metadata_string_heap (m, cols [MONO_METHOD_NAME]);
+               } else {
+                       sig_str = NULL;
+                       method_name = g_strdup ("<NULL METHOD SIGNATURE>");
+               }
 
                fprintf (output, "    // method line %d\n", i + 1);
                fprintf (output, "    .method %s", flags);
@@ -1016,7 +983,7 @@ dis_property_signature (MonoImage *m, guint32 prop_idx, MonoGenericContainer *co
        if (prop_flags & 0x0400)
                g_string_append (res, "rtspecialname ");
        qk = get_escaped_name (name);
-       g_string_sprintfa (res, "%s %s (", blurb, qk);
+       g_string_append_printf (res, "%s %s (", blurb, qk);
        g_free (qk);
        g_free (blurb);
        for (i = 0; i < pcount; i++) {
@@ -1068,7 +1035,7 @@ dis_event_signature (MonoImage *m, guint32 event_idx, MonoGenericContainer *cont
                g_string_append (res, "specialname ");
        if (event_flags & 0x0400)
                g_string_append (res, "rtspecialname ");
-       g_string_sprintfa (res, "%s %s", type, esname);
+       g_string_append_printf (res, "%s %s", type, esname);
 
        g_free (type);
        g_free (esname);
@@ -1222,7 +1189,7 @@ dis_type (MonoImage *m, int n, int is_nested, int forward)
                
                 param = get_generic_param (m, container);
                if (param) {
-                       fprintf (output, param);
+                       fprintf (output, "%s", param);
                        g_free (param);
                }
                 fprintf (output, "\n");
@@ -1236,7 +1203,7 @@ dis_type (MonoImage *m, int n, int is_nested, int forward)
 
                 param = get_generic_param (m, container);
                if (param) {
-                       fprintf (output, param);
+                       fprintf (output, "%s", param);
                        g_free (param);
                }
                fprintf (output, "\n");
@@ -1340,8 +1307,7 @@ dis_globals (MonoImage *m)
 
 }
 
-static void
-dis_mresource (MonoImage *m)
+static void dis_resources_worker (MonoImage *m, gboolean just_print)
 {
        MonoTableInfo *t = &m->tables [MONO_TABLE_MANIFESTRESOURCE];
        int i;
@@ -1354,10 +1320,21 @@ dis_mresource (MonoImage *m)
 
                mono_metadata_decode_row (t, i, cols, MONO_MANIFEST_SIZE);
                name = mono_metadata_string_heap (m, cols [MONO_MANIFEST_NAME]);
+
+               if (just_print)
+                       fprintf (output, "%8x: %s", cols [MONO_MANIFEST_OFFSET], name);
                
-               if (! (res = mono_image_get_resource (m, cols [MONO_MANIFEST_OFFSET], &size)))
+               if (! (res = mono_image_get_resource (m, cols [MONO_MANIFEST_OFFSET], &size))) {
+                       if (just_print)
+                               fprintf (output, " (absent from image)\n");
                        continue;       
+               }
 
+               if (just_print) {
+                       fprintf (output, " (size %u)\n", size);
+                       continue;
+               }
+               
                if ( (fp = fopen (name, "ab")) ) {
                        if (ftell (fp) == 0)
                                fwrite (res, size, 1, fp);
@@ -1370,6 +1347,18 @@ dis_mresource (MonoImage *m)
        }               
 }
 
+static void
+dis_mresource (MonoImage *m)
+{
+       dis_resources_worker (m, FALSE);
+}
+
+static void
+dis_presource (MonoImage *m)
+{
+       dis_resources_worker (m, TRUE);
+}
+
 static char *
 exported_type_flags (guint32 flags)
 {
@@ -1570,6 +1559,7 @@ struct {
        { "--moduleref",   MONO_TABLE_MODULEREF,        dump_table_moduleref },
        { "--module",      MONO_TABLE_MODULE,           dump_table_module },
        { "--mresources",  0,   dis_mresource },
+       { "--presources", 0, dis_presource },
        { "--nested",      MONO_TABLE_NESTEDCLASS,      dump_table_nestedclass },
        { "--param",       MONO_TABLE_PARAM,            dump_table_param },
        { "--parconst",    MONO_TABLE_GENERICPARAMCONSTRAINT, dump_table_parconstraint },
my mono mirror. check out Moved to http://github.com/mono/mono