administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

#2871

Browse source
This commit is contained in:
Ivan Bondarev 2023-07-04 18:00:43 +02:00
parent d34354ee35
commit 7d61ba8464
1 changed files with 22 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
VisualPascalABCNETLinux/MonoDebugging/Soft/SoftDebuggerAdaptor.cs
View file

@ -1127,24 +1127,31 @@ namespace Mono.Debugging.Soft
return GetMembers (ctx, null, t, co, bindingFlags);
}
string [] GetTupleElementNames (IObjectSource source, EvaluationContext ctx)
string[] GetTupleElementNames(IObjectSource source, EvaluationContext ctx)
{
switch (source) {
case FieldValueReference field:
if ((field.Type as TypeMirror)?.Name?.StartsWith ("ValueTuple`", StringComparison.Ordinal) != true)
if (source is FieldValueReference)
{
FieldValueReference field = source as FieldValueReference;
if ((field.Type as TypeMirror)?.Name?.StartsWith("ValueTuple`", StringComparison.Ordinal) != true)
return null;
return field.GetTupleElementNames ();
case PropertyValueReference prop:
if ((prop.Type as TypeMirror)?.Name?.StartsWith ("ValueTuple`", StringComparison.Ordinal) != true)
return null;
return prop.GetTupleElementNames ();
case VariableValueReference variable:
if ((variable.Type as TypeMirror)?.Name?.StartsWith ("ValueTuple`", StringComparison.Ordinal) != true)
return null;
return variable.GetTupleElementNames ((SoftEvaluationContext)ctx);
default:
return null;
return field.GetTupleElementNames();
}
if (source is PropertyValueReference)
{
PropertyValueReference prop = source as PropertyValueReference;
if ((prop.Type as TypeMirror)?.Name?.StartsWith("ValueTuple`", StringComparison.Ordinal) != true)
return null;
return prop.GetTupleElementNames();
}
if (source is VariableValueReference)
{
VariableValueReference variable = source as VariableValueReference;
if ((variable.Type as TypeMirror)?.Name?.StartsWith("ValueTuple`", StringComparison.Ordinal) != true)
return null;
return variable.GetTupleElementNames((SoftEvaluationContext)ctx);
}
return null;
}
protected override IEnumerable<ValueReference> GetMembers (EvaluationContext ctx, IObjectSource objectSource, object t, object co, BindingFlags bindingFlags)