Implement mono_gc_alloc_fixed on Boehm to be uncollectable. This matches SGen behavio...
[mono.git] / mcs / class / corlib / System.Diagnostics / StackFrame.cs
1 //
2 // System.Diagnostics.StackFrame.cs
3 //
4 // Author:
5 //      Alexander Klyubin (klyubin@aqris.com)
6 //      Dietmar Maurer (dietmar@ximian.com)
7 //
8 // (C) 2001
9 // Copyright (C) 2004-2005 Novell, Inc (http://www.novell.com)
10 //
11 // Permission is hereby granted, free of charge, to any person obtaining
12 // a copy of this software and associated documentation files (the
13 // "Software"), to deal in the Software without restriction, including
14 // without limitation the rights to use, copy, modify, merge, publish,
15 // distribute, sublicense, and/or sell copies of the Software, and to
16 // permit persons to whom the Software is furnished to do so, subject to
17 // the following conditions:
18 // 
19 // The above copyright notice and this permission notice shall be
20 // included in all copies or substantial portions of the Software.
21 // 
22 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
23 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
25 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
26 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
27 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
28 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
29 //
30
31 using System.IO;
32 using System.Reflection;
33 using System.Runtime.CompilerServices;
34 using System.Security;
35 using System.Security.Permissions;
36 using System.Text;
37 using System.Runtime.InteropServices;
38
39 namespace System.Diagnostics {
40
41         [Serializable]
42         [ComVisible (true)]
43         [MonoTODO ("Serialized objects are not compatible with MS.NET")]
44         [StructLayout (LayoutKind.Sequential)]
45         public class StackFrame {
46
47                 public const int OFFSET_UNKNOWN = -1;
48
49                 #region Keep in sync with object-internals.h
50                 private int ilOffset = OFFSET_UNKNOWN;
51                 private int nativeOffset = OFFSET_UNKNOWN;
52                 private long methodAddress;
53                 private uint methodIndex;
54                 private MethodBase methodBase;
55                 private string fileName;
56                 private int lineNumber;
57                 private int columnNumber;
58         #pragma warning disable 649
59                 private string internalMethodName;
60                 #pragma warning restore 649
61                 #endregion
62
63                 [MethodImplAttribute(MethodImplOptions.InternalCall)]
64                 extern static bool get_frame_info (int skip, bool needFileInfo, out MethodBase method,
65                                                    out int iloffset, out int native_offset,
66                                                    out string file, out int line, out int column);
67
68                 public StackFrame ()
69                 {
70                         get_frame_info (2, false, out methodBase, out ilOffset,
71                                         out nativeOffset, out fileName, out lineNumber,
72                                         out columnNumber);                      
73                 }
74
75                 [MethodImplAttribute (MethodImplOptions.NoInlining)]                
76                 public StackFrame (bool fNeedFileInfo)
77                 {
78                         get_frame_info (2, fNeedFileInfo, out methodBase, out ilOffset,
79                                         out nativeOffset, out fileName, out lineNumber,
80                                         out columnNumber);                      
81                 }
82
83                 [MethodImplAttribute (MethodImplOptions.NoInlining)]                
84                 public StackFrame (int skipFrames)
85                 {
86                         get_frame_info (skipFrames + 2, false, out methodBase, out ilOffset,
87                                         out nativeOffset, out fileName, out lineNumber,
88                                         out columnNumber);                      
89                 }
90                 
91                 [MethodImplAttribute (MethodImplOptions.NoInlining)]
92                 public StackFrame (int skipFrames, bool fNeedFileInfo) 
93                 {
94                         get_frame_info (skipFrames + 2, fNeedFileInfo, out methodBase, out ilOffset,
95                                         out nativeOffset, out fileName, out lineNumber,
96                                         out columnNumber);
97                 }
98                 
99                 // LAMESPEC: According to the MSDN docs, this creates a frame with _only_
100                 // the filename and lineNumber, but MS fills out the frame info as well.
101                 [MethodImplAttribute (MethodImplOptions.NoInlining)]
102                 public StackFrame (string fileName, int lineNumber)
103                 {
104                         get_frame_info (2, false, out methodBase, out ilOffset,
105                                         out nativeOffset, out fileName, out lineNumber,
106                                         out columnNumber);
107                         this.fileName = fileName;
108                         this.lineNumber = lineNumber;
109                         this.columnNumber = 0;
110                 }
111                 
112                 // LAMESPEC: According to the MSDN docs, this creates a frame with _only_
113                 // the filename, lineNumber and colNumber, but MS fills out the frame info as well.
114                 [MethodImplAttribute (MethodImplOptions.NoInlining)]
115                 public StackFrame (string fileName, int lineNumber, int colNumber)
116                 {
117                         get_frame_info (2, false, out methodBase, out ilOffset,
118                                         out nativeOffset, out fileName, out lineNumber,
119                                         out columnNumber);
120                         this.fileName = fileName;
121                         this.lineNumber = lineNumber;
122                         this.columnNumber = colNumber;
123                 }
124                                   
125                 public virtual int GetFileLineNumber()
126                 {
127                         return lineNumber;
128                 }
129                 
130                 public virtual int GetFileColumnNumber()
131                 {
132                         return columnNumber;
133                 }
134                 
135                 public virtual string GetFileName()
136                 {
137 #if FEATURE_MONO_CAS
138                         if (SecurityManager.SecurityEnabled && (fileName != null) && (fileName.Length > 0)) {
139                                 string fn = Path.GetFullPath (fileName);
140                                 new FileIOPermission (FileIOPermissionAccess.PathDiscovery, fn).Demand ();
141                         }
142 #endif
143                         return fileName;
144                 }
145
146                 internal string GetSecureFileName ()
147                 {
148                         string filename = "<filename unknown>";
149                         if (fileName == null)
150                                 return filename;
151                         try {
152                                 filename = GetFileName ();
153                         }
154                         catch (SecurityException) {
155                                 // CAS check failure
156                         }
157                         return filename;
158                 }
159                 
160                 public virtual int GetILOffset()
161                 {
162                         return ilOffset;
163                 }
164                 
165                 public virtual MethodBase GetMethod ()
166                 {
167                         return methodBase;
168                 }
169                 
170                 public virtual int GetNativeOffset()
171                 {
172                         return nativeOffset;                        
173                 }
174
175                 internal long GetMethodAddress ()
176                 {
177                         return methodAddress;
178                 }
179
180                 internal uint GetMethodIndex ()
181                 {
182                         return methodIndex;
183                 }
184
185                 internal string GetInternalMethodName ()
186                 {
187                         return internalMethodName;
188                 }
189
190                 public override string ToString ()
191                 {
192                         StringBuilder sb = new StringBuilder ();
193
194                         if (methodBase == null) {
195                                 sb.Append (Locale.GetText ("<unknown method>"));
196                         } else {
197                                 sb.Append (methodBase.Name);
198                         }
199
200                         sb.Append (Locale.GetText (" at "));
201
202                         if (ilOffset == OFFSET_UNKNOWN) {
203                                 sb.Append (Locale.GetText ("<unknown offset>"));
204                         } else {
205                                 sb.Append (Locale.GetText ("offset "));
206                                 sb.Append (ilOffset);
207                         }
208
209                         sb.Append (Locale.GetText (" in file:line:column "));
210                         sb.Append (GetSecureFileName ());
211                         sb.AppendFormat (":{0}:{1}", lineNumber, columnNumber);
212                         return sb.ToString ();
213                 }
214         }
215 }