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 unsigned short
 104 mono_error_get_error_code (MonoError *error)
 105 {
 106         return error->error_code;
 107 }
 108
 109 /*Return a pointer to the internal error message, might be NULL.
 110 Caller should not release it.*/
 111 const char*
 112 mono_error_get_message (MonoError *oerror)
 113 {
 114         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 115         if (error->error_code == MONO_ERROR_NONE)
 116                 return NULL;
 117         if (error->full_message_with_fields)
 118                 return error->full_message_with_fields;
 119
 120         error->full_message_with_fields = g_strdup_printf ("%s assembly:%s type:%s member:%s",
 121                 mono_internal_error_get_message (error),
 122                 get_assembly_name (error),
 123                 get_type_name (error),
 124                 error->member_name ? error->member_name : "<none>");
 125
 126         return error->full_message_with_fields ? error->full_message_with_fields : mono_internal_error_get_message (error);
 127 }
 128
 129 /*
 130  * Inform that this error has heap allocated strings.
 131  * The strings will be duplicated if @dup_strings is TRUE
 132  * otherwise they will just be free'd in mono_error_cleanup.
 133  */
 134 void
 135 mono_error_dup_strings (MonoError *oerror, gboolean dup_strings)
 136 {
 137 #define DUP_STR(field) do { if (error->field) {\
 138         if (!(error->field = g_strdup (error->field))) \
 139                 error->flags |= MONO_ERROR_INCOMPLETE; \
 140         }} while (0);
 141
 142         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 143         error->flags |= MONO_ERROR_FREE_STRINGS;
 144
 145         if (dup_strings) {
 146                 DUP_STR (type_name);
 147                 DUP_STR (assembly_name);
 148                 DUP_STR (member_name);
 149                 DUP_STR (exception_name_space);
 150                 DUP_STR (exception_name);
 151         }
 152 #undef DUP_STR
 153 }
 154
 155 void
 156 mono_error_set_error (MonoError *oerror, int error_code, const char *msg_format, ...)
 157 {
 158         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 159         mono_error_prepare (error);
 160
 161         error->error_code = error_code;
 162         set_error_message ();
 163 }
 164
 165 static void
 166 mono_error_set_assembly_name (MonoError *oerror, const char *assembly_name)
 167 {
 168         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 169         g_assert (error->error_code != MONO_ERROR_NONE);
 170
 171         error->assembly_name = assembly_name;
 172 }
 173
 174 static void
 175 mono_error_set_member_name (MonoError *oerror, const char *member_name)
 176 {
 177         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 178
 179         error->member_name = member_name;
 180 }
 181
 182 static void
 183 mono_error_set_type_name (MonoError *oerror, const char *type_name)
 184 {
 185         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 186
 187         error->type_name = type_name;
 188 }
 189
 190 static void
 191 mono_error_set_class (MonoError *oerror, MonoClass *klass)
 192 {
 193         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 194
 195         error->klass = klass;
 196 }
 197
 198 static void
 199 mono_error_set_corlib_exception (MonoError *oerror, const char *name_space, const char *name)
 200 {
 201         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 202
 203         error->exception_name_space = name_space;
 204         error->exception_name = name;
 205 }
 206
 207
 208 void
 209 mono_error_set_assembly_load (MonoError *oerror, const char *assembly_name, const char *msg_format, ...)
 210 {
 211         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 212         mono_error_prepare (error);
 213
 214         error->error_code = MONO_ERROR_FILE_NOT_FOUND;
 215         mono_error_set_assembly_name (oerror, assembly_name);
 216
 217         set_error_message ();
 218 }
 219
 220
 221 void
 222 mono_error_set_assembly_load_simple (MonoError *oerror, const char *assembly_name, gboolean refection_only)
 223 {
 224         if (refection_only)
 225                 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.");
 226         else
 227                 mono_error_set_assembly_load (oerror, assembly_name, "Could not load file or assembly or one of its dependencies.");
 228 }
 229
 230 void
 231 mono_error_set_type_load_class (MonoError *oerror, MonoClass *klass, const char *msg_format, ...)
 232 {
 233         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 234         mono_error_prepare (error);
 235
 236         error->error_code = MONO_ERROR_TYPE_LOAD;
 237         mono_error_set_class (oerror, klass);
 238         set_error_message ();
 239 }
 240
 241 /*
 242  * Different than other functions, this one here assumes that type_name and assembly_name to have been allocated just for us.
 243  * Which means mono_error_cleanup will free them.
 244  */
 245 void
 246 mono_error_set_type_load_name (MonoError *oerror, const char *type_name, const char *assembly_name, const char *msg_format, ...)
 247 {
 248         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 249         mono_error_prepare (error);
 250
 251         error->error_code = MONO_ERROR_TYPE_LOAD;
 252         mono_error_set_type_name (oerror, type_name);
 253         mono_error_set_assembly_name (oerror, assembly_name);
 254         mono_error_dup_strings (oerror, FALSE);
 255         set_error_message ();
 256 }
 257
 258 void
 259 mono_error_set_method_load (MonoError *oerror, MonoClass *klass, const char *method_name, const char *msg_format, ...)
 260 {
 261         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 262         mono_error_prepare (error);
 263
 264         error->error_code = MONO_ERROR_MISSING_METHOD;
 265         mono_error_set_class (oerror, klass);
 266         mono_error_set_member_name (oerror, method_name);
 267         set_error_message ();
 268 }
 269
 270 void
 271 mono_error_set_field_load (MonoError *oerror, MonoClass *klass, const char *field_name, const char *msg_format, ...)
 272 {
 273         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 274         mono_error_prepare (error);
 275
 276         error->error_code = MONO_ERROR_MISSING_FIELD;
 277         mono_error_set_class (oerror, klass);
 278         mono_error_set_member_name (oerror, field_name);
 279         set_error_message ();
 280 }
 281
 282 void
 283 mono_error_set_bad_image_name (MonoError *oerror, const char *assembly_name, const char *msg_format, ...)
 284 {
 285         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 286         mono_error_prepare (error);
 287
 288         error->error_code = MONO_ERROR_BAD_IMAGE;
 289         mono_error_set_assembly_name (oerror, assembly_name);
 290         set_error_message ();
 291 }
 292
 293 void
 294 mono_error_set_bad_image (MonoError *oerror, MonoImage *image, const char *msg_format, ...)
 295 {
 296         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 297         mono_error_prepare (error);
 298
 299         error->error_code = MONO_ERROR_BAD_IMAGE;
 300         error->assembly_name = image ? mono_image_get_name (image) : "<no_image>";
 301         set_error_message ();
 302 }
 303
 304 void
 305 mono_error_set_generic_error (MonoError *oerror, const char * name_space, const char *name, const char *msg_format, ...)
 306 {
 307         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 308         mono_error_prepare (error);
 309
 310         error->error_code = MONO_ERROR_GENERIC;
 311         mono_error_set_corlib_exception (oerror, name_space, name);
 312         set_error_message ();
 313 }
 314
 315 void
 316 mono_error_set_from_loader_error (MonoError *oerror)
 317 {
 318         MonoLoaderError *loader_error = mono_loader_get_last_error ();
 319         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 320         gboolean dup_strings = TRUE;
 321
 322         mono_error_prepare (error);
 323
 324         if (!loader_error) {
 325                 mono_error_set_generic_error (oerror, "System", "ExecutionEngineException", "Runtime tried to produce a mono-error from an empty loader-error");
 326                 return;
 327         }
 328
 329         switch (loader_error->exception_type) {
 330         case MONO_EXCEPTION_NONE:
 331                 mono_error_set_generic_error (oerror, "System", "ExecutionEngineException", "Runtime tried to produce a mono-error from a non-error loader-error");
 332                 break;
 333         case MONO_EXCEPTION_SECURITY_LINKDEMAND:
 334         case MONO_EXCEPTION_SECURITY_INHERITANCEDEMAND:
 335                 mono_error_set_generic_error (oerror, "System.Security", "SecurityException", "Failed for unknown reasons.");
 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                 g_snprintf (error->message, sizeof (error->message), "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 (mono_internal_error_get_message (error)));
 417                 break;
 418         default:
 419                 mono_loader_set_error_bad_image (g_strdup_printf ("Non translatable error: %s", mono_internal_error_get_message (error)));
 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         va_list args;
 428         mono_error_prepare (error);
 429
 430         error->error_code = MONO_ERROR_OUT_OF_MEMORY;
 431         va_start (args, msg_format);
 432         g_vsnprintf (error->message, sizeof (error->message), msg_format, args);
 433         va_end (args);
 434 }
 435
 436 void
 437 mono_error_set_argument (MonoError *oerror, const char *argument, const char *msg_format, ...)
 438 {
 439         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 440         mono_error_prepare (error);
 441
 442         error->error_code = MONO_ERROR_ARGUMENT;
 443         error->type_name = argument; /*use the first available string slot*/
 444
 445         set_error_message ();
 446 }
 447
 448 void
 449 mono_error_set_not_verifiable (MonoError *oerror, MonoMethod *method, const char *msg_format, ...)
 450 {
 451         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 452         mono_error_prepare (error);
 453
 454         error->error_code = MONO_ERROR_NOT_VERIFIABLE;
 455         if (method) {
 456                 mono_error_set_class (oerror, method->klass);
 457                 mono_error_set_member_name (oerror, mono_method_full_name (method, 1));
 458         }
 459
 460         set_error_message ();
 461 }
 462
 463
 464 static MonoString*
 465 get_type_name_as_mono_string (MonoErrorInternal *error, MonoDomain *domain, MonoError *error_out)
 466 {
 467         MonoString* res = NULL;
 468
 469         if (error->type_name) {
 470                 res = mono_string_new (domain, error->type_name);
 471
 472         } else if (error->klass) {
 473                 char *name = mono_type_full_name (&error->klass->byval_arg);
 474                 if (name) {
 475                         res = mono_string_new (domain, name);
 476                         g_free (name);
 477                 }
 478         }
 479         if (!res)
 480                 mono_error_set_out_of_memory (error_out, "Could not allocate type name");
 481         return res;
 482 }
 483
 484 static void
 485 set_message_on_exception (MonoException *exception, MonoErrorInternal *error, MonoError *error_out)
 486 {
 487         MonoString *msg = mono_string_new (mono_domain_get (), mono_internal_error_get_message (error));
 488         if (msg)
 489                 MONO_OBJECT_SETREF (exception, message, msg);
 490         else
 491                 mono_error_set_out_of_memory (error_out, "Could not allocate exception object");
 492 }
 493
 494 /*Can fail with out-of-memory*/
 495 MonoException*
 496 mono_error_prepare_exception (MonoError *oerror, MonoError *error_out)
 497 {
 498         MonoErrorInternal *error = (MonoErrorInternal*)oerror;
 499
 500         MonoException* exception = NULL;
 501         MonoString *assembly_name = NULL, *type_name = NULL, *method_name = NULL, *field_name = NULL, *msg = NULL;
 502         MonoDomain *domain = mono_domain_get ();
 503
 504         mono_error_init (error_out);
 505
 506         switch (error->error_code) {
 507         case MONO_ERROR_NONE:
 508                 return NULL;
 509
 510         case MONO_ERROR_MISSING_METHOD:
 511                 if ((error->type_name || error->klass) && error->member_name) {
 512                         type_name = get_type_name_as_mono_string (error, domain, error_out);
 513                         if (!mono_error_ok (error_out))
 514                                 break;
 515
 516                         method_name = mono_string_new (domain, error->member_name);
 517                         if (!method_name) {
 518                                 mono_error_set_out_of_memory (error_out, "Could not allocate method name");
 519                                 break;
 520                         }
 521
 522                         exception = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "MissingMethodException", type_name, method_name);
 523                         if (exception)
 524                                 set_message_on_exception (exception, error, error_out);
 525                 } else {
 526                         exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "MissingMethodException", mono_internal_error_get_message (error));
 527                 }
 528                 break;
 529
 530         case MONO_ERROR_MISSING_FIELD:
 531                 if ((error->type_name || error->klass) && error->member_name) {
 532                         type_name = get_type_name_as_mono_string (error, domain, error_out);
 533                         if (!mono_error_ok (error_out))
 534                                 break;
 535
 536                         field_name = mono_string_new (domain, error->member_name);
 537                         if (!field_name) {
 538                                 mono_error_set_out_of_memory (error_out, "Could not allocate field name");
 539                                 break;
 540                         }
 541
 542                         exception = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "MissingFieldException", type_name, field_name);
 543                         if (exception)
 544                                 set_message_on_exception (exception, error, error_out);
 545                 } else {
 546                         exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "MissingFieldException", mono_internal_error_get_message (error));
 547                 }
 548                 break;
 549
 550         case MONO_ERROR_TYPE_LOAD:
 551                 if (error->type_name || error->assembly_name) {
 552                         type_name = get_type_name_as_mono_string (error, domain, error_out);
 553                         if (!mono_error_ok (error_out))
 554                                 break;
 555
 556                         if (error->assembly_name) {
 557                                 assembly_name = mono_string_new (domain, error->assembly_name);
 558                                 if (!assembly_name) {
 559                                         mono_error_set_out_of_memory (error_out, "Could not allocate assembly name");
 560                                         break;
 561                                 }
 562                         }
 563
 564                         exception = mono_exception_from_name_two_strings (mono_get_corlib (), "System", "TypeLoadException", type_name, assembly_name);
 565                         if (exception)
 566                                 set_message_on_exception (exception, error, error_out);
 567                 } else {
 568                         exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "TypeLoadException", mono_internal_error_get_message (error));
 569                 }
 570                 break;
 571
 572         case MONO_ERROR_FILE_NOT_FOUND:
 573         case MONO_ERROR_BAD_IMAGE:
 574                 if (error->assembly_name) {
 575                         msg = mono_string_new (domain, mono_internal_error_get_message (error));
 576                         if (!msg) {
 577                                 mono_error_set_out_of_memory (error_out, "Could not allocate message");
 578                                 break;
 579                         }
 580
 581                         if (error->assembly_name) {
 582                                 assembly_name = mono_string_new (domain, error->assembly_name);
 583                                 if (!assembly_name) {
 584                                         mono_error_set_out_of_memory (error_out, "Could not allocate assembly name");
 585                                         break;
 586                                 }
 587                         }
 588
 589                         if (error->error_code == MONO_ERROR_FILE_NOT_FOUND)
 590                                 exception = mono_exception_from_name_two_strings (mono_get_corlib (), "System.IO", "FileNotFoundException", msg, assembly_name);
 591                         else
 592                                 exception = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "BadImageFormatException", msg, assembly_name);
 593                 } else {
 594                         if (error->error_code == MONO_ERROR_FILE_NOT_FOUND)
 595                                 exception = mono_exception_from_name_msg (mono_get_corlib (), "System.IO", "FileNotFoundException", mono_internal_error_get_message (error));
 596                         else
 597                                 exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "BadImageFormatException", mono_internal_error_get_message (error));
 598                 }
 599                 break;
 600
 601         case MONO_ERROR_OUT_OF_MEMORY:
 602                 exception = mono_get_exception_out_of_memory ();
 603                 break;
 604
 605         case MONO_ERROR_ARGUMENT:
 606                 exception = mono_get_exception_argument (error->type_name, mono_internal_error_get_message (error));
 607                 break;
 608
 609         case MONO_ERROR_NOT_VERIFIABLE: {
 610                 char *type_name = NULL, *message;
 611                 if (error->klass) {
 612                         type_name = mono_type_get_full_name (error->klass);
 613                         if (!type_name) {
 614                                 mono_error_set_out_of_memory (error_out, "Could not allocate message");
 615                                 break;
 616                         }
 617                 }
 618                 message = g_strdup_printf ("Error in %s:%s %s", type_name, error->member_name, mono_internal_error_get_message (error));
 619                 if (!message) {
 620                         g_free (type_name);
 621                         mono_error_set_out_of_memory (error_out, "Could not allocate message");
 622                         break;
 623                 }
 624                 exception = mono_exception_from_name_msg (mono_defaults.corlib, "System.Security", "VerificationException", message);
 625                 g_free (message);
 626                 g_free (type_name);
 627                 break;
 628         }
 629         case MONO_ERROR_GENERIC:
 630                 if (!error->exception_name_space || !error->exception_name)
 631                         mono_error_set_generic_error (error_out, "System", "ExecutionEngineException", "MonoError with generic error but no exception name was supplied");
 632                 else
 633                         exception = mono_exception_from_name_msg (mono_defaults.corlib, error->exception_name_space, error->exception_name, mono_internal_error_get_message (error));
 634                 break;
 635
 636         default:
 637                 mono_error_set_generic_error (error_out, "System", "ExecutionEngineException", "Invalid error-code %d", error->error_code);
 638         }
 639
 640         if (!mono_error_ok (error_out))
 641                 return NULL;
 642         if (!exception)
 643                 mono_error_set_out_of_memory (error_out, "Could not allocate exception object");
 644         return exception;
 645 }
 646
 647 /*
 648 Convert this MonoError to an exception if it's faulty or return NULL.
 649 The error object is cleant after.
 650 */
 651
 652 MonoException*
 653 mono_error_convert_to_exception (MonoError *target_error)
 654 {
 655         MonoError error;
 656         MonoException *ex;
 657
 658         if (mono_error_ok (target_error))
 659                 return NULL;
 660
 661         ex = mono_error_prepare_exception (target_error, &error);
 662         if (!mono_error_ok (&error)) {
 663                 MonoError second_chance;
 664                 /*Try to produce the exception for the second error. FIXME maybe we should log about the original one*/
 665                 ex = mono_error_prepare_exception (&error, &second_chance);
 666
 667                 g_assert (mono_error_ok (&second_chance)); /*We can't reasonable handle double faults, maybe later.*/
 668                 mono_error_cleanup (&error);
 669         }
 670         mono_error_cleanup (target_error);
 671         return ex;
 672 }