Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
lwm1986
roslyn
提交
f2da9102
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,发现更多精彩内容 >>
提交
f2da9102
编写于
4月 17, 2020
作者:
T
Tomas Matousek
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
VB
上级
a88e60a3
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
45 addition
and
2 deletion
+45
-2
src/Compilers/VisualBasic/Portable/Compilation/VisualBasicCompilation.vb
...isualBasic/Portable/Compilation/VisualBasicCompilation.vb
+8
-2
src/Compilers/VisualBasic/Test/Semantic/Compilation/CompilationAPITests.vb
...ualBasic/Test/Semantic/Compilation/CompilationAPITests.vb
+37
-0
未找到文件。
src/Compilers/VisualBasic/Portable/Compilation/VisualBasicCompilation.vb
浏览文件 @
f2da9102
...
...
@@ -661,7 +661,13 @@ Namespace Microsoft.CodeAnalysis.VisualBasic
Return
Me
End
If
' Reference binding doesn't depend on previous submission so we can reuse it.
' Metadata references are inherited from the previous submission,
' so we can only reuse the manager if we can guarantee that these references are the same.
' Check if the previous script compilation doesn't change.
' TODO Consider comparing the metadata references if they have been bound already.
' https://github.com/dotnet/roslyn/issues/43397
Dim
reuseReferenceManager
=
ReferenceEquals
(
ScriptCompilationInfo
?
.
PreviousScriptCompilation
,
info
?
.
PreviousScriptCompilation
)
Return
New
VisualBasicCompilation
(
Me
.
AssemblyName
,
...
...
@@ -677,7 +683,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic
info
?
.
GlobalsType
,
info
IsNot
Nothing
,
_referenceManager
,
reuseReferenceManager
:
=
True
)
reuseReferenceManager
)
End
Function
''' <summary>
...
...
src/Compilers/VisualBasic/Test/Semantic/Compilation/CompilationAPITests.vb
浏览文件 @
f2da9102
...
...
@@ -2176,6 +2176,43 @@ End Class
Assert
.
False
(
arc
.
ReferenceManagerEquals
(
ars
))
End
Sub
<
Fact
>
Public
Sub
ReferenceManagerReuse_WithScriptCompilationInfo
()
' Note The following results would change if we optimized sharing more: https://github.com/dotnet/roslyn/issues/43397
Dim
c1
=
VisualBasicCompilation
.
CreateScriptCompilation
(
"c1"
)
Assert
.
NotNull
(
c1
.
ScriptCompilationInfo
)
Assert
.
Null
(
c1
.
ScriptCompilationInfo
.
PreviousScriptCompilation
)
Dim
c2
=
c1
.
WithScriptCompilationInfo
(
Nothing
)
Assert
.
Null
(
c2
.
ScriptCompilationInfo
)
Assert
.
True
(
c2
.
ReferenceManagerEquals
(
c1
))
Dim
c3
=
c2
.
WithScriptCompilationInfo
(
New
VisualBasicScriptCompilationInfo
(
previousCompilationOpt
:
=
Nothing
,
returnType
:
=
GetType
(
Integer
),
globalsType
:
=
Nothing
))
Assert
.
NotNull
(
c3
.
ScriptCompilationInfo
)
Assert
.
Null
(
c3
.
ScriptCompilationInfo
.
PreviousScriptCompilation
)
Assert
.
True
(
c3
.
ReferenceManagerEquals
(
c2
))
Dim
c4
=
c3
.
WithScriptCompilationInfo
(
Nothing
)
Assert
.
Null
(
c4
.
ScriptCompilationInfo
)
Assert
.
True
(
c4
.
ReferenceManagerEquals
(
c3
))
Dim
c5
=
c4
.
WithScriptCompilationInfo
(
New
VisualBasicScriptCompilationInfo
(
previousCompilationOpt
:
=
c1
,
returnType
:
=
GetType
(
Integer
),
globalsType
:
=
Nothing
))
Assert
.
False
(
c5
.
ReferenceManagerEquals
(
c4
))
Dim
c6
=
c5
.
WithScriptCompilationInfo
(
New
VisualBasicScriptCompilationInfo
(
previousCompilationOpt
:
=
c1
,
returnType
:
=
GetType
(
Boolean
),
globalsType
:
=
Nothing
))
Assert
.
True
(
c6
.
ReferenceManagerEquals
(
c5
))
Dim
c7
=
c6
.
WithScriptCompilationInfo
(
New
VisualBasicScriptCompilationInfo
(
previousCompilationOpt
:
=
c2
,
returnType
:
=
GetType
(
Boolean
),
globalsType
:
=
Nothing
))
Assert
.
False
(
c7
.
ReferenceManagerEquals
(
c6
))
Dim
c8
=
c7
.
WithScriptCompilationInfo
(
New
VisualBasicScriptCompilationInfo
(
previousCompilationOpt
:
=
Nothing
,
returnType
:
=
GetType
(
Boolean
),
globalsType
:
=
Nothing
))
Assert
.
False
(
c8
.
ReferenceManagerEquals
(
c7
))
Dim
c9
=
c8
.
WithScriptCompilationInfo
(
Nothing
)
Assert
.
True
(
c9
.
ReferenceManagerEquals
(
c8
))
End
Sub
Private
Class
EvolvingTestReference
Inherits
PortableExecutableReference
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录