mono/utils/mono-error.c

   1 /*
   2  * mono-error.c: Error handling code
   3  *
   4  * Authors:
   5  *      Rodrigo Kumpera    (rkumpera@novell.com)
   6  * Copyright 2009 Novell, Inc (http://www.novell.com)
   7  */
   8 #include <glib.h>
   9
  10 #include "mono-error.h"
  11 #include "mono-error-internals.h"
  12
  13 #include <mono/metadata/exception.h>
  14 #include <mono/metadata/class-internals.h>
  15 #include <mono/metadata/debug-helpers.h>
  16
  17 #define mono_internal_error_get_message(E) ((E)->full_message ? (E)->full_message : (E)->message)
  18
  19 #define set_error_message() do { \
  20         va_list args; \
  21         va_start (args, msg_format); \
  22         if (g_vsnprintf (error->message, sizeof (error->message), msg_format, args) >= sizeof (error->message)) {\
  23                 va_end (args); \
  24                 va_start (args, msg_format); \
  25                 if (!(error->full_message = g_strdup_vprintf (msg_format, args))) \
  26                         error->flags |= MONO_ERROR_INCOMPLETE; \
  27         } \
  28         va_end (args); \
  29 } while (0)
  30
  31 static void
  32 mono_error_prepare (MonoErrorInternal *error)
  33 {
  34         if (error->error_code != MONO_ERROR_NONE)
  35                 return;
  36
  37         error->type_name = error->assembly_name = error->member_name = error->full_message = error->exception_name_space = error->exception_name = error->full_message_with_fields = NULL;
  38         error->klass = NULL;
  39         error->message [0] = 0;
  40 }
  41
  42 static const char*
  43 get_type_name (MonoErrorInternal *error)
  44 {
  45         if (error->type_name)
  46                 return error->type_name;
  47         if (error->klass)
  48                 return error->klass->name;
  49         return "<unknown type>";
  50 }
  51
  52 static const char*
  53 get_assembly_name (MonoErrorInternal *error)
  54 {
  55         if (error->assembly_name)
  56                 return error->assembly_name;
  57         if (error->klass && error->klass->image)
  58                 return error->klass->image->name;
  59         return "<unknown assembly>";
  60 }
  61
  62 void
  63 mono_error_init_flags (MonoError *oerror, unsigned short flags)
  64 {
  65         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
  66         g_assert (sizeof (MonoError) == sizeof (MonoErrorInternal));
  67
  68         error->error_code = MONO_ERROR_NONE;
  69         error->flags = flags;
  70 }
  71
  72 void
  73 mono_error_init (MonoError *error)
  74 {
  75         mono_error_init_flags (error, 0);
  76 }
  77
  78 void
  79 mono_error_cleanup (MonoError *oerror)
  80 {
  81         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
  82         if (error->error_code == MONO_ERROR_NONE)
  83                 return;
  84
  85         g_free ((char*)error->full_message);
  86         g_free ((char*)error->full_message_with_fields);
  87         if (!(error->flags & MONO_ERROR_FREE_STRINGS)) //no memory was allocated
  88                 return;
  89
  90         g_free ((char*)error->type_name);
  91         g_free ((char*)error->assembly_name);
  92         g_free ((char*)error->member_name);
  93         g_free ((char*)error->exception_name_space);
  94         g_free ((char*)error->exception_name);
  95 }
  96
  97 gboolean
  98 mono_error_ok (MonoError *error)
  99 {
 100         return error->error_code == MONO_ERROR_NONE;
 101 }
 102
 103 void
 104 mono_error_assert_ok (MonoError *error)
 105 {
 106         if (mono_error_ok (error))
 107                 return;
 108
 109         g_error ("%s\n", mono_error_get_message (error));
 110 }
 111
 112 unsigned short
 113 mono_error_get_error_code (MonoError *error)
 114 {
 115         return error->error_code;
 116 }
 117
 118 /*Return a pointer to the internal error message, might be NULL.
 119 Caller should not release it.*/
 120 const char*
 121 mono_error_get_message (MonoError *oerror)
 122 {
 123         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 124         if (error->error_code == MONO_ERROR_NONE)
 125                 return NULL;
 126         if (error->full_message_with_fields)
 127                 return error->full_message_with_fields;
 128
 129         error->full_message_with_fields = g_strdup_printf ("%s assembly:%s type:%s member:%s",
 130                 mono_internal_error_get_message (error),
 131                 get_assembly_name (error),
 132                 get_type_name (error),
 133                 error->member_name ? error->member_name : "<none>");
 134
 135         return error->full_message_with_fields ? error->full_message_with_fields : mono_internal_error_get_message (error);
 136 }
 137
 138 /*
 139  * Inform that this error has heap allocated strings.
 140  * The strings will be duplicated if @dup_strings is TRUE
 141  * otherwise they will just be free'd in mono_error_cleanup.
 142  */
 143 void
 144 mono_error_dup_strings (MonoError *oerror, gboolean dup_strings)
 145 {
 146 #define DUP_STR(field) do { if (error->field) {\
 147         if (!(error->field = g_strdup (error->field))) \
 148                 error->flags |= MONO_ERROR_INCOMPLETE; \
 149         }} while (0);
 150
 151         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 152         error->flags |= MONO_ERROR_FREE_STRINGS;
 153
 154         if (dup_strings) {
 155                 DUP_STR (type_name);
 156                 DUP_STR (assembly_name);
 157                 DUP_STR (member_name);
 158                 DUP_STR (exception_name_space);
 159                 DUP_STR (exception_name);
 160         }
 161 #undef DUP_STR
 162 }
 163
 164 void
 165 mono_error_set_error (MonoError *oerror, int error_code, const char *msg_format, ...)
 166 {
 167         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 168         mono_error_prepare (error);
 169
 170         error->error_code = error_code;
 171         set_error_message ();
 172 }
 173
 174 static void
 175 mono_error_set_assembly_name (MonoError *oerror, const char *assembly_name)
 176 {
 177         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 178         g_assert (error->error_code != MONO_ERROR_NONE);
 179
 180         error->assembly_name = assembly_name;
 181 }
 182
 183 static void
 184 mono_error_set_member_name (MonoError *oerror, const char *member_name)
 185 {
 186         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 187
 188         error->member_name = member_name;
 189 }
 190
 191 static void
 192 mono_error_set_type_name (MonoError *oerror, const char *type_name)
 193 {
 194         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 195
 196         error->type_name = type_name;
 197 }
 198
 199 static void
 200 mono_error_set_class (MonoError *oerror, MonoClass *klass)
 201 {
 202         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 203
 204         error->klass = klass;
 205 }
 206
 207 static void
 208 mono_error_set_corlib_exception (MonoError *oerror, const char *name_space, const char *name)
 209 {
 210         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 211
 212         error->exception_name_space = name_space;
 213         error->exception_name = name;
 214 }
 215
 216
 217 void
 218 mono_error_set_assembly_load (MonoError *oerror, const char *assembly_name, const char *msg_format, ...)
 219 {
 220         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 221         mono_error_prepare (error);
 222
 223         error->error_code = MONO_ERROR_FILE_NOT_FOUND;
 224         mono_error_set_assembly_name (oerror, assembly_name);
 225
 226         set_error_message ();
 227 }
 228
 229
 230 void
 231 mono_error_set_assembly_load_simple (MonoError *oerror, const char *assembly_name, gboolean refection_only)
 232 {
 233         if (refection_only)
 234                 mono_error_set_assembly_load (oerror, assembly_name, "Cannot resolve dependency to assembly because it has not been preloaded. When using the ReflectionOnly APIs, dependent assemblies must be pre-loaded or loaded on demand through the ReflectionOnlyAssemblyResolve event.");
 235         else
 236                 mono_error_set_assembly_load (oerror, assembly_name, "Could not load file or assembly or one of its dependencies.");
 237 }
 238
 239 void
 240 mono_error_set_type_load_class (MonoError *oerror, MonoClass *klass, const char *msg_format, ...)
 241 {
 242         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 243         mono_error_prepare (error);
 244
 245         error->error_code = MONO_ERROR_TYPE_LOAD;
 246         mono_error_set_class (oerror, klass);
 247         set_error_message ();
 248 }
 249
 250 /*
 251  * Different than other functions, this one here assumes that type_name and assembly_name to have been allocated just for us.
 252  * Which means mono_error_cleanup will free them.
 253  */
 254 void
 255 mono_error_set_type_load_name (MonoError *oerror, const char *type_name, const char *assembly_name, const char *msg_format, ...)
 256 {
 257         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 258         mono_error_prepare (error);
 259
 260         error->error_code = MONO_ERROR_TYPE_LOAD;
 261         mono_error_set_type_name (oerror, type_name);
 262         mono_error_set_assembly_name (oerror, assembly_name);
 263         mono_error_dup_strings (oerror, FALSE);
 264         set_error_message ();
 265 }
 266
 267 void
 268 mono_error_set_method_load (MonoError *oerror, MonoClass *klass, const char *method_name, const char *msg_format, ...)
 269 {
 270         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 271         mono_error_prepare (error);
 272
 273         error->error_code = MONO_ERROR_MISSING_METHOD;
 274         mono_error_set_class (oerror, klass);
 275         mono_error_set_member_name (oerror, method_name);
 276         set_error_message ();
 277 }
 278
 279 void
 280 mono_error_set_field_load (MonoError *oerror, MonoClass *klass, const char *field_name, const char *msg_format, ...)
 281 {
 282         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 283         mono_error_prepare (error);
 284
 285         error->error_code = MONO_ERROR_MISSING_FIELD;
 286         mono_error_set_class (oerror, klass);
 287         mono_error_set_member_name (oerror, field_name);
 288         set_error_message ();
 289 }
 290
 291 void
 292 mono_error_set_bad_image_name (MonoError *oerror, const char *assembly_name, const char *msg_format, ...)
 293 {
 294         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 295         mono_error_prepare (error);
 296
 297         error->error_code = MONO_ERROR_BAD_IMAGE;
 298         mono_error_set_assembly_name (oerror, assembly_name);
 299         set_error_message ();
 300 }
 301
 302 void
 303 mono_error_set_bad_image (MonoError *oerror, MonoImage *image, const char *msg_format, ...)
 304 {
 305         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 306         mono_error_prepare (error);
 307
 308         error->error_code = MONO_ERROR_BAD_IMAGE;
 309         error->assembly_name = image ? mono_image_get_name (image) : "<no_image>";
 310         set_error_message ();
 311 }
 312
 313 void
 314 mono_error_set_generic_error (MonoError *oerror, const char * name_space, const char *name, const char *msg_format, ...)
 315 {
 316         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 317         mono_error_prepare (error);
 318
 319         error->error_code = MONO_ERROR_GENERIC;
 320         mono_error_set_corlib_exception (oerror, name_space, name);
 321         set_error_message ();
 322 }
 323
 324 void
 325 mono_error_set_from_loader_error (MonoError *oerror)
 326 {
 327         MonoLoaderError *loader_error = mono_loader_get_last_error ();
 328         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 329         gboolean dup_strings = TRUE;
 330
 331         mono_error_prepare (error);
 332
 333         if (!loader_error) {
 334                 mono_error_set_generic_error (oerror, "System", "ExecutionEngineException", "Runtime tried to produce a mono-error from an empty loader-error");
 335                 return;
 336         }
 337
 338         switch (loader_error->exception_type) {
 339         case MONO_EXCEPTION_NONE:
 340                 mono_error_set_generic_error (oerror, "System", "ExecutionEngineException", "Runtime tried to produce a mono-error from a non-error loader-error");
 341                 break;
 342         case MONO_EXCEPTION_SECURITY_LINKDEMAND:
 343         case MONO_EXCEPTION_SECURITY_INHERITANCEDEMAND:
 344                 mono_error_set_generic_error (oerror, "System.Security", "SecurityException", "Failed for unknown reasons.");
 345                 break;
 346
 347         case MONO_EXCEPTION_INVALID_PROGRAM:
 348                 mono_error_set_generic_error (oerror, "System", "InvalidProgramException", "Failed for unknown reasons.");
 349                 break;
 350
 351         case MONO_EXCEPTION_UNVERIFIABLE_IL:
 352                 mono_error_set_generic_error (oerror, "System.Security", "VerificationException", "Failed for unknown reasons.");
 353                 break;
 354
 355         case MONO_EXCEPTION_MISSING_METHOD:
 356                 error->error_code = MONO_ERROR_MISSING_METHOD;
 357                 mono_error_set_type_name (oerror, loader_error->class_name);
 358                 mono_error_set_member_name (oerror, loader_error->member_name);
 359                 g_snprintf (error->message, sizeof (error->message), "Failed for unknown reasons.");
 360                 break;
 361
 362         case MONO_EXCEPTION_MISSING_FIELD:
 363                 mono_error_set_field_load (oerror, loader_error->klass, loader_error->member_name, "Failed for unknown reasons.");
 364                 break;
 365
 366         case MONO_EXCEPTION_TYPE_LOAD:
 367                 mono_error_set_type_load_name (oerror, g_strdup (loader_error->class_name), g_strdup (loader_error->assembly_name), "Failed for unknown reasons.");
 368                 dup_strings = FALSE;
 369                 break;
 370
 371         case MONO_EXCEPTION_FILE_NOT_FOUND:
 372                 mono_error_set_assembly_load_simple (oerror, loader_error->assembly_name, loader_error->ref_only);
 373                 break;
 374
 375         case MONO_EXCEPTION_METHOD_ACCESS:
 376                 mono_error_set_generic_error (oerror, "System", "MethodAccessException", "Failed for unknown reasons.");
 377                 break;
 378
 379         case MONO_EXCEPTION_FIELD_ACCESS:
 380                 mono_error_set_generic_error (oerror, "System", "FieldAccessException", "Failed for unknown reasons.");
 381                 break;
 382
 383         case MONO_EXCEPTION_OBJECT_SUPPLIED:
 384         case MONO_EXCEPTION_GENERIC_SHARING_FAILED:
 385                 mono_error_set_generic_error (oerror, "System", "ExecutionEngineException", "Runtime tried to produce a mono-error from JIT internal error %d", loader_error->exception_type);
 386                 break;
 387
 388         case MONO_EXCEPTION_BAD_IMAGE:
 389                 mono_error_set_bad_image_name (oerror, "<unknown>", "%s", loader_error->msg);
 390                 break;
 391
 392         case MONO_EXCEPTION_OUT_OF_MEMORY:
 393                 mono_error_set_out_of_memory (oerror, "Failed for unknown reasons.");
 394                 break;
 395
 396         default:
 397                 mono_error_set_generic_error (oerror, "System", "ExecutionEngineException", "Runtime tried to produce an unknown loader-error %d", loader_error->exception_type);
 398                 break;
 399         }
 400
 401         mono_error_dup_strings (oerror, dup_strings);
 402         mono_loader_clear_error ();
 403 }
 404
 405 void
 406 mono_loader_set_error_from_mono_error (MonoError *oerror)
 407 {
 408         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 409
 410         switch (error->error_code) {
 411         case MONO_ERROR_MISSING_METHOD:
 412                 mono_loader_set_error_method_load (get_type_name (error), error->member_name);
 413                 break;
 414         case MONO_ERROR_MISSING_FIELD:
 415                 mono_loader_set_error_field_load (error->klass, error->member_name);
 416                 break;
 417         case MONO_ERROR_TYPE_LOAD:
 418                 mono_loader_set_error_type_load (get_type_name (error), get_assembly_name (error));
 419                 break;
 420         case MONO_ERROR_FILE_NOT_FOUND:
 421                 /* XXX can't recover if it's ref only or not */
 422                 mono_loader_set_error_assembly_load (get_assembly_name (error), FALSE);
 423                 break;
 424         case MONO_ERROR_BAD_IMAGE:
 425                 mono_loader_set_error_bad_image (g_strdup (mono_internal_error_get_message (error)));
 426                 break;
 427         default:
 428                 mono_loader_set_error_bad_image (g_strdup_printf ("Non translatable error: %s", mono_internal_error_get_message (error)));
 429         }
 430 }
 431
 432 void
 433 mono_error_set_out_of_memory (MonoError *oerror, const char *msg_format, ...)
 434 {
 435         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 436         va_list args;
 437         mono_error_prepare (error);
 438
 439         error->error_code = MONO_ERROR_OUT_OF_MEMORY;
 440         va_start (args, msg_format);
 441         g_vsnprintf (error->message, sizeof (error->message), msg_format, args);
 442         va_end (args);
 443 }
 444
 445 void
 446 mono_error_set_argument (MonoError *oerror, const char *argument, const char *msg_format, ...)
 447 {
 448         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 449         mono_error_prepare (error);
 450
 451         error->error_code = MONO_ERROR_ARGUMENT;
 452         error->type_name = argument; /*use the first available string slot*/
 453
 454         set_error_message ();
 455 }
 456
 457 void
 458 mono_error_set_not_verifiable (MonoError *oerror, MonoMethod *method, const char *msg_format, ...)
 459 {
 460         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 461         mono_error_prepare (error);
 462
 463         error->error_code = MONO_ERROR_NOT_VERIFIABLE;
 464         if (method) {
 465                 mono_error_set_class (oerror, method->klass);
 466                 mono_error_set_member_name (oerror, mono_method_full_name (method, 1));
 467         }
 468
 469         set_error_message ();
 470 }
 471
 472
 473 static MonoString*
 474 get_type_name_as_mono_string (MonoErrorInternal *error, MonoDomain *domain, MonoError *error_out)
 475 {
 476         MonoString* res = NULL;
 477
 478         if (error->type_name) {
 479                 res = mono_string_new (domain, error->type_name);
 480
 481         } else if (error->klass) {
 482                 char *name = mono_type_full_name (&error->klass->byval_arg);
 483                 if (name) {
 484                         res = mono_string_new (domain, name);
 485                         g_free (name);
 486                 }
 487         }
 488         if (!res)
 489                 mono_error_set_out_of_memory (error_out, "Could not allocate type name");
 490         return res;
 491 }
 492
 493 static void
 494 set_message_on_exception (MonoException *exception, MonoErrorInternal *error, MonoError *error_out)
 495 {
 496         MonoString *msg = mono_string_new (mono_domain_get (), mono_internal_error_get_message (error));
 497         if (msg)
 498                 MONO_OBJECT_SETREF (exception, message, msg);
 499         else
 500                 mono_error_set_out_of_memory (error_out, "Could not allocate exception object");
 501 }
 502
 503 /*Can fail with out-of-memory*/
 504 MonoException*
 505 mono_error_prepare_exception (MonoError *oerror, MonoError *error_out)
 506 {
 507         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 508
 509         MonoException* exception = NULL;
 510         MonoString *assembly_name = NULL, *type_name = NULL, *method_name = NULL, *field_name = NULL, *msg = NULL;
 511         MonoDomain *domain = mono_domain_get ();
 512
 513         mono_error_init (error_out);
 514
 515         switch (error->error_code) {
 516         case MONO_ERROR_NONE:
 517                 return NULL;
 518
 519         case MONO_ERROR_MISSING_METHOD:
 520                 if ((error->type_name || error->klass) && error->member_name) {
 521                         type_name = get_type_name_as_mono_string (error, domain, error_out);
 522                         if (!mono_error_ok (error_out))
 523                                 break;
 524
 525                         method_name = mono_string_new (domain, error->member_name);
 526                         if (!method_name) {
 527                                 mono_error_set_out_of_memory (error_out, "Could not allocate method name");
 528                                 break;
 529                         }
 530
 531                         exception = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "MissingMethodException", type_name, method_name);
 532                         if (exception)
 533                                 set_message_on_exception (exception, error, error_out);
 534                 } else {
 535                         exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "MissingMethodException", mono_internal_error_get_message (error));
 536                 }
 537                 break;
 538
 539         case MONO_ERROR_MISSING_FIELD:
 540                 if ((error->type_name || error->klass) && error->member_name) {
 541                         type_name = get_type_name_as_mono_string (error, domain, error_out);
 542                         if (!mono_error_ok (error_out))
 543                                 break;
 544
 545                         field_name = mono_string_new (domain, error->member_name);
 546                         if (!field_name) {
 547                                 mono_error_set_out_of_memory (error_out, "Could not allocate field name");
 548                                 break;
 549                         }
 550
 551                         exception = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "MissingFieldException", type_name, field_name);
 552                         if (exception)
 553                                 set_message_on_exception (exception, error, error_out);
 554                 } else {
 555                         exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "MissingFieldException", mono_internal_error_get_message (error));
 556                 }
 557                 break;
 558
 559         case MONO_ERROR_TYPE_LOAD:
 560                 if (error->type_name || error->assembly_name) {
 561                         type_name = get_type_name_as_mono_string (error, domain, error_out);
 562                         if (!mono_error_ok (error_out))
 563                                 break;
 564
 565                         if (error->assembly_name) {
 566                                 assembly_name = mono_string_new (domain, error->assembly_name);
 567                                 if (!assembly_name) {
 568                                         mono_error_set_out_of_memory (error_out, "Could not allocate assembly name");
 569                                         break;
 570                                 }
 571                         }
 572
 573                         exception = mono_exception_from_name_two_strings (mono_get_corlib (), "System", "TypeLoadException", type_name, assembly_name);
 574                         if (exception)
 575                                 set_message_on_exception (exception, error, error_out);
 576                 } else {
 577                         exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "TypeLoadException", mono_internal_error_get_message (error));
 578                 }
 579                 break;
 580
 581         case MONO_ERROR_FILE_NOT_FOUND:
 582         case MONO_ERROR_BAD_IMAGE:
 583                 if (error->assembly_name) {
 584                         msg = mono_string_new (domain, mono_internal_error_get_message (error));
 585                         if (!msg) {
 586                                 mono_error_set_out_of_memory (error_out, "Could not allocate message");
 587                                 break;
 588                         }
 589
 590                         if (error->assembly_name) {
 591                                 assembly_name = mono_string_new (domain, error->assembly_name);
 592                                 if (!assembly_name) {
 593                                         mono_error_set_out_of_memory (error_out, "Could not allocate assembly name");
 594                                         break;
 595                                 }
 596                         }
 597
 598                         if (error->error_code == MONO_ERROR_FILE_NOT_FOUND)
 599                                 exception = mono_exception_from_name_two_strings (mono_get_corlib (), "System.IO", "FileNotFoundException", msg, assembly_name);
 600                         else
 601                                 exception = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "BadImageFormatException", msg, assembly_name);
 602                 } else {
 603                         if (error->error_code == MONO_ERROR_FILE_NOT_FOUND)
 604                                 exception = mono_exception_from_name_msg (mono_get_corlib (), "System.IO", "FileNotFoundException", mono_internal_error_get_message (error));
 605                         else
 606                                 exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "BadImageFormatException", mono_internal_error_get_message (error));
 607                 }
 608                 break;
 609
 610         case MONO_ERROR_OUT_OF_MEMORY:
 611                 exception = mono_get_exception_out_of_memory ();
 612                 break;
 613
 614         case MONO_ERROR_ARGUMENT:
 615                 exception = mono_get_exception_argument (error->type_name, mono_internal_error_get_message (error));
 616                 break;
 617
 618         case MONO_ERROR_NOT_VERIFIABLE: {
 619                 char *type_name = NULL, *message;
 620                 if (error->klass) {
 621                         type_name = mono_type_get_full_name (error->klass);
 622                         if (!type_name) {
 623                                 mono_error_set_out_of_memory (error_out, "Could not allocate message");
 624                                 break;
 625                         }
 626                 }
 627                 message = g_strdup_printf ("Error in %s:%s %s", type_name, error->member_name, mono_internal_error_get_message (error));
 628                 if (!message) {
 629                         g_free (type_name);
 630                         mono_error_set_out_of_memory (error_out, "Could not allocate message");
 631                         break;
 632                 }
 633                 exception = mono_exception_from_name_msg (mono_defaults.corlib, "System.Security", "VerificationException", message);
 634                 g_free (message);
 635                 g_free (type_name);
 636                 break;
 637         }
 638         case MONO_ERROR_GENERIC:
 639                 if (!error->exception_name_space || !error->exception_name)
 640                         mono_error_set_generic_error (error_out, "System", "ExecutionEngineException", "MonoError with generic error but no exception name was supplied");
 641                 else
 642                         exception = mono_exception_from_name_msg (mono_defaults.corlib, error->exception_name_space, error->exception_name, mono_internal_error_get_message (error));
 643                 break;
 644
 645         default:
 646                 mono_error_set_generic_error (error_out, "System", "ExecutionEngineException", "Invalid error-code %d", error->error_code);
 647         }
 648
 649         if (!mono_error_ok (error_out))
 650                 return NULL;
 651         if (!exception)
 652                 mono_error_set_out_of_memory (error_out, "Could not allocate exception object");
 653         return exception;
 654 }
 655
 656 /*
 657 Convert this MonoError to an exception if it's faulty or return NULL.
 658 The error object is cleant after.
 659 */
 660
 661 MonoException*
 662 mono_error_convert_to_exception (MonoError *target_error)
 663 {
 664         MonoError error;
 665         MonoException *ex;
 666
 667         if (mono_error_ok (target_error))
 668                 return NULL;
 669
 670         ex = mono_error_prepare_exception (target_error, &error);
 671         if (!mono_error_ok (&error)) {
 672                 MonoError second_chance;
 673                 /*Try to produce the exception for the second error. FIXME maybe we should log about the original one*/
 674                 ex = mono_error_prepare_exception (&error, &second_chance);
 675
 676                 g_assert (mono_error_ok (&second_chance)); /*We can't reasonable handle double faults, maybe later.*/
 677                 mono_error_cleanup (&error);
 678         }
 679         mono_error_cleanup (target_error);
 680         return ex;
 681 }