#include <mono/metadata/class-internals.h>
#include <mono/metadata/opcodes.h>
#include <mono/metadata/reflection.h>
+#include <mono/metadata/method-builder.h>
#define mono_marshal_find_bitfield_offset(type, elem, byte_offset, bitmask) \
do { \
mono_marshal_find_nonzero_bit_offset ((guint8*)&tmp, sizeof (tmp), (byte_offset), (bitmask)); \
} while (0)
+/*
+ * This structure holds the state kept by the emit_ marshalling functions.
+ * This is exported so it can be used by cominterop.c.
+ */
+typedef struct {
+ MonoMethodBuilder *mb;
+ MonoMethodSignature *sig;
+ MonoMethodPInvoke *piinfo;
+ int *orig_conv_args; /* Locals containing the original values of byref args */
+ int retobj_var;
+ MonoClass *retobj_class;
+ MonoMethodSignature *csig; /* Might need to be changed due to MarshalAs directives */
+ MonoImage *image; /* The image to use for looking up custom marshallers */
+} EmitMarshalContext;
+
+typedef enum {
+ /*
+ * This is invoked to convert arguments from the current types to
+ * the underlying types expected by the platform routine. If required,
+ * the methods create a temporary variable with the proper type, and return
+ * the location for it (either the passed argument, or the newly allocated
+ * local slot).
+ */
+ MARSHAL_ACTION_CONV_IN,
+
+ /*
+ * This operation is called to push the actual value that was optionally
+ * converted on the first stage
+ */
+ MARSHAL_ACTION_PUSH,
+
+ /*
+ * Convert byref arguments back or free resources allocated during the
+ * CONV_IN stage
+ */
+ MARSHAL_ACTION_CONV_OUT,
+
+ /*
+ * The result from the unmanaged call is at the top of the stack when
+ * this action is invoked. The result should be stored in the
+ * third local variable slot.
+ */
+ MARSHAL_ACTION_CONV_RESULT,
+
+ MARSHAL_ACTION_MANAGED_CONV_IN,
+ MARSHAL_ACTION_MANAGED_CONV_OUT,
+ MARSHAL_ACTION_MANAGED_CONV_RESULT
+} MarshalAction;
+
+/*
+ * This is an extension of the MONO_WRAPPER_ enum to avoid adding more elements to that
+ * enum.
+ */
+typedef enum {
+ WRAPPER_SUBTYPE_NONE,
+ /* Subtypes of MONO_WRAPPER_MANAGED_TO_MANAGED */
+ WRAPPER_SUBTYPE_ELEMENT_ADDR,
+ WRAPPER_SUBTYPE_STRING_CTOR,
+ /* Subtypes of MONO_WRAPPER_STELEMREF */
+ WRAPPER_SUBTYPE_VIRTUAL_STELEMREF,
+ /* Subtypes of MONO_WRAPPER_UNKNOWN */
+ WRAPPER_SUBTYPE_FAST_MONITOR_ENTER,
+ WRAPPER_SUBTYPE_FAST_MONITOR_ENTER_V4,
+ WRAPPER_SUBTYPE_FAST_MONITOR_EXIT,
+ WRAPPER_SUBTYPE_PTR_TO_STRUCTURE,
+ WRAPPER_SUBTYPE_STRUCTURE_TO_PTR,
+ /* Subtypes of MONO_WRAPPER_CASTCLASS */
+ WRAPPER_SUBTYPE_CASTCLASS_WITH_CACHE,
+ WRAPPER_SUBTYPE_ISINST_WITH_CACHE,
+ /* Subtypes of MONO_WRAPPER_RUNTIME_INVOKE */
+ WRAPPER_SUBTYPE_RUNTIME_INVOKE_DYNAMIC,
+ WRAPPER_SUBTYPE_RUNTIME_INVOKE_DIRECT,
+ WRAPPER_SUBTYPE_RUNTIME_INVOKE_VIRTUAL,
+ /* Subtypes of MONO_WRAPPER_MANAGED_TO_NATIVE */
+ WRAPPER_SUBTYPE_ICALL_WRAPPER,
+ WRAPPER_SUBTYPE_NATIVE_FUNC_AOT,
+ /* Subtypes of MONO_WRAPPER_UNKNOWN */
+ WRAPPER_SUBTYPE_SYNCHRONIZED_INNER
+} WrapperSubtype;
+
+typedef struct {
+ MonoMethod *method;
+ MonoClass *klass;
+} NativeToManagedWrapperInfo;
+
+typedef struct {
+ MonoMethod *method;
+} StringCtorWrapperInfo;
+
+typedef struct {
+ int kind;
+} VirtualStelemrefWrapperInfo;
+
+typedef struct {
+ guint32 rank, elem_size;
+} ElementAddrWrapperInfo;
+
+typedef struct {
+ MonoMethod *method;
+} RuntimeInvokeWrapperInfo;
+
+typedef struct {
+ MonoMethod *method;
+} ManagedToNativeWrapperInfo;
+
+typedef struct {
+ MonoMethod *method;
+} SynchronizedInnerWrapperInfo;
+
+/*
+ * This structure contains additional information to uniquely identify a given wrapper
+ * method. It can be retrieved by mono_marshal_get_wrapper_info () for certain types
+ * of wrappers, i.e. ones which do not have a 1-1 association with a method/class.
+ */
+typedef struct {
+ WrapperSubtype subtype;
+ union {
+ /* RUNTIME_INVOKE_... */
+ RuntimeInvokeWrapperInfo runtime_invoke;
+ /* STRING_CTOR */
+ StringCtorWrapperInfo string_ctor;
+ /* ELEMENT_ADDR */
+ ElementAddrWrapperInfo element_addr;
+ /* VIRTUAL_STELEMREF */
+ VirtualStelemrefWrapperInfo virtual_stelemref;
+ /* MONO_WRAPPER_NATIVE_TO_MANAGED */
+ NativeToManagedWrapperInfo native_to_managed;
+ /* MONO_WRAPPER_MANAGED_TO_NATIVE */
+ ManagedToNativeWrapperInfo managed_to_native;
+ /* SYNCHRONIZED_INNER */
+ SynchronizedInnerWrapperInfo synchronized_inner;
+ } d;
+} WrapperInfo;
+
G_BEGIN_DECLS
+/*type of the function pointer of methods returned by mono_marshal_get_runtime_invoke*/
+typedef MonoObject *(*RuntimeInvokeFunction) (MonoObject *this, void **params, MonoObject **exc, void* compiled_method);
+
+typedef void (*RuntimeInvokeDynamicFunction) (void *args, MonoObject **exc, void* compiled_method);
+
/* marshaling helper functions */
void
gpointer
mono_array_to_lparray (MonoArray *array) MONO_INTERNAL;
+void
+mono_free_lparray (MonoArray *array, gpointer* nativeArray) MONO_INTERNAL;
+
void
mono_string_utf8_to_builder (MonoStringBuilder *sb, char *text) MONO_INTERNAL;
void
mono_marshal_free_asany (MonoObject *o, gpointer ptr, MonoMarshalNative string_encoding, int param_attrs) MONO_INTERNAL;
-MonoMethod*
-mono_marshal_get_write_barrier (void) MONO_INTERNAL;
-
guint
mono_type_to_ldind (MonoType *type) MONO_INTERNAL;
MonoMethod *
mono_marshal_method_from_wrapper (MonoMethod *wrapper) MONO_INTERNAL;
+void
+mono_marshal_set_wrapper_info (MonoMethod *method, gpointer data) MONO_INTERNAL;
+
+gpointer
+mono_marshal_get_wrapper_info (MonoMethod *wrapper) MONO_INTERNAL;
+
MonoMethod *
mono_marshal_get_remoting_invoke (MonoMethod *method) MONO_INTERNAL;
mono_marshal_get_delegate_invoke (MonoMethod *method, MonoDelegate *del) MONO_INTERNAL;
MonoMethod *
-mono_marshal_get_runtime_invoke (MonoMethod *method) MONO_INTERNAL;
+mono_marshal_get_runtime_invoke (MonoMethod *method, gboolean virtual) MONO_INTERNAL;
-MonoMethod *
-mono_marshal_get_static_rgctx_invoke (MonoMethod *method) MONO_INTERNAL;
+MonoMethod*
+mono_marshal_get_runtime_invoke_dynamic (void) MONO_INTERNAL;
+
+MonoMethodSignature*
+mono_marshal_get_string_ctor_signature (MonoMethod *method) MONO_INTERNAL;
MonoMethod *
-mono_marshal_get_managed_wrapper (MonoMethod *method, MonoClass *delegate_klass, MonoObject *this) MONO_INTERNAL;
+mono_marshal_get_managed_wrapper (MonoMethod *method, MonoClass *delegate_klass, uint32_t this_loc) MONO_INTERNAL;
gpointer
mono_marshal_get_vtfixup_ftnptr (MonoImage *image, guint32 token, guint16 type) MONO_INTERNAL;
MonoMethod *
mono_marshal_get_native_func_wrapper (MonoImage *image, MonoMethodSignature *sig, MonoMethodPInvoke *piinfo, MonoMarshalSpec **mspecs, gpointer func) MONO_INTERNAL;
+MonoMethod*
+mono_marshal_get_native_func_wrapper_aot (MonoClass *klass) MONO_INTERNAL;
+
MonoMethod *
mono_marshal_get_struct_to_ptr (MonoClass *klass) MONO_INTERNAL;
MonoMethod *
mono_marshal_get_synchronized_wrapper (MonoMethod *method) MONO_INTERNAL;
+MonoMethod *
+mono_marshal_get_synchronized_inner_wrapper (MonoMethod *method) MONO_INTERNAL;
+
MonoMethod *
mono_marshal_get_unbox_wrapper (MonoMethod *method) MONO_INTERNAL;
+MonoMethod *
+mono_marshal_get_castclass_with_cache (void) MONO_INTERNAL;
+
+MonoMethod *
+mono_marshal_get_isinst_with_cache (void) MONO_INTERNAL;
+
MonoMethod *
mono_marshal_get_isinst (MonoClass *klass) MONO_INTERNAL;
MonoMethod *
mono_marshal_get_stelemref (void) MONO_INTERNAL;
+MonoMethod*
+mono_marshal_get_virtual_stelemref (MonoClass *array_class) MONO_INTERNAL;
+
MonoMethod*
mono_marshal_get_array_address (int rank, int elem_size) MONO_INTERNAL;
MonoMethod *
mono_marshal_get_thunk_invoke_wrapper (MonoMethod *method) MONO_INTERNAL;
+void
+mono_marshal_free_dynamic_wrappers (MonoMethod *method) MONO_INTERNAL;
+
+void
+mono_marshal_free_inflated_wrappers (MonoMethod *method) MONO_INTERNAL;
+
/* marshaling internal calls */
void *
gboolean
mono_marshal_free_ccw (MonoObject* obj) MONO_INTERNAL;
+MonoObject *
+mono_marshal_xdomain_copy_value (MonoObject *val) MONO_INTERNAL;
+
+void
+cominterop_release_all_rcws (void) MONO_INTERNAL;
+
void
ves_icall_System_Runtime_InteropServices_Marshal_copy_to_unmanaged (MonoArray *src, gint32 start_index,
gpointer dest, gint32 length) MONO_INTERNAL;
MonoMethodSignature*
mono_signature_no_pinvoke (MonoMethod *method) MONO_INTERNAL;
+/* Called from cominterop.c */
+
+void
+mono_marshal_emit_native_wrapper (MonoImage *image, MonoMethodBuilder *mb, MonoMethodSignature *sig, MonoMethodPInvoke *piinfo, MonoMarshalSpec **mspecs, gpointer func, gboolean aot, gboolean check_exceptions, gboolean func_param) MONO_INTERNAL;
+
+void
+mono_marshal_emit_managed_wrapper (MonoMethodBuilder *mb, MonoMethodSignature *invoke_sig, MonoMarshalSpec **mspecs, EmitMarshalContext* m, MonoMethod *method, uint32_t target_handle) MONO_INTERNAL;
+
+GHashTable*
+mono_marshal_get_cache (GHashTable **var, GHashFunc hash_func, GCompareFunc equal_func) MONO_INTERNAL;
+
+MonoMethod*
+mono_marshal_find_in_cache (GHashTable *cache, gpointer key) MONO_INTERNAL;
+
+MonoMethod*
+mono_mb_create_and_cache (GHashTable *cache, gpointer key,
+ MonoMethodBuilder *mb, MonoMethodSignature *sig,
+ int max_stack) MONO_INTERNAL;
+void
+mono_marshal_emit_thread_interrupt_checkpoint (MonoMethodBuilder *mb) MONO_INTERNAL;
+
+void
+mono_marshal_use_aot_wrappers (gboolean use) MONO_INTERNAL;
+
G_END_DECLS
#endif /* __MONO_MARSHAL_H__ */
+