/**
* mono_error_box:
* \param ierror The input error that will be boxed.
* \param image The mempool of this image will hold the boxed error.
* Creates a new boxed error in the given mempool from \c MonoError.
* It does not alter \p ierror, so you still have to clean it up with
* \c mono_error_cleanup or \c mono_error_convert_to_exception or another such function.
* \returns the boxed error, or NULL if the mempool could not allocate.
*/
MonoErrorBoxed*
mono_error_box (const MonoError *ierror, MonoImage *image)
{
MonoErrorInternal *from = (MonoErrorInternal*)ierror;
/* Don't know how to box a gchandle */
g_assert (!is_managed_exception (from));
MonoErrorBoxed* box = (MonoErrorBoxed*)mono_image_alloc (image, sizeof (MonoErrorBoxed));
box->image = image;
mono_error_init_flags (&box->error, MONO_ERROR_MEMPOOL_BOXED);
MonoErrorInternal *to = (MonoErrorInternal*)&box->error;
#define DUP_STR(field) do { \
if (from->field) { \
if (!(to->field = mono_image_strdup (image, from->field))) \
to->flags |= MONO_ERROR_INCOMPLETE; \
} else { \
to->field = NULL; \
} \
} while (0)
to->error_code = from->error_code;
DUP_STR (type_name);
DUP_STR (assembly_name);
DUP_STR (member_name);
DUP_STR (exception_name_space);
DUP_STR (exception_name);
DUP_STR (full_message);
DUP_STR (full_message_with_fields);
DUP_STR (first_argument);
to->exn.klass = from->exn.klass;
#undef DUP_STR
return box;
}
/**
* mono_error_set_from_boxed:
* \param oerror The error that will be set to the contents of the box.
* \param box A mempool-allocated error.
* Sets the error condition in the oerror from the contents of the
* given boxed error. Does not alter the boxed error, so it can be
* used in a future call to \c mono_error_set_from_boxed as needed. The
* \p oerror should've been previously initialized with \c mono_error_init,
* as usual.
* \returns TRUE on success or FALSE on failure.
*/
gboolean
mono_error_set_from_boxed (MonoError *oerror, const MonoErrorBoxed *box)
{
MonoErrorInternal* to = (MonoErrorInternal*)oerror;
MonoErrorInternal* from = (MonoErrorInternal*)&box->error;
g_assert (!is_managed_exception (from));
mono_error_prepare (to);
to->flags |= MONO_ERROR_FREE_STRINGS;
#define DUP_STR(field) do { \
if (from->field) { \
if (!(to->field = g_strdup (from->field))) \
to->flags |= MONO_ERROR_INCOMPLETE; \
} else { \
to->field = NULL; \
} \
} while (0)
to->error_code = from->error_code;
DUP_STR (type_name);
DUP_STR (assembly_name);
DUP_STR (member_name);
DUP_STR (exception_name_space);
DUP_STR (exception_name);
DUP_STR (full_message);
DUP_STR (full_message_with_fields);
DUP_STR (first_argument);
to->exn.klass = from->exn.klass;
#undef DUP_STR
return (to->flags & MONO_ERROR_INCOMPLETE) == 0 ;
}
/*
* Inform that this error has heap allocated strings.
* The strings will be duplicated if @dup_strings is TRUE
* otherwise they will just be free'd in mono_error_cleanup.
*/
void
mono_error_dup_strings (MonoError *oerror, gboolean dup_strings)
{
#define DUP_STR(field) do { if (error->field) {\
if (!(error->field = g_strdup (error->field))) \
error->flags |= MONO_ERROR_INCOMPLETE; \
}} while (0);
MonoErrorInternal *error = (MonoErrorInternal*)oerror;
error->flags |= MONO_ERROR_FREE_STRINGS;
if (dup_strings) {
DUP_STR (type_name);
DUP_STR (assembly_name);
DUP_STR (member_name);
DUP_STR (exception_name_space);
DUP_STR (exception_name);
}
#undef DUP_STR
}
