Instance details module: display the fieldname referencing the instance

Closes #86

Author: Fred

MemoScope/Core/ClrDump.cs

@@ -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 "Toto";
+        }
+
+
     }
 
     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)
         {
-            ClrDump = dump;
-            Address = address;
+            FieldName = ClrDump.GetFieldNameReference(refAddress, address);
        }
 
+        public ReferenceInformation(ClrDump clrDump, ulong address)
+        {
+            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();
     }
 }