DEBUG: Log string allocations.

Author: joncham

mono/metadata/boehm-gc.c

@@ -1867,6 +1867,15 @@ mono_gchandle_new_weakref_internal (MonoObject *obj, gboolean track_resurrection
 	return alloc_handle (track_resurrection? HANDLE_WEAK_TRACK: HANDLE_WEAK, obj, track_resurrection);
 }
 
+void
+mono_debug_log_string(MonoString* str)
+{
+	//char* s = mono_string_to_utf8(str);
+	//g_print("STR %s\n",s);
+	//mono_free(s);
+	g_print("STR %S\n", mono_string_chars_fast(str));
+}
+
 /**
  * mono_gchandle_get_target_internal:
  * \param gchandle a GCHandle's handle.

mono/metadata/jit-icall-reg.h

@@ -172,6 +172,7 @@ MONO_JIT_ICALL (mono_context_set_icall) \
 MONO_JIT_ICALL (mono_create_corlib_exception_0) \
 MONO_JIT_ICALL (mono_create_corlib_exception_1) \
 MONO_JIT_ICALL (mono_create_corlib_exception_2) \
+MONO_JIT_ICALL (mono_debug_log_string) \
 MONO_JIT_ICALL (mono_debug_personality) \
 MONO_JIT_ICALL (mono_debugger_agent_breakpoint_from_context) \
 MONO_JIT_ICALL (mono_debugger_agent_single_step_from_context) \

mono/metadata/marshal-ilgen.c

@@ -6533,6 +6533,8 @@ emit_create_string_hack_ilgen (MonoMethodBuilder *mb, MonoMethodSignature *csig,
 	for (i = 1; i <= csig->param_count; i++)
 		mono_mb_emit_ldarg (mb, i);
 	mono_mb_emit_managed_call (mb, res, NULL);
+	mono_mb_emit_byte(mb, CEE_DUP);
+	mono_mb_emit_icall(mb, mono_debug_log_string);
 	mono_mb_emit_byte (mb, CEE_RET);
 }
 

mono/metadata/marshal.c

@@ -249,6 +249,7 @@ mono_marshal_init (void)
 		register_icall (mono_delegate_begin_invoke, mono_icall_sig_object_object_ptr, FALSE);
 		register_icall (mono_delegate_end_invoke, mono_icall_sig_object_object_ptr, FALSE);
 		register_icall (mono_gc_wbarrier_generic_nostore_internal, mono_icall_sig_void_ptr, FALSE);
+		register_icall (mono_debug_log_string, mono_icall_sig_void_ptr, FALSE);
 		register_icall (mono_gchandle_get_target_internal, mono_icall_sig_object_ptr, TRUE);
 		register_icall (mono_marshal_isinst_with_cache, mono_icall_sig_object_object_ptr_ptr, FALSE);
 		register_icall (mono_threads_enter_gc_safe_region_unbalanced, mono_icall_sig_ptr_ptr, TRUE);

mono/metadata/object-internals.h

@@ -2382,6 +2382,10 @@ ICALL_EXTERN_C
 MonoObject*
 mono_gchandle_get_target_internal (MonoGCHandle gchandle);
 
+ICALL_EXTERN_C
+void
+mono_debug_log_string(MonoString* str);
+
 void mono_gchandle_free_internal (MonoGCHandle gchandle);
 
 GCHandleType mono_gchandle_get_type_internal (MonoGCHandle gchandle);