首先，需要提到异步异常的问题。异步异常就是指OutOfMemoryException、StackOverflowException和ThreadAbortException等系统异常。说他们“异步”是因为他们可以在线程代码执行到任何地方的时候发生。一般的异常，比如FileNotFoundException是由代码自己产生的，因此可以用Try语句正常捕捉和处理。而异步异常则是CLR产生的。而且，这些异常都预示着非常严重的错误，代码自己通常都会手足无措。比方说内存耗尽了，代码自己即使Catch了也无济于事，都不知道刚刚哪一步出的问题，也不知道该怎么继续执行。ThreadAbortException通常是由Thread.Abort方法引发，如果要Abort的线程正在进行很关键的人物，比如修改一个全局对象的状态，那么发生ThreadAbortException可能会让整个程序的状态受损，进而产生错误的行为。因此，需要有种机制告诉CLR，我们要进行的事情很关键，不容打断，这就是CER——Constrained Execution Region。
声明CER很简单，先调用System.Runtime.CompilerServices.RuntimeHelpers.PrepareConstrainedRegions()方法，再紧接一个Try...Catch...Finally块即可。注意，这个Try必须紧接着PrepareConstrainedRegions()方法，而且，只有Catch和Finally块的内容成为CER。如下所示
RuntimeHelpers.PrepareConstrainedRegions()
Try
Catch
'注意，这里是CER
Finally
'这里也是CER
End Try
一般情况下都用Finally块来做CER。CER与普通代码不同，在CER执行期间CLR不能发出异步异常。因此CLR就必须采取一些措施。首先CER会将ThreadAbortException推迟到CER结束之后才发生，这比较容易做到。第二，为了避免OutOfMemoryException，CLR会将CER中用到的所有方法（注意，这里是从代码静态观察，而不是实际调用的方法）以及这些方法所调用到的所有方法全都编译成本地代码，然后根据情况预测可能的内存不足并提前到CER之前引发。然而，这个方法并不能对付堆栈益处错误，所以这个方法会事先保留48K的栈空间以防万一。然而根据MSDN文档，StackOverflowException还是可能会发生的。Try
Catch
'注意，这里是CER
Finally
'这里也是CER
End Try
为了确保CER这种原理能够工作，首先CER之内不能在堆上进行任何分配操作，包括后台进行的分配操作。除了不能用New分配引用类型的对象之外，也不能进行装箱、线程同步锁操作或者访问多维数组。
刚才介绍到，CLR会事先编译CER中所有用到的方法以及它们各自调用的所有方法。那么聪明的人一定能看出一个问题，那就是通过委托和虚函数机制调用的方法无法事先准确判断，因而就无从准备。因此，RuntimeHelpers还提供了两个方法——PrepareMethod和PrepareDelegate。调用之前务必用这两个方法准备所有虚函数的实际版本和委托变量。使用CER是需要极其小心准备的，因此不是随随便便使用的特性。RuntimeHelpers还有许多其它方法对应各种有变数的情况。总之，CER的宗旨就是在执行之前将所有可以知道的情况尽数分析透彻以便提前判断CER中的操作到底有没有可能顺利完成。
下面用ThreadAbortException来做一个试验，因为这个异常是最容易引发的：
Imports System.Runtime.CompilerServicesImports System.Threading
Module Module1Module Module1
Dim globalArray() As Integer
Sub Main()Sub Main() globalArray = New Integer(50000000) {} Dim t As New Thread(AddressOf Thread1) t.Start() t.Abort() t.Join() Console.WriteLine(AllEquals(globalArray, 100))
End Sub Function AllEquals()Function AllEquals(Of T)(ByVal arr() As T, ByVal value As T) As Boolean For i As Integer = 0 To arr.Length - 1 If Not arr(i).Equals(value) Then Return False Next Return True End Function Sub Thread1()Sub Thread1() RuntimeHelpers.PrepareConstrainedRegions() Try Finally For i As Integer = 0 To 50000000 globalArray(i) = 100 Next End Try End Sub
End Module打印 | 张贴于 2006-06-30 15:57:00 | Tag:技术随笔
留言反馈
O time de VB.Net reconheceu os principais MVP´s contribuidores de VB.Net no mundo! Estou...
前辈能够给一些建议么？
阅读要仔细，脑袋大哥早就说清了
请问CER的全写是？