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