1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
using System;
using Mono.Debugger.Backend;
namespace Mono.Debugger.Languages
{
public class TargetFundamentalObject : TargetObject
{
new public readonly TargetFundamentalType Type;
internal TargetFundamentalObject (TargetFundamentalType type, TargetLocation location)
: base (type, location)
{
this.Type = type;
}
internal override long GetDynamicSize (TargetMemoryAccess target, TargetBlob blob,
TargetLocation location,
out TargetLocation dynamic_location)
{
throw new InvalidOperationException ();
}
public object GetObject (Thread thread)
{
return thread.ThreadServant.DoTargetAccess (
delegate (TargetMemoryAccess target) {
return DoGetObject (target);
});
}
internal object GetObject (TargetMemoryAccess target)
{
return DoGetObject (target);
}
protected virtual object DoGetObject (TargetMemoryAccess target)
{
TargetBlob blob = Location.ReadMemory (target, Type.Size);
switch (Type.FundamentalKind) {
case FundamentalKind.Boolean:
return blob.Contents [0] != 0;
case FundamentalKind.Char:
return BitConverter.ToChar (blob.Contents, 0);
case FundamentalKind.SByte:
return (sbyte) blob.Contents [0];
case FundamentalKind.Byte:
return (byte) blob.Contents [0];
case FundamentalKind.Int16:
return BitConverter.ToInt16 (blob.Contents, 0);
case FundamentalKind.UInt16:
return BitConverter.ToUInt16 (blob.Contents, 0);
case FundamentalKind.Int32:
return BitConverter.ToInt32 (blob.Contents, 0);
case FundamentalKind.UInt32:
return BitConverter.ToUInt32 (blob.Contents, 0);
case FundamentalKind.Int64:
return BitConverter.ToInt64 (blob.Contents, 0);
case FundamentalKind.UInt64:
return BitConverter.ToUInt64 (blob.Contents, 0);
case FundamentalKind.Single:
return BitConverter.ToSingle (blob.Contents, 0);
case FundamentalKind.Double:
return BitConverter.ToDouble (blob.Contents, 0);
case FundamentalKind.IntPtr:
if (blob.Contents.Length == 4)
return new IntPtr (BitConverter.ToInt32 (blob.Contents, 0));
else
return new IntPtr (BitConverter.ToInt64 (blob.Contents, 0));
case FundamentalKind.UIntPtr:
if (blob.Size == 4)
return new UIntPtr (BitConverter.ToUInt32 (blob.Contents, 0));
else
return new UIntPtr (BitConverter.ToUInt64 (blob.Contents, 0));
default:
throw new InvalidOperationException ();
}
}
public void SetObject (Thread thread, TargetObject obj)
{
thread.ThreadServant.DoTargetAccess (
delegate (TargetMemoryAccess target) {
Type.SetObject (target, Location, obj);
return null;
});
}
internal override string Print (TargetMemoryAccess target)
{
object obj = DoGetObject (target);
if (obj is IntPtr)
return String.Format ("0x{0:x}", ((IntPtr) obj).ToInt64 ());
else if (obj is UIntPtr)
return String.Format ("0x{0:x}", ((UIntPtr) obj).ToUInt64 ());
else
return obj.ToString ();
}
}
}
|
