Instance details module: display the fieldname referencing the instance

Closes #86

Author: fremag

MemoScope/Core/ClrDump.cs

@@ -29,7 +29,7 @@ public class ClrDump
 
         public List<ClrHandle> Handles => Runtime.EnumerateHandles().ToList();
         public List<ulong> FinalizerQueueObjectAddresses => Runtime.EnumerateFinalizerQueueObjectAddresses().ToList();
-        public IEnumerable<IGrouping<ClrType, ulong>> FinalizerQueueObjectAddressesByType => Runtime.EnumerateFinalizerQueueObjectAddresses().GroupBy( address => GetObjectType(address));
+        public IEnumerable<IGrouping<ClrType, ulong>> FinalizerQueueObjectAddressesByType => Runtime.EnumerateFinalizerQueueObjectAddresses().GroupBy(address => GetObjectType(address));
         public IEnumerable<ClrRoot> ClrRoots => Runtime.GetHeap().EnumerateRoots();
         public List<BlockingObject> BlockingObjects => Runtime.GetHeap().EnumerateBlockingObjects().ToList();
         public IList<ClrThread> Threads => Runtime.Threads;
@@ -52,7 +52,7 @@ public Dictionary<int, ThreadProperty> ThreadProperties
         Dictionary<int, ThreadProperty> threadProperties;
         private readonly SingleThreadWorker worker;
         private ClrDumpCache cache;
-        
+
         public ClrDump(DataTarget target, string dumpPath, MessageBus msgBus)
         {
             Id = n++;
@@ -85,7 +85,7 @@ private void InitRuntime()
 
         public List<ClrType> GetTypes()
         {
-            List<ClrType> t = worker.Eval( () => t = AllTypes);
+            List<ClrType> t = worker.Eval(() => t = AllTypes);
             return t;
         }
 
@@ -98,7 +98,7 @@ internal void Destroy()
         internal void Dispose()
         {
             cache.Dispose();
-            Run( () => Runtime.DataTarget.Dispose());
+            Run(() => Runtime.DataTarget.Dispose());
         }
 
         public ClrType GetClrType(string typeName)
@@ -125,7 +125,7 @@ public IEnumerable<ulong> EnumerateInstances(ClrType type)
             return cache.EnumerateInstances(typeId);
         }
 
-        public List<ulong> GetInstances(int typeId, int max=int.MaxValue)
+        public List<ulong> GetInstances(int typeId, int max = int.MaxValue)
         {
             var instances = cache.LoadInstances(typeId, max);
             return instances;
@@ -177,7 +177,7 @@ private object GetSimpleValueImpl(ulong address, ClrType type)
                 var value = SimpleValueHelper.GetSimpleValue(address, type, false);
                 return value;
             }
-            
+
             return address;
         }
 
@@ -200,7 +200,7 @@ public object GetFieldValueImpl(ulong address, ClrType type, List<ClrInstanceFie
             {
                 var field = fields[i];
                 obj = obj[field];
-                if( obj.IsNull )
+                if (obj.IsNull)
                 {
                     return null;
                 }
@@ -235,7 +235,7 @@ public bool HasReferences(ulong address)
 
         public int CountReferences(ulong address)
         {
-            var count = cache.CountReferences(address) ;
+            var count = cache.CountReferences(address);
             return count;
         }
 
@@ -251,7 +251,13 @@ public string GetObjectTypeName(ulong address)
 
         public ClrType GetObjectType(ulong address)
         {
-            var clrType = worker.Eval(() => Heap.GetObjectType(address));
+            var clrType = worker.Eval(() => GetObjectTypeImpl(address));
+            return clrType;
+        }
+
+        public ClrType GetObjectTypeImpl(ulong address)
+        {
+            var clrType = Heap.GetObjectType(address);
             return clrType;
         }
 
@@ -298,6 +304,53 @@ public ClrMethod GetMethodByHandle(ulong methodDescriptorPtr)
             var meth = Runtime.GetMethodByHandle(methodDescriptorPtr);
             return meth;
         }
+
+        // Find the field in instance at address that references refAddress
+        public string GetFieldNameReference(ulong refAddress, ulong address)
+        {
+            return Eval(() => GetFieldNameReferenceImpl(refAddress, address));
+        }
+        public string GetFieldNameReferenceImpl(ulong refAddress, ulong address)
+        {
+            ClrType type = GetObjectTypeImpl(address);
+            if (type == null)
+            {
+                return "Unknown";
+            }
+            ClrObject obj = new ClrObject(address, type);
+            if (type.IsArray)
+            {
+                var length = type.GetArrayLength(address);
+                for (int i = 0; i < length; i++)
+                {
+                    if (obj[i].Address == refAddress)
+                    {
+                        return $"[ {i} ]";
+                    }
+                }
+                return "[ ? ]";
+            }
+            foreach (var field in type.Fields)
+            {
+                switch (field.ElementType)
+                {
+                    case ClrElementType.Struct:
+                    case ClrElementType.String:
+                    case ClrElementType.Array:
+                    case ClrElementType.SZArray:
+                    case ClrElementType.Object:
+                        var fieldValue = obj[field];
+                        if (fieldValue.Address == refAddress)
+                        {
+                            return field.Name;
+                        }
+                        break;
+                }
+            }
+            return "???";
+        }
+
+
     }
 
     public class ThreadProperty

MemoScope/Modules/InstanceDetails/ReferenceInformation.cs

@@ -15,18 +15,26 @@ public class ReferenceInformation : ITreeNodeInformation<ReferenceInformation>,
         [OLVColumn(Title = "Address")]
         public ulong Address { get; }
 
+        [OLVColumn]
+        public string FieldName { get; }
+
         [OLVColumn(Title = "Type")]
         public string TypeName => ClrDump.GetObjectTypeName(Address);
 
         public ClrType ClrType => ClrDump.GetObjectType(Address);
 
-        public ReferenceInformation(ClrDump dump, ulong address)
+        public ReferenceInformation(ClrDump clrDump, ulong address, ulong refAddress) : this(clrDump, address)
+        {
+            FieldName = ClrDump.GetFieldNameReference(refAddress, address);
+        }
+
+        public ReferenceInformation(ClrDump clrDump, ulong address)
         {
-            ClrDump = dump;
+            ClrDump = clrDump;
             Address = address;
-       }
+        }
 
         public bool CanExpand => ClrDump.HasReferences(Address);
-        public List<ReferenceInformation> Children => ClrDump.GetReferences(Address).Select(address => new ReferenceInformation(ClrDump, address)).ToList();
+        public List<ReferenceInformation> Children => ClrDump.GetReferences(Address).Select(address => new ReferenceInformation(ClrDump, address, Address)).ToList();
     }
 }