X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mono%2Fmetadata%2Fmarshal.h;h=9ca76c7ea3640c437c3702aeafc69e1b057c119c;hb=08cbcd7f0261275fac6330235d9a04f285f9a759;hp=92f0b21457d6d90cecdcf6990c3117019327a310;hpb=217d5255f0d980aaefa116866029d0ac8deee2f6;p=mono.git diff --git a/mono/metadata/marshal.h b/mono/metadata/marshal.h index 92f0b21457d..9ca76c7ea36 100644 --- a/mono/metadata/marshal.h +++ b/mono/metadata/marshal.h @@ -17,10 +17,164 @@ #include #include #include +#include + +#define mono_marshal_find_bitfield_offset(type, elem, byte_offset, bitmask) \ + do { \ + type tmp; \ + memset (&tmp, 0, sizeof (tmp)); \ + tmp.elem = 1; \ + 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, + /* Subtypes of MONO_WRAPPER_MANAGED_TO_MANAGED */ + WRAPPER_SUBTYPE_GENERIC_ARRAY_HELPER +} 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; + +typedef struct { + MonoMethod *method; +} GenericArrayHelperWrapperInfo; + +/* + * 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; + /* GENERIC_ARRAY_HELPER */ + GenericArrayHelperWrapperInfo generic_array_helper; + } d; +} WrapperInfo; G_BEGIN_DECLS -typedef struct _MonoMethodBuilder MonoMethodBuilder; +/*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 */ @@ -49,6 +203,9 @@ mono_array_to_savearray (MonoArray *array) MONO_INTERNAL; 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; @@ -90,83 +247,6 @@ mono_marshal_asany (MonoObject *obj, MonoMarshalNative string_encoding, int para 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; - -/* method builder functions */ - -void -mono_mb_free (MonoMethodBuilder *mb) MONO_INTERNAL; - -MonoMethodBuilder * -mono_mb_new (MonoClass *klass, const char *name, MonoWrapperType type) MONO_INTERNAL; - -void -mono_mb_patch_addr (MonoMethodBuilder *mb, int pos, int value) MONO_INTERNAL; - -void -mono_mb_patch_addr_s (MonoMethodBuilder *mb, int pos, gint8 value) MONO_INTERNAL; - -guint32 -mono_mb_add_data (MonoMethodBuilder *mb, gpointer data) MONO_INTERNAL; - -void -mono_mb_emit_native_call (MonoMethodBuilder *mb, MonoMethodSignature *sig, gpointer func) MONO_INTERNAL; - -void -mono_mb_emit_managed_call (MonoMethodBuilder *mb, MonoMethod *method, MonoMethodSignature *opt_sig) MONO_INTERNAL; - -int -mono_mb_add_local (MonoMethodBuilder *mb, MonoType *type) MONO_INTERNAL; - -MonoMethod * -mono_mb_create_method (MonoMethodBuilder *mb, MonoMethodSignature *signature, int max_stack) MONO_INTERNAL; - -void -mono_mb_emit_ldarg (MonoMethodBuilder *mb, guint argnum) MONO_INTERNAL; - -void -mono_mb_emit_ldarg_addr (MonoMethodBuilder *mb, guint argnum) MONO_INTERNAL; - -void -mono_mb_emit_ldloc (MonoMethodBuilder *mb, guint num) MONO_INTERNAL; - -void -mono_mb_emit_ldloc_addr (MonoMethodBuilder *mb, guint locnum) MONO_INTERNAL; - -void -mono_mb_emit_stloc (MonoMethodBuilder *mb, guint num) MONO_INTERNAL; - -void -mono_mb_emit_exception (MonoMethodBuilder *mb, const char *exc_name, const char *msg) MONO_INTERNAL; - -void -mono_mb_emit_icon (MonoMethodBuilder *mb, gint32 value) MONO_INTERNAL; - -guint32 -mono_mb_emit_branch (MonoMethodBuilder *mb, guint8 op) MONO_INTERNAL; - -guint32 -mono_mb_emit_short_branch (MonoMethodBuilder *mb, guint8 op) MONO_INTERNAL; - -void -mono_mb_emit_add_to_local (MonoMethodBuilder *mb, guint16 local, gint32 incr) MONO_INTERNAL; - -void -mono_mb_emit_ldflda (MonoMethodBuilder *mb, gint32 offset) MONO_INTERNAL; - -void -mono_mb_emit_byte (MonoMethodBuilder *mb, guint8 op) MONO_INTERNAL; - -void -mono_mb_emit_i2 (MonoMethodBuilder *mb, gint16 data) MONO_INTERNAL; - -void -mono_mb_emit_i4 (MonoMethodBuilder *mb, gint32 data) MONO_INTERNAL; - -void -mono_mb_emit_ldstr (MonoMethodBuilder *mb, char *str) MONO_INTERNAL; - guint mono_type_to_ldind (MonoType *type) MONO_INTERNAL; @@ -178,6 +258,12 @@ mono_type_to_stind (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; @@ -197,23 +283,35 @@ MonoMethod * mono_marshal_get_delegate_end_invoke (MonoMethod *method) MONO_INTERNAL; MonoMethod * -mono_marshal_get_delegate_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_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_icall_wrapper (MonoMethodSignature *sig, const char *name, gconstpointer func) MONO_INTERNAL; +mono_marshal_get_icall_wrapper (MonoMethodSignature *sig, const char *name, gconstpointer func, gboolean check_exceptions) MONO_INTERNAL; MonoMethod * -mono_marshal_get_native_wrapper (MonoMethod *method) MONO_INTERNAL; +mono_marshal_get_native_wrapper (MonoMethod *method, gboolean check_exceptions, gboolean aot) 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; @@ -238,9 +336,18 @@ mono_marshal_get_stfld_remote_wrapper (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; @@ -253,6 +360,9 @@ mono_marshal_get_proxy_cancast (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; @@ -260,6 +370,15 @@ MonoMethod * mono_marshal_get_generic_array_helper (MonoClass *class, MonoClass *iface, gchar *name, MonoMethod *method) 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 * @@ -274,6 +393,12 @@ mono_marshal_free_array (gpointer *ptr, int size) MONO_INTERNAL; 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; @@ -421,10 +546,7 @@ void ves_icall_System_ComObject_ReleaseInterfaces(MonoComObject* obj) MONO_INTERNAL; gpointer -ves_icall_System_ComObject_FindInterface (MonoComObject* obj, MonoReflectionType* type) MONO_INTERNAL; - -void -ves_icall_System_ComObject_AddInterface (MonoComObject* obj, MonoReflectionType* type, gpointer pItf) MONO_INTERNAL; +ves_icall_System_ComObject_GetInterfaceInternal (MonoComObject* obj, MonoReflectionType* type, MonoBoolean throw_exception) MONO_INTERNAL; void ves_icall_Mono_Interop_ComInteropProxy_AddProxy (gpointer pUnk, MonoComInteropProxy* proxy) MONO_INTERNAL; @@ -444,7 +566,38 @@ mono_win32_compat_MoveMemory (gpointer dest, gconstpointer source, gsize length) void mono_win32_compat_ZeroMemory (gpointer dest, gsize length); +void +mono_marshal_find_nonzero_bit_offset (guint8 *buf, int len, int *byte_offset, guint8 *bitmask) 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__ */ +