When debugging 64-bit processes VS can not lookup the mono_pmip symbol in the

JIT frame's context. This patch enumerates all loaded modules and tries
DkmNativeModuleInstance.FindExportName("mono_pmip") to find the address of the
mono_pmip() function rather than using expression evaluation. This method has
been validated to work with 32-bit and 64-bit processes.

Author: ntherning

PmipRunner.cs

@@ -2,13 +2,13 @@
 using Microsoft.VisualStudio.Debugger;
 using Microsoft.VisualStudio.Debugger.CallStack;
 using Microsoft.VisualStudio.Debugger.Evaluation;
+using Microsoft.VisualStudio.Debugger.Native;
 
 namespace PmipMyCallStack
 {
 	class PmipRunner
 	{
 		private static readonly DkmLanguage CppLanguage = DkmLanguage.Create("C++", new DkmCompilerId(DkmVendorId.Microsoft, DkmLanguageId.Cpp));
-		private static readonly string[] Modules = { "mono", "monosgen-2.0" };
 
 		private readonly DkmStackContext _stackContext;
 		private readonly DkmStackWalkFrame _frame;
@@ -59,17 +59,19 @@ private bool TryGetPmipFunction(out PmipFunctionDataItem pmipFunction)
 			if (pmipFunction != null)
 				return true;
 
-			foreach (var module in Modules)
+			foreach (var module in this._frame.RuntimeInstance.GetModuleInstances())
 			{
-				var definition = $"{{,,{module}}}mono_pmip";
-
-				PmipFunctionDataItem item = null;
-				if (!EvaluateExpression(definition, r => item = new PmipFunctionDataItem {PmipFunction = definition}))
-					continue;
-
-				pmipFunction = item;
-				_stackContext.SetDataItem(DkmDataCreationDisposition.CreateAlways, item);
-				return true;
+				if (module is DkmNativeModuleInstance)
+				{
+					DkmNativeInstructionAddress address = ((DkmNativeModuleInstance) module).FindExportName("mono_pmip", true);
+					if (address != null)
+					{
+						PmipFunctionDataItem item = new PmipFunctionDataItem { PmipFunction = "0x" + address.CPUInstructionPart.InstructionPointer.ToString("X") };
+						pmipFunction = item;
+						_stackContext.SetDataItem(DkmDataCreationDisposition.CreateAlways, item);
+						return true;
+					}
+				}
 			}
 
 			return false;
@@ -116,4 +118,4 @@ private bool EvaluateExpression(string expression, Action<DkmSuccessEvaluationRe
 			return success;
 		}
 	}
-}
+}