internal CorHandleValue GetHandle (CorValue val)
{
CorHandleValue handleVal = null;
if (!handles.TryGetValue (val.Address, out handleVal)) {
handleVal = val.CastToHandleValue ();
if (handleVal == null)
{
// Create a handle
CorReferenceValue refVal = val.CastToReferenceValue ();
CorHeapValue heapVal = refVal.Dereference ().CastToHeapValue ();
handleVal = heapVal.CreateHandle (CorDebugHandleType.HANDLE_STRONG);
}
handles.Add (val.Address, handleVal);
}
return handleVal;
}
/// <summary>
/// Recursively dereference the input value until we finally find a non-dereferenceable
/// value. Along the way, optionally build up a "ptr string" that shows the addresses
/// we dereference, separated by "->".
/// </summary>
/// <param name="value">Value to dereference</param>
/// <param name="ptrStringBuilder">StringBuilder if caller wants us to generate
/// a "ptr string" (in which case we'll stick it there). If caller doesn't want
/// a ptr string, this can be null</param>
/// <returns>CorValue we arrive at after dereferencing as many times as we can</returns>
private CorValue Dereference(CorValue value, StringBuilder ptrStringBuilder)
{
while (true)
{
CorReferenceValue rv = value.CastToReferenceValue();
if (rv == null)
break; // not a reference
if (ptrStringBuilder != null)
{
if (ptrStringBuilder.Length > 0)
{
ptrStringBuilder.Append("->");
}
ptrStringBuilder.Append("0x" + rv.Value.ToString("X", System.Globalization.CultureInfo.CurrentUICulture));
}
// Bail as soon as we hit a reference to NULL
if (rv.IsNull)
return null; // reference to null
CorValue newValue = null;
try
{
newValue = rv.Dereference();
}
catch (COMException ce)
{
// Check for any errors that are expected
if (ce.ErrorCode != (int)HResult.CORDBG_E_VALUE_POINTS_TO_FUNCTION)
{
throw; // some other error
}
}
if (newValue == null)
break; // couldn't dereference the reference (eg. void*)
value = newValue;
}
return value;
}
private CorValue Dereference(CorValue value)
{
while (true)
{
CorReferenceValue rv = value.CastToReferenceValue();
if (rv == null)
break; // not a reference
if (rv.IsNull)
return null; // reference to null
CorValue newValue = rv.Dereference();
if (newValue == null)
break; // couldn't dereference the reference (eg. void*)
value = newValue;
}
return value;
}
private string MakePtrString(CorValue value)
{
StringBuilder sb = new StringBuilder();
while (true)
{
CorReferenceValue rv = value.CastToReferenceValue();
if (rv == null)
break; // not a reference
if (sb.Length > 0)
{
sb.Append("->");
}
sb.Append("0x" + rv.Value.ToString("X", System.Globalization.CultureInfo.CurrentUICulture));
CorValue newValue = null;
try
{
newValue = rv.Dereference();
}
catch (COMException ce)
{
if (ce.ErrorCode != (int)HResult.CORDBG_E_BAD_REFERENCE_VALUE)
{
throw; // some other error
}
}
if (newValue == null)
break; // couldn't dereference the reference (eg. void* or invalid ref)
value = newValue;
}
return sb.ToString();
}
private object getValue(CorValue value)
{
var rv = value.CastToReferenceValue();
if (rv != null)
{
if (rv.IsNull)
{
_typename = rv.ExactType.Type;
return null;
}
return getValue(rv.Dereference());
}
var bv = value.CastToBoxValue();
if (bv != null)
return getValue(bv.GetObject());
/*_type_map = { 'System.Boolean': ELEMENT_TYPE_BOOLEAN,
'System.SByte' : ELEMENT_TYPE_I1, 'System.Byte' : ELEMENT_TYPE_U1,
'System.Int16' : ELEMENT_TYPE_I2, 'System.UInt16' : ELEMENT_TYPE_U2,
'System.Int32' : ELEMENT_TYPE_I4, 'System.UInt32' : ELEMENT_TYPE_U4,
'System.IntPtr' : ELEMENT_TYPE_I, 'System.UIntPtr': ELEMENT_TYPE_U,
'System.Int64' : ELEMENT_TYPE_I8, 'System.UInt64' : ELEMENT_TYPE_U8,
'System.Single' : ELEMENT_TYPE_R4, 'System.Double' : ELEMENT_TYPE_R8,
'System.Char' : ELEMENT_TYPE_CHAR, }*/
var typeMap = new List<KeyValuePair<CorElementType, string>>();
typeMap.AddRange(new KeyValuePair<CorElementType, string>[]
{
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_BOOLEAN, "System.Boolean"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_I1, "System.SByte"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_U1, "System.Byte"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_I2, "System.Int16"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_U2, "System.UInt16"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_I4, "System.Int32"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_U4, "System.UInt32"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_I, "System.IntPtr"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_U, "System.UIntPtr"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_I8, "System.Int64"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_U8, "System.UInt64"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_R4, "System.Single"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_R8, "System.Double"),
new KeyValuePair<CorElementType, string>(CorElementType.ELEMENT_TYPE_CHAR, "System.Char")
});
if (typeMap.Exists(t => t.Key.Equals(value.Type)))
return value.CastToGenericValue().GetValue();
else if (value.Type == CorElementType.ELEMENT_TYPE_STRING)
return value.CastToStringValue().String;
else if (value.Type == CorElementType.ELEMENT_TYPE_VALUETYPE)
{
var typeValue = value.ExactType.Type;
if (typeMap.Exists(t => t.Value.Equals(_typename)))
{
var gv = value.CastToGenericValue();
return gv.UnsafeGetValueAsType(typeMap.Find(t => t.Value.Equals(_typename)).Key);
}
else
return value.CastToObjectValue();
}
else if (new CorElementType[] {CorElementType.ELEMENT_TYPE_CLASS, CorElementType.ELEMENT_TYPE_OBJECT}.Contains(value.Type))
return new object(); //value.CastToObjectValue();
else
return "Unknown";
}