|
|
|
@ -1,124 +1,407 @@ |
|
|
|
// <file>
|
|
|
|
// <file>
|
|
|
|
// <copyright see="prj:///doc/copyright.txt"/>
|
|
|
|
// <copyright see="prj:///doc/copyright.txt"/>
|
|
|
|
// <license see="prj:///doc/license.txt"/>
|
|
|
|
// <license see="prj:///doc/license.txt"/>
|
|
|
|
// <owner name="David Srbecký" email="dsrbecky@gmail.com"/>
|
|
|
|
// <owner name="David Srbecký" email="dsrbecky@gmail.com"/>
|
|
|
|
// <version>$Revision$</version>
|
|
|
|
// <version>$Revision$</version>
|
|
|
|
// </file>
|
|
|
|
// </file>
|
|
|
|
|
|
|
|
|
|
|
|
using System; |
|
|
|
using System; |
|
|
|
|
|
|
|
using System.Collections.Generic; |
|
|
|
|
|
|
|
|
|
|
|
using Debugger.Wrappers.CorDebug; |
|
|
|
using Debugger.Wrappers.CorDebug; |
|
|
|
|
|
|
|
|
|
|
|
namespace Debugger |
|
|
|
namespace Debugger |
|
|
|
{ |
|
|
|
{ |
|
|
|
public abstract class ValueProxy: RemotingObjectBase |
|
|
|
/// <summary>
|
|
|
|
|
|
|
|
/// Delegate that is used to get value. This delegate may be called at any time and should never return null.
|
|
|
|
|
|
|
|
/// </summary>
|
|
|
|
|
|
|
|
delegate ICorDebugValue CorValueGetter(); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/// <summary>
|
|
|
|
|
|
|
|
/// Value is a container which holds data necessaty to obtain
|
|
|
|
|
|
|
|
/// the value of a given object even after continue. This level of
|
|
|
|
|
|
|
|
/// abstraction is necessary because the type of a value can change
|
|
|
|
|
|
|
|
/// (eg for local variable of type object)
|
|
|
|
|
|
|
|
///
|
|
|
|
|
|
|
|
/// Expiration: Once value expires it can not be used anymore.
|
|
|
|
|
|
|
|
/// Expiration is permanet - once value expires it stays expired.
|
|
|
|
|
|
|
|
/// Value expires when any object specified in constructor expires
|
|
|
|
|
|
|
|
/// or when process exits.
|
|
|
|
|
|
|
|
///
|
|
|
|
|
|
|
|
/// Mutation: As long as any dependecy does not mutate the last
|
|
|
|
|
|
|
|
/// obteined value is still considered up to date. (If continue is
|
|
|
|
|
|
|
|
/// called and internal value is neutred new copy will be obatined)
|
|
|
|
|
|
|
|
/// </summary>
|
|
|
|
|
|
|
|
public class Value: IExpirable, IMutable |
|
|
|
{ |
|
|
|
{ |
|
|
|
Value val; |
|
|
|
protected Process process; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
CorValueGetter corValueGetter; |
|
|
|
|
|
|
|
IMutable[] mutateDependencies; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
protected ValueProxy currentValue; |
|
|
|
|
|
|
|
protected ICorDebugValue currentCorValue; |
|
|
|
|
|
|
|
protected PauseSession currentCorValuePauseSession; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
bool isExpired = false; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
public event EventHandler Expired; |
|
|
|
|
|
|
|
public event EventHandler<ProcessEventArgs> Changed; |
|
|
|
|
|
|
|
|
|
|
|
public Process Process { |
|
|
|
public Process Process { |
|
|
|
get { |
|
|
|
get { |
|
|
|
return val.Process; |
|
|
|
return process; |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
public Value Value { |
|
|
|
public ICorDebugValue CorValue { |
|
|
|
get { |
|
|
|
get { |
|
|
|
return val; |
|
|
|
return DereferenceUnbox(RawCorValue); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
internal ICorDebugValue CorValue { |
|
|
|
internal CorElementType CorType { |
|
|
|
get { |
|
|
|
get { |
|
|
|
return val.CorValue; |
|
|
|
return GetCorType(this.CorValue); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
protected ValueProxy FreshValue { |
|
|
|
internal static CorElementType GetCorType(ICorDebugValue corValue) |
|
|
|
get { |
|
|
|
{ |
|
|
|
return val.ValueProxy; |
|
|
|
if (corValue == null) { |
|
|
|
|
|
|
|
return (CorElementType)0; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
return (CorElementType)corValue.Type; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
internal CorElementType CorType { |
|
|
|
protected virtual ICorDebugValue RawCorValue { |
|
|
|
get { |
|
|
|
get { |
|
|
|
return GetCorType(CorValue); |
|
|
|
if (this.HasExpired) throw new CannotGetValueException("CorValue has expired"); |
|
|
|
|
|
|
|
if (currentCorValue == null || (currentCorValuePauseSession != process.PauseSession && !currentCorValue.Is<ICorDebugHandleValue>())) { |
|
|
|
|
|
|
|
currentCorValue = corValueGetter(); |
|
|
|
|
|
|
|
currentCorValuePauseSession = process.PauseSession; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
return currentCorValue; |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
public abstract string AsString { |
|
|
|
public ValueProxy ValueProxy { |
|
|
|
get; |
|
|
|
get { |
|
|
|
} |
|
|
|
if (currentValue == null) { |
|
|
|
|
|
|
|
try { |
|
|
|
public virtual string Type { |
|
|
|
currentValue = CreateValue(); |
|
|
|
get{ |
|
|
|
} catch (CannotGetValueException e) { |
|
|
|
return CorTypeToString(CorType); |
|
|
|
currentValue = new UnavailableValue(this, e.Message); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
return currentValue; |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
public virtual Type ManagedType { |
|
|
|
public bool HasExpired { |
|
|
|
get { |
|
|
|
get { |
|
|
|
return CorTypeToManagedType(CorType); |
|
|
|
return isExpired; |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
public bool MayHaveSubVariables { |
|
|
|
public ICorDebugValue SoftReference { |
|
|
|
get { |
|
|
|
get { |
|
|
|
#if DEBUG
|
|
|
|
if (this.HasExpired) throw new DebuggerException("CorValue has expired"); |
|
|
|
return true; |
|
|
|
|
|
|
|
#else
|
|
|
|
ICorDebugValue corValue = RawCorValue; |
|
|
|
return GetMayHaveSubVariables(); |
|
|
|
if (corValue != null && corValue.Is<ICorDebugHandleValue>()) { |
|
|
|
#endif
|
|
|
|
return corValue; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
corValue = DereferenceUnbox(corValue); |
|
|
|
|
|
|
|
if (corValue != null && corValue.Is<ICorDebugHeapValue2>()) { |
|
|
|
|
|
|
|
return corValue.As<ICorDebugHeapValue2>().CreateHandle(CorDebugHandleType.HANDLE_WEAK_TRACK_RESURRECTION).CastTo<ICorDebugValue>(); |
|
|
|
|
|
|
|
} else { |
|
|
|
|
|
|
|
return corValue; // Value type - return value type
|
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
protected abstract bool GetMayHaveSubVariables(); |
|
|
|
internal Value(Process process, |
|
|
|
|
|
|
|
IExpirable[] expireDependencies, |
|
|
|
|
|
|
|
IMutable[] mutateDependencies, |
|
|
|
|
|
|
|
CorValueGetter corValueGetter) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
this.process = process; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
foreach(IExpirable exp in expireDependencies) { |
|
|
|
|
|
|
|
AddExpireDependency(exp); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
AddExpireDependency(process); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
this.mutateDependencies = mutateDependencies; |
|
|
|
|
|
|
|
if (!this.HasExpired) { |
|
|
|
|
|
|
|
foreach(IMutable mut in mutateDependencies) { |
|
|
|
|
|
|
|
AddMutateDependency(mut); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
this.corValueGetter = corValueGetter; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
public VariableCollection SubVariables { |
|
|
|
void AddExpireDependency(IExpirable dependency) |
|
|
|
get { |
|
|
|
{ |
|
|
|
VariableCollection subVars = GetSubVariables(); |
|
|
|
if (dependency.HasExpired) { |
|
|
|
#if DEBUG
|
|
|
|
MakeExpired(); |
|
|
|
return new VariableCollection(subVars.Name, |
|
|
|
} else { |
|
|
|
subVars.Value, |
|
|
|
dependency.Expired += delegate { MakeExpired(); }; |
|
|
|
Util.MergeLists(val.GetDebugInfo(), subVars.SubCollections).ToArray(), |
|
|
|
|
|
|
|
subVars.Items); |
|
|
|
|
|
|
|
#else
|
|
|
|
|
|
|
|
return subVars; |
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
protected virtual VariableCollection GetSubVariables() |
|
|
|
void AddMutateDependency(IMutable dependency) |
|
|
|
{ |
|
|
|
{ |
|
|
|
return new VariableCollection(new Variable[] {}); |
|
|
|
dependency.Changed += DependencyChanged; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
public Variable this[string variableName] { |
|
|
|
void MakeExpired() |
|
|
|
get { |
|
|
|
{ |
|
|
|
foreach(Variable v in SubVariables) { |
|
|
|
if (!isExpired) { |
|
|
|
if (v.Name == variableName) return v; |
|
|
|
isExpired = true; |
|
|
|
|
|
|
|
OnExpired(new ValueEventArgs(this)); |
|
|
|
|
|
|
|
foreach(IMutable mut in mutateDependencies) { |
|
|
|
|
|
|
|
mut.Changed -= DependencyChanged; |
|
|
|
} |
|
|
|
} |
|
|
|
throw new DebuggerException("Subvariable " + variableName + " does not exist"); |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
protected ValueProxy(Value @value) |
|
|
|
void DependencyChanged(object sender, ProcessEventArgs e) |
|
|
|
{ |
|
|
|
{ |
|
|
|
if (@value == null) throw new ArgumentNullException("value"); |
|
|
|
NotifyChange(); |
|
|
|
this.val = @value; |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
public override string ToString() |
|
|
|
protected virtual void ClearCurrentValue() |
|
|
|
{ |
|
|
|
{ |
|
|
|
return AsString; |
|
|
|
currentValue = null; |
|
|
|
|
|
|
|
currentCorValue = null; |
|
|
|
|
|
|
|
currentCorValuePauseSession = null; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
internal static CorElementType GetCorType(ICorDebugValue corValue) |
|
|
|
internal void NotifyChange() |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
ClearCurrentValue(); |
|
|
|
|
|
|
|
if (!isExpired) { |
|
|
|
|
|
|
|
OnChanged(new ValueEventArgs(this)); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
protected virtual void OnChanged(ProcessEventArgs e) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
if (Changed != null) { |
|
|
|
|
|
|
|
Changed(this, e); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
protected virtual void OnExpired(EventArgs e) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
if (Expired != null) { |
|
|
|
|
|
|
|
Expired(this, e); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
internal static ICorDebugValue DereferenceUnbox(ICorDebugValue corValue) |
|
|
|
{ |
|
|
|
{ |
|
|
|
|
|
|
|
// Method arguments can be passed 'by ref'
|
|
|
|
|
|
|
|
if (corValue.Type == (uint)CorElementType.BYREF) { |
|
|
|
|
|
|
|
corValue = corValue.CastTo<ICorDebugReferenceValue>().Dereference(); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Pointers may be used in 'unsafe' code - CorElementType.PTR
|
|
|
|
|
|
|
|
// Classes need to be dereferenced
|
|
|
|
|
|
|
|
while (corValue.Is<ICorDebugReferenceValue>()) { |
|
|
|
|
|
|
|
ICorDebugReferenceValue refValue = corValue.CastTo<ICorDebugReferenceValue>(); |
|
|
|
|
|
|
|
if (refValue.IsNull != 0) { |
|
|
|
|
|
|
|
return null; // Reference is null
|
|
|
|
|
|
|
|
} else { |
|
|
|
|
|
|
|
try { |
|
|
|
|
|
|
|
corValue = refValue.Dereference(); |
|
|
|
|
|
|
|
// TODO: Investigate: Must not acutally be null
|
|
|
|
|
|
|
|
// eg. Assembly.AssemblyHandle See SD2-1117
|
|
|
|
|
|
|
|
if (corValue == null) return null; // Dereference() returned null
|
|
|
|
|
|
|
|
} catch { |
|
|
|
|
|
|
|
return null; // Error during dereferencing
|
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Unbox value types
|
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugBoxValue>()) { |
|
|
|
|
|
|
|
corValue = corValue.CastTo<ICorDebugBoxValue>().Object.CastTo<ICorDebugValue>(); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
return corValue; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
public enum ValueType {Null, Primitive, Array, Object, Unknown}; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ValueType GetValueType() |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
ICorDebugValue corValue = this.CorValue; |
|
|
|
|
|
|
|
|
|
|
|
if (corValue == null) { |
|
|
|
if (corValue == null) { |
|
|
|
return (CorElementType)0; |
|
|
|
return ValueType.Null; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
switch(GetCorType(corValue)) { |
|
|
|
|
|
|
|
case CorElementType.BOOLEAN: |
|
|
|
|
|
|
|
case CorElementType.CHAR: |
|
|
|
|
|
|
|
case CorElementType.I1: |
|
|
|
|
|
|
|
case CorElementType.U1: |
|
|
|
|
|
|
|
case CorElementType.I2: |
|
|
|
|
|
|
|
case CorElementType.U2: |
|
|
|
|
|
|
|
case CorElementType.I4: |
|
|
|
|
|
|
|
case CorElementType.U4: |
|
|
|
|
|
|
|
case CorElementType.I8: |
|
|
|
|
|
|
|
case CorElementType.U8: |
|
|
|
|
|
|
|
case CorElementType.R4: |
|
|
|
|
|
|
|
case CorElementType.R8: |
|
|
|
|
|
|
|
case CorElementType.I: |
|
|
|
|
|
|
|
case CorElementType.U: |
|
|
|
|
|
|
|
case CorElementType.STRING: |
|
|
|
|
|
|
|
return ValueType.Primitive; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
case CorElementType.ARRAY: |
|
|
|
|
|
|
|
case CorElementType.SZARRAY: // Short-cut for single dimension zero lower bound array
|
|
|
|
|
|
|
|
return ValueType.Array; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
case CorElementType.VALUETYPE: |
|
|
|
|
|
|
|
case CorElementType.CLASS: |
|
|
|
|
|
|
|
case CorElementType.OBJECT: // Short-cut for Class "System.Object"
|
|
|
|
|
|
|
|
return ValueType.Object; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
default: // Unknown type
|
|
|
|
|
|
|
|
return ValueType.Unknown; |
|
|
|
} |
|
|
|
} |
|
|
|
return (CorElementType)corValue.Type; |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ValueProxy CreateValue() |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
ICorDebugValue corValue = this.CorValue; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
switch(GetValueType()) { |
|
|
|
|
|
|
|
case ValueType.Null: return new NullValue(this); |
|
|
|
|
|
|
|
case ValueType.Primitive: return new PrimitiveValue(this); |
|
|
|
|
|
|
|
case ValueType.Array: return new ArrayValue(this); |
|
|
|
|
|
|
|
case ValueType.Object: return new ObjectValue(this); |
|
|
|
|
|
|
|
default: throw new CannotGetValueException("Unknown value type"); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
public bool SetValue(Value newValue) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
ICorDebugValue corValue = this.RawCorValue; |
|
|
|
|
|
|
|
ICorDebugValue newCorValue = newValue.RawCorValue; |
|
|
|
|
|
|
|
if (newCorValue.Type == (uint)CorElementType.BYREF) { |
|
|
|
|
|
|
|
newCorValue = newCorValue.As<ICorDebugReferenceValue>().Dereference(); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugReferenceValue>()) { |
|
|
|
|
|
|
|
if (newCorValue.Is<ICorDebugObjectValue>()) { |
|
|
|
|
|
|
|
ICorDebugClass corClass = newCorValue.As<ICorDebugObjectValue>().Class; |
|
|
|
|
|
|
|
ICorDebugValue box = Eval.NewObject(process, corClass).RawCorValue; |
|
|
|
|
|
|
|
newCorValue = box; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
corValue.CastTo<ICorDebugReferenceValue>().SetValue(newCorValue.CastTo<ICorDebugReferenceValue>().Value); |
|
|
|
|
|
|
|
return true; |
|
|
|
|
|
|
|
} else { |
|
|
|
|
|
|
|
return false; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/// <summary>
|
|
|
|
|
|
|
|
/// Returns true if the value is signed or unsigned integer of any size
|
|
|
|
|
|
|
|
/// </summary>
|
|
|
|
|
|
|
|
public bool IsInteger { |
|
|
|
|
|
|
|
get { |
|
|
|
|
|
|
|
CorElementType corType = CorType; |
|
|
|
|
|
|
|
return corType == CorElementType.I1 || |
|
|
|
|
|
|
|
corType == CorElementType.U1 || |
|
|
|
|
|
|
|
corType == CorElementType.I2 || |
|
|
|
|
|
|
|
corType == CorElementType.U2 || |
|
|
|
|
|
|
|
corType == CorElementType.I4 || |
|
|
|
|
|
|
|
corType == CorElementType.U4 || |
|
|
|
|
|
|
|
corType == CorElementType.I8 || |
|
|
|
|
|
|
|
corType == CorElementType.U8 || |
|
|
|
|
|
|
|
corType == CorElementType.I || |
|
|
|
|
|
|
|
corType == CorElementType.U; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
public VariableCollection GetDebugInfo() |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
return GetDebugInfo(this.RawCorValue); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
public static VariableCollection GetDebugInfo(ICorDebugValue corValue) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
List<VariableCollection> items = new List<VariableCollection>(); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugValue>()) { |
|
|
|
|
|
|
|
List<VariableCollection> more = new List<VariableCollection>(); |
|
|
|
|
|
|
|
more.Add(new VariableCollection("type", ((CorElementType)corValue.Type).ToString())); |
|
|
|
|
|
|
|
more.Add(new VariableCollection("size", corValue.Size.ToString())); |
|
|
|
|
|
|
|
more.Add(new VariableCollection("address", corValue.Address.ToString("X"))); |
|
|
|
|
|
|
|
items.Add(new VariableCollection("ICorDebugValue", "", more, null)); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugValue2>()) items.Add(new VariableCollection("ICorDebugValue2", "", null, null)); |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugGenericValue>()) { |
|
|
|
|
|
|
|
List<VariableCollection> more = new List<VariableCollection>(); |
|
|
|
|
|
|
|
try { |
|
|
|
|
|
|
|
byte[] bytes = corValue.CastTo<ICorDebugGenericValue>().RawValue; |
|
|
|
|
|
|
|
for(int i = 0; i < bytes.Length; i += 8) { |
|
|
|
|
|
|
|
string val = ""; |
|
|
|
|
|
|
|
for(int j = i; j < bytes.Length && j < i + 8; j++) { |
|
|
|
|
|
|
|
val += bytes[j].ToString("X2") + " "; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
more.Add(new VariableCollection("data" + i.ToString("X2"), val)); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} catch (ArgumentException) { |
|
|
|
|
|
|
|
more.Add(new VariableCollection("data", "N/A")); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
items.Add(new VariableCollection("ICorDebugGenericValue", "", more, null)); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugReferenceValue>()) { |
|
|
|
|
|
|
|
List<VariableCollection> more = new List<VariableCollection>(); |
|
|
|
|
|
|
|
ICorDebugReferenceValue refValue = corValue.CastTo<ICorDebugReferenceValue>(); |
|
|
|
|
|
|
|
bool isNull = refValue.IsNull != 0; |
|
|
|
|
|
|
|
more.Add(new VariableCollection("isNull", isNull.ToString())); |
|
|
|
|
|
|
|
if (!isNull) { |
|
|
|
|
|
|
|
more.Add(new VariableCollection("address", refValue.Value.ToString("X"))); |
|
|
|
|
|
|
|
if (refValue.Dereference() != null) { |
|
|
|
|
|
|
|
VariableCollection deRef = GetDebugInfo(refValue.Dereference()); |
|
|
|
|
|
|
|
more.Add(new VariableCollection("dereferenced", deRef.Value, deRef.SubCollections, deRef.Items)); |
|
|
|
|
|
|
|
} else { |
|
|
|
|
|
|
|
more.Add(new VariableCollection("dereferenced", "N/A", null, null)); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
items.Add(new VariableCollection("ICorDebugReferenceValue", "", more, null)); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugHeapValue>()) items.Add(new VariableCollection("ICorDebugHeapValue", "", null, null)); |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugHeapValue2>()) items.Add(new VariableCollection("ICorDebugHeapValue2", "", null, null)); |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugObjectValue>()) { |
|
|
|
|
|
|
|
List<VariableCollection> more = new List<VariableCollection>(); |
|
|
|
|
|
|
|
bool isValue = corValue.CastTo<ICorDebugObjectValue>().IsValueClass != 0; |
|
|
|
|
|
|
|
more.Add(new VariableCollection("isValue", isValue.ToString())); |
|
|
|
|
|
|
|
items.Add(new VariableCollection("ICorDebugObjectValue", "", more, null)); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugObjectValue2>()) items.Add(new VariableCollection("ICorDebugObjectValue2", "", null, null)); |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugBoxValue>()) { |
|
|
|
|
|
|
|
List<VariableCollection> more = new List<VariableCollection>(); |
|
|
|
|
|
|
|
VariableCollection unboxed = GetDebugInfo(corValue.CastTo<ICorDebugBoxValue>().Object.CastTo<ICorDebugValue>()); |
|
|
|
|
|
|
|
more.Add(new VariableCollection("unboxed", unboxed.Value, unboxed.SubCollections, unboxed.Items)); |
|
|
|
|
|
|
|
items.Add(new VariableCollection("ICorDebugBoxValue", "", more, null)); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugStringValue>()) items.Add(new VariableCollection("ICorDebugStringValue", "", null, null)); |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugArrayValue>()) items.Add(new VariableCollection("ICorDebugArrayValue", "", null, null)); |
|
|
|
|
|
|
|
if (corValue.Is<ICorDebugHandleValue>()) items.Add(new VariableCollection("ICorDebugHandleValue", "", null, null)); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
return new VariableCollection("$debugInfo", ((CorElementType)corValue.Type).ToString(), items.ToArray(), null); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
internal static System.Type CorTypeToManagedType(CorElementType corType) |
|
|
|
internal static System.Type CorTypeToManagedType(CorElementType corType) |
|
|
|
{ |
|
|
|
{ |
|
|
|
switch(corType) |
|
|
|
switch(corType) |
|
|
|
@ -145,25 +428,6 @@ namespace Debugger |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
/// <summary>
|
|
|
|
|
|
|
|
/// Returns true if the value is signed or unsigned integer of any size
|
|
|
|
|
|
|
|
/// </summary>
|
|
|
|
|
|
|
|
public bool IsInteger { |
|
|
|
|
|
|
|
get { |
|
|
|
|
|
|
|
CorElementType corType = CorType; |
|
|
|
|
|
|
|
return corType == CorElementType.I1 || |
|
|
|
|
|
|
|
corType == CorElementType.U1 || |
|
|
|
|
|
|
|
corType == CorElementType.I2 || |
|
|
|
|
|
|
|
corType == CorElementType.U2 || |
|
|
|
|
|
|
|
corType == CorElementType.I4 || |
|
|
|
|
|
|
|
corType == CorElementType.U4 || |
|
|
|
|
|
|
|
corType == CorElementType.I8 || |
|
|
|
|
|
|
|
corType == CorElementType.U8 || |
|
|
|
|
|
|
|
corType == CorElementType.I || |
|
|
|
|
|
|
|
corType == CorElementType.U; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
internal static string CorTypeToString(CorElementType corType) |
|
|
|
internal static string CorTypeToString(CorElementType corType) |
|
|
|
{ |
|
|
|
{ |
|
|
|
Type manType = CorTypeToManagedType(corType); |
|
|
|
Type manType = CorTypeToManagedType(corType); |
|
|
|
@ -171,4 +435,12 @@ namespace Debugger |
|
|
|
return manType.ToString(); |
|
|
|
return manType.ToString(); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
class CannotGetValueException: System.Exception |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
public CannotGetValueException(string message):base(message) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
David Srbecký
19 years ago