Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
lwm1986
roslyn
提交
c51a2e09
R
roslyn
项目概览
lwm1986
/
roslyn
与 Fork 源项目一致
从无法访问的项目Fork
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
R
roslyn
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
c51a2e09
编写于
10月 29, 2015
作者:
T
Ty Overby
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Adds support for custom WinRT events.
上级
d7f6bc50
变更
4
隐藏空白更改
内联
并排
Showing
4 changed file
with
36 addition
and
0 deletion
+36
-0
src/Compilers/Test/Utilities/VisualBasic/TestOptions.vb
src/Compilers/Test/Utilities/VisualBasic/TestOptions.vb
+1
-0
src/Compilers/VisualBasic/Portable/Symbols/Source/LocalSymbol.vb
...pilers/VisualBasic/Portable/Symbols/Source/LocalSymbol.vb
+3
-0
src/Compilers/VisualBasic/Test/Emit/CodeGen/CodeGenWinMdEvents.vb
...ilers/VisualBasic/Test/Emit/CodeGen/CodeGenWinMdEvents.vb
+29
-0
src/Compilers/VisualBasic/Test/Emit/Emit/EditAndContinue/EditAndContinueTestBase.vb
...Test/Emit/Emit/EditAndContinue/EditAndContinueTestBase.vb
+3
-0
未找到文件。
src/Compilers/Test/Utilities/VisualBasic/TestOptions.vb
浏览文件 @
c51a2e09
...
...
@@ -27,6 +27,7 @@ Public Class TestOptions
Public
Shared
ReadOnly
ReleaseModule
As
New
VisualBasicCompilationOptions
(
OutputKind
.
NetModule
,
optimizationLevel
:
=
OptimizationLevel
.
Release
)
Public
Shared
ReadOnly
ReleaseWinMD
As
New
VisualBasicCompilationOptions
(
OutputKind
.
WindowsRuntimeMetadata
,
optimizationLevel
:
=
OptimizationLevel
.
Release
)
Public
Shared
ReadOnly
DebugWinMD
As
New
VisualBasicCompilationOptions
(
OutputKind
.
WindowsRuntimeMetadata
,
optimizationLevel
:
=
OptimizationLevel
.
Debug
)
End
Class
Friend
Module
TestOptionExtensions
...
...
src/Compilers/VisualBasic/Portable/Symbols/Source/LocalSymbol.vb
浏览文件 @
c51a2e09
...
...
@@ -499,6 +499,9 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.Symbols
If
node
.
IsKind
(
SyntaxKind
.
PropertyStatement
)
Then
Dim
propertyBlock
=
DirectCast
(
node
.
Parent
,
PropertyBlockSyntax
)
Return
propertyBlock
.
Accessors
.
Where
(
Function
(
a
)
a
.
IsKind
(
SyntaxKind
.
GetAccessorBlock
)).
Single
().
BlockStatement
ElseIf
node
.
IsKind
(
SyntaxKind
.
EventStatement
)
Then
Dim
eventBlock
=
DirectCast
(
node
.
Parent
,
EventBlockSyntax
)
Return
eventBlock
.
Accessors
.
Where
(
Function
(
a
)
a
.
IsKind
(
SyntaxKind
.
AddHandlerAccessorBlock
)).
Single
().
BlockStatement
End
If
Debug
.
Assert
(
node
.
IsKind
(
SyntaxKind
.
FunctionStatement
))
...
...
src/Compilers/VisualBasic/Test/Emit/CodeGen/CodeGenWinMdEvents.vb
浏览文件 @
c51a2e09
...
...
@@ -896,6 +896,35 @@ End Class
]]
>
)
End
Sub
<
Fact
(),
WorkItem
(
6313
,
"https://github.com/dotnet/roslyn/issues/6313"
)
>
Public
Sub
CustomEventWinMd
()
Dim
source
=
<
compilation
>
<
file
name
=
"a.vb"
>
Imports
System.Runtime.InteropServices.WindowsRuntime
Class
Test
Public
Custom
Event
CustomEvent
As
System
.
Action
(
Of
Integer
)
AddHandler
(
value
As
System
.
Action
(
Of
Integer
))
Return
Nothing
End
AddHandler
RemoveHandler
(
value
As
EventRegistrationToken
)
End
RemoveHandler
RaiseEvent
()
End
RaiseEvent
End
Event
End
Class
</
file
>
</
compilation
>
Dim
comp
=
CreateCompilationWithReferences
(
source
,
WinRtRefs
,
options
:
=
TestOptions
.
DebugWinMD
)
Dim
verifier
=
CompileAndVerify
(
comp
)
End
Sub
' Field-like and custom events are not treated differently.
<
Fact
(),
WorkItem
(
1003209
)
>
Public
Sub
HandlesClauses_EventKinds
()
...
...
src/Compilers/VisualBasic/Test/Emit/Emit/EditAndContinue/EditAndContinueTestBase.vb
浏览文件 @
c51a2e09
...
...
@@ -135,6 +135,9 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.UnitTests
ElseIf
s
.
IsKind
(
SyntaxKind
.
PropertyStatement
)
Then
Assert
.
True
(
sourceMethod0
.
BlockSyntax
.
IsKind
(
SyntaxKind
.
GetAccessorBlock
))
Return
DirectCast
(
sourceMethod0
.
BlockSyntax
.
Parent
,
PropertyBlockSyntax
).
PropertyStatement
ElseIf
s
.
IsKind
(
SyntaxKind
.
EventStatement
)
Then
Assert
.
True
(
sourceMethod0
.
BlockSyntax
.
IsKind
(
SyntaxKind
.
AddHandlerAccessorBlock
))
Return
DirectCast
(
sourceMethod0
.
BlockSyntax
.
Parent
,
PropertyBlockSyntax
).
PropertyStatement
End
If
For
Each
s0
In
locals0
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录