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