Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
lwm1986
roslyn
提交
94415a93
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,发现更多精彩内容 >>
提交
94415a93
编写于
9月 29, 2015
作者:
K
Kevin Halverson
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Finish implementation of GetReferenceDirectives in VB and enable test...
(fixes DevDiv 790235)
上级
06add106
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
4 addition
and
11 deletion
+4
-11
src/Compilers/VisualBasic/Portable/Syntax/CompilationUnitSyntax.vb
...lers/VisualBasic/Portable/Syntax/CompilationUnitSyntax.vb
+3
-4
src/Compilers/VisualBasic/Test/Semantic/Compilation/CompilationAPITests.vb
...ualBasic/Test/Semantic/Compilation/CompilationAPITests.vb
+1
-7
未找到文件。
src/Compilers/VisualBasic/Portable/Syntax/CompilationUnitSyntax.vb
浏览文件 @
94415a93
...
...
@@ -19,10 +19,9 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.Syntax
End
Function
Friend
Function
GetReferenceDirectives
(
filter
As
Func
(
Of
ReferenceDirectiveTriviaSyntax
,
Boolean
))
As
IList
(
Of
ReferenceDirectiveTriviaSyntax
)
' TODO: tomat
' enable test ReferenceManagerReuse_WithSyntaxTrees when implemented
' Return SyntaxNode.GetDirectives(Me.GetFirstToken(includeZeroWidth:=True), filter)
Return
SpecializedCollections
.
EmptyList
(
Of
ReferenceDirectiveTriviaSyntax
)()
' #r directives are always on the first token of the compilation unit.
Dim
firstToken
=
CType
(
Me
.
GetFirstToken
(
includeZeroWidth
:
=
True
),
SyntaxNodeOrToken
)
Return
firstToken
.
GetDirectives
(
Of
ReferenceDirectiveTriviaSyntax
)(
filter
)
End
Function
End
Class
End
Namespace
...
...
src/Compilers/VisualBasic/Test/Semantic/Compilation/CompilationAPITests.vb
浏览文件 @
94415a93
...
...
@@ -1485,7 +1485,7 @@ End Class
Assert
.
False
(
c3
.
ReferenceManagerEquals
(
c2
))
End
Sub
<
Fact
(
Skip
:
=
"790235"
)
>
<
Fact
>
Public
Sub
ReferenceManagerReuse_WithSyntaxTrees
()
Dim
ta
=
Parse
(
"Imports System"
)
Dim
tb
=
Parse
(
"Imports System"
,
options
:
=
TestOptions
.
Script
)
...
...
@@ -1536,12 +1536,6 @@ End Class
Dim
ars
=
arc
.
ReplaceSyntaxTree
(
tc
,
ts
)
Assert
.
True
(
arc
.
ReferenceManagerEquals
(
ars
))
Dim
ar3
=
arc
.
ReplaceSyntaxTree
(
tc
,
ta
)
Assert
.
True
(
arc
.
ReferenceManagerEquals
(
ar3
))
Dim
as1
=
ars
.
ReplaceSyntaxTree
(
tr
,
ts
)
Assert
.
False
(
ars
.
ReferenceManagerEquals
(
as1
))
End
Sub
Private
Class
EvolvingTestReference
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录