From: Rodrigo Kumpera <kumpera@gmail.com>
Date: Thu, 17 Nov 2016 00:07:52 +0000 (-0800)
Subject: [mini] Implement callback that gives metadata access to seqpoint information.
X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=commitdiff_plain;h=66fae663345aab099ae9cc0399e2d15b27424ad4;p=mono.git

[mini] Implement callback that gives metadata access to seqpoint information.
---

diff --git a/mono/mini/mini-exceptions.c b/mono/mini/mini-exceptions.c
index 00e6addd578..2f25bbda818 100644
--- a/mono/mini/mini-exceptions.c
+++ b/mono/mini/mini-exceptions.c
@@ -180,6 +180,15 @@ mini_above_abort_threshold (void)
 	return above_threshold;
 }
 
+static int
+mono_get_seq_point_for_native_offset (MonoDomain *domain, MonoMethod *method, gint32 native_offset)
+{
+	SeqPoint sp;
+	if (mono_find_prev_seq_point_for_native_offset (domain, method, native_offset, NULL, &sp))
+		return sp.il_offset;
+	return -1;
+}
+
 void
 mono_exceptions_init (void)
 {
@@ -225,6 +234,7 @@ mono_exceptions_init (void)
 	cbs.mono_clear_abort_threshold = mini_clear_abort_threshold;
 	cbs.mono_above_abort_threshold = mini_above_abort_threshold;
 	mono_install_eh_callbacks (&cbs);
+	mono_install_get_seq_point (mono_get_seq_point_for_native_offset);
 }
 
 gpointer