pascalabcnet/VisualPascalABCNETLinux/MonoDebugging/Soft/ThisValueReference.cs
2023-04-10 21:04:27 +02:00

80 lines
2.2 KiB
C#

//
// ThisValueReference.cs
//
// Author: Jeffrey Stedfast <jeff@xamarin.com>
//
// Copyright (c) 2014 Xamarin Inc. (www.xamarin.com)
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
// THE SOFTWARE.
using System;
using Mono.Debugging.Evaluation;
using Mono.Debugging.Client;
using Mono.Debugger.Soft;
using StackFrame = Mono.Debugger.Soft.StackFrame;
namespace Mono.Debugging.Soft
{
public class ThisValueReference : ValueReference
{
readonly StackFrame frame;
object type;
Value value;
public ThisValueReference (EvaluationContext ctx, StackFrame frame) : base (ctx)
{
this.frame = frame;
}
public override ObjectValueFlags Flags {
get { return ObjectValueFlags.Field | ObjectValueFlags.ReadOnly; }
}
public override string Name {
get { return "this"; }
}
public override object Value {
get {
if (value == null)
value = frame.GetThis ();
return value;
}
set {
if (frame.VirtualMachine.Version.AtLeast (2, 44)) {
this.value = (Value)value;
frame.SetThis ((Value)value);
}
}
}
public override object Type {
get {
if (type == null)
type = Context.Adapter.GetValueType (Context, Value);
return type;
}
}
}
}