提交 7d4563f8 编写于 作者: K Kevin Ransom 提交者: Kevin Ransom (msft)

FX_NO_DELEGATE_DYNAMIC_METHOD and FX_NO_REFEMIT ---- dead code removal

上级 d7caf7f8
......@@ -144,9 +144,6 @@ open System.Linq
open System.Collections.Generic
open System.Linq.Expressions
open System.Reflection
#if !FX_NO_REFLECTION_EMIT
open System.Reflection.Emit
#endif
open Microsoft.FSharp
open Microsoft.FSharp.Collections
open Microsoft.FSharp.Core
......
......@@ -234,9 +234,6 @@ open System.Collections
open System.Collections.Generic
open System.Linq.Expressions
open System.Reflection
#if !FX_NO_REFLECTION_EMIT
open System.Reflection.Emit
#endif
open Microsoft.FSharp
open Microsoft.FSharp.Core
open Microsoft.FSharp.Core.Operators
......
......@@ -15,8 +15,6 @@ namespace Microsoft.FSharp.Control
open ReflectionAdapters
#endif
#if !FX_NO_DELEGATE_DYNAMIC_METHOD
[<CompiledName("FSharpDelegateEvent`1")>]
type DelegateEvent<'Delegate when 'Delegate :> System.Delegate>() =
let mutable multicast : System.Delegate = null
......@@ -122,7 +120,6 @@ namespace Microsoft.FSharp.Control
{ new System.IDisposable with
member x.Dispose() = (e :?> IDelegateEvent<'Delegate>).RemoveHandler(h) } }
#endif
[<CompiledName("FSharpEvent`1")>]
type Event<'T> =
......
......@@ -8,7 +8,7 @@ namespace Microsoft.FSharp.Control
open Microsoft.FSharp.Control
open Microsoft.FSharp.Collections
#if !FX_NO_DELEGATE_DYNAMIC_METHOD // not available on CompactFramework 2.0
/// <summary>Event implementations for an arbitrary type of delegate.</summary>
[<CompiledName("FSharpDelegateEvent`1")>]
type DelegateEvent<'Delegate when 'Delegate :> System.Delegate> =
......@@ -20,7 +20,7 @@ namespace Microsoft.FSharp.Control
member Trigger : args:obj[] -> unit
/// <summary>Publishes the event as a first class event value.</summary>
member Publish : IDelegateEvent<'Delegate>
/// <summary>Event implementations for a delegate types following the standard .NET Framework convention of a first 'sender' argument.</summary>
[<CompiledName("FSharpEvent`2")>]
......@@ -35,7 +35,7 @@ namespace Microsoft.FSharp.Control
/// <summary>Publishes the event as a first class event value.</summary>
member Publish : IEvent<'Delegate,'Args>
#endif
/// <summary>Event implementations for the IEvent&lt;_&gt; type.</summary>
[<CompiledName("FSharpEvent`1")>]
type Event<'T> =
......
......@@ -1759,9 +1759,7 @@ module Patterns =
let qdataResources =
// dynamic assemblies don't support the GetManifestResourceNames
match assem with
#if !FX_NO_REFLECTION_EMIT
| a when a.FullName = "System.Reflection.Emit.AssemblyBuilder" -> []
#endif
| null | _ ->
let resources =
// This raises NotSupportedException for dynamic assemblies
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册